Как сохранить компонент в поток и сразу же его загрузить в BLOB поле?

[artemavd]

Добрый вечер! Я хочу записать содержимое компонента (TreeView) в поток и сразу же записать из потока в BLOB поле. Вот так пытаюсь сделать:

procedure TForm1.sButton3Click(Sender: TObject);
var
 F: TStream;
begin
  F:=TStream.Create;
  try
   F.WriteComponent(Form1.tv_1);

    Form1.pFIBQuery1.Close;
    Form1.pFIBQuery1.SQL.Text:='UPDATE MY_TABLE SET FILE_DBT=:P WHERE ID=:II';
    Form1.pFIBQuery1.ParamByName('P').LoadFromStream(F);
    Form1.pFIBQuery1.ParamByName('II').Value:=1;
    Form1.pFIBQuery1.ExecQuery;
    Form1.pFIBQuery1.Transaction.Commit;

  finally
   F.Free;
  end;
end;

Компилируется и запускается. При попытки выполнить этот код получаю ошибку: "Abstract Error". Как правильно решить мою задачу? СУБД Firebird

[Пепел Феникса]

TMemoryStream создавайте.

[artemavd]

Пепел Феникса, "+" тебе, спасибо! Заработало. С потоками мало очень работаю. Если не трудно, то расскажи, вкратце, в чем преимущество их использования?

----
А как теперь прочитать наоборот из BLOB поля в TreeView, используя поток?

[Пепел Феникса]

TStream предоставляет интерфейс для записи чтения.
реально пишут потомки.
TMemoryStream пишет просто в память.
TFileStream в файл.
есть и еще стримы разные.
они удобные)

читаете в такой же мемористрим из блоба.
а там ReadComponent

[artemavd]

Вот так:
FILE_DBT - BLOB поле

 Form1.pFIBQuery1.Close;
 Form1.pFIBQuery1.SQL.Clear;
 Form1.pFIBQuery1.SQL.Add('SELECT FILE_DBT FROM T_PARAMS_DB');
 Form1.pFIBQuery1.ExecQuery;

 F:=TMemoryStream.Create;
 F.
 F.ReadComponent(Form1.tv_1);
 F.Free;

Что написать после F. ?

[Аватар]

Артем, с буржуйским если не слабо, то вот не плохая подборка http://www.delphisources.ru/pages/fa...t/LiB0045.html

[artemavd]

Аватар, спасибо. На досуге почитаю как-нибудь. Пока нет времени

[Пепел Феникса]

Что написать после F. ?

честно говоря я не в курсе как из БД читать в поток блок поле.
но там может итак есть AsStream или чтото подобное?

[Аватар]

записать содержимое компонента (TreeView) в поток и сразу же записать из потока в BLOB поле

Как-то так если в BLOB-поле DataSet

  MemoryStream:=TMemoryStream.Create;
  MemoryStream.WriteComponent(Form1.tv_1);
  MemoryStream.Position:=0;
  TBlobField(<BLOB-поле>).LoadFromStream(MemoryStream);
  MemoryStream.Free;

[artemavd]

Как записать в блоб поле вроде разобрались. Вопрос в том, как считать из него обратно компонент.
Вот, попробовал выгрузить содержимое поля в поток:

 F:=TMemoryStream.Create;
  Form1.pFIBQuery1.Close;
  Form1.pFIBQuery1.SQL.Clear;
  Form1.pFIBQuery1.SQL.Add('SELECT FILE_DBT FROM T_PARAMS_DB');
  Form1.pFIBQuery1.ExecQuery;
  Form1.pFIBQuery1.FieldByName('FILE_DBT').SaveToStream(F);
 F.ReadComponent(Form1.tv_1);
 F.Free;

Выдает ошибку: "Stream read error"