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

[Аватар]

ExecQuery ????

[artemavd]

А что такое?

[Аватар]

Для SELECT разве не OPEN или ACTIVE:=True (по аналогии с другими QUERY, с этим не работаю)?

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

попробуйте F.Position:=0
а еще для теста перед чтением можно сделать

ShowMessage(IntToStr(F.Size));

[artemavd]

Да нет, везде использую ExecQuery. Работает.
Ну, размер показыватся. Он больше нуля, наверное показывается размер содержимое блоб поля.

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

раз показывается размер то надо лишь сместит позицию в ноль перед чтением.
и сидеть молится что TreeView это умеет.

[artemavd]

Все, сделал. Вот рабочий вариант:

procedure TForm1.sButton5Click(Sender: TObject);
var
 F: TMemoryStream;
begin
 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.Position:=0;
 F.ReadComponent(Form1.tv_1);
 F.Free;

Так все работает. Всем спасибо за помощь

[GunSmoker]

Почитать:
http://www.gunsmoker.ru/2011/11/blog-post_12.html