Пытаюсь таким образом вставить произвольный файл в blob поле Interbase:

MS : TMemoryStream;

...

MS := TMemoryStream.Create();


if OpenDialog1.Execute then
begin
MS.LoadFromFile(OpenDialog1.FileName);
end;

...

IBQuery.SQL.Add('INSERT INTO TABLE1 (FIELD1) values (:BL)');
IBQuery.ParamByName('BL').LoadFromStream(S);
...

но нечего не получается, подскажите пожалуста в чем ошибка?

Здравствуйте, indee, Вы писали:

I>Пытаюсь таким образом вставить произвольный файл в blob поле Interbase:

I> MS : TMemoryStream;
TIBBlobStream попробуй


I>но нечего не получается, подскажите пожалуста в чем ошибка?
А что конкретно не получаеться. Ошибку выдает или что?

С TIBBlobStream заработало, Спасибо!

Здравствуйте, indee, Вы писали:

I>Пытаюсь таким образом вставить произвольный файл в blob поле Interbase:

I> MS : TMemoryStream;

I>...

I> MS := TMemoryStream.Create();


I> if OpenDialog1.Execute then
I> begin
I> MS.LoadFromFile(OpenDialog1.FileName);
I> end;

I>...

I> IBQuery.SQL.Add('INSERT INTO TABLE1 (FIELD1) values (:BL)');

MS.Position:= 0;

I> IBQuery.ParamByName('BL').LoadFromStream(S);
I>...

I>но нечего не получается, подскажите пожалуста в чем ошибка?