OLE и Blob - поля Interbase

← →
kolos_rus (2004-11-04 12:28) [0]

Подскажите действительно работающий пример записи и чтения OLE объектов в Interbase. Пробовал все, что нашел в интернете - не помогает. Запись делаю с помощью кода:
var
blst : TStream;
begin
ibtable1.Edit;
Blst := IBTable1.CreateBlobStream(dm1.IBTable1.FieldByName("pole"),bmreadwrite);
olecontainer1.SaveToStream(blst as Tstream);
Blst.Free;
ibtable1.Post;
end;
А прочитать никак не удается. В различных примерах разные ошибки.

← →
kolos_rus (2004-11-04 14:53) [1]

Помогите, кто чем может

← →
Johnmen © (2004-11-04 15:14) [2]

Чтение из блоб-поля в OleContainer
var S: TStream; begin if not FieldByName("pole").IsNull then begin S:=IBTable1.CreateBlobStream(FieldByName("pole"), bmRead); try OleContainer1.LoadFromStream(S) finally S.Free end; end; end;

Запись в блоб-полe из OleContainer (вызываeтся в BeforePost)
var S: TStream; begin S:=IBTable1.CreateBlobStream(FieldByName("pole"), bmReadWrite); try OleContainer1.SaveToStream(S) finally S.Free end; end;

← →
kolos_rus (2004-11-04 16:47) [3]

При чтении из blob поля на строке
OleContainer1.LoadFromStream(S)
возникает ошибка: "Access violation at address 004876EF"

← →
kolos_rus (2004-11-04 17:44) [4]

Johnmen можно выслать архив приложения по мылу с данными функциями? Может у меня в другом месте ошибка

← →
Johnmen © (2004-11-04 17:55) [5]

К сожалению нет.

>Может у меня в другом месте ошибка

А вот это вполне возможно.

← →
kolos_rus (2004-11-04 18:00) [6]

А этот кусок кода 100% рабочий?

Ну я бы голову на отсечение не дал :)

← →
kolos_rus (2004-11-06 09:26) [8]

Создал новое приложение, в которое добавил только две кнопки с чтением и записью в blob и olecontainer бросил на форму. Все равно ошибка "Access violation at address 004876EF"

OLE и Blob - поля Interbase Найти похожие ветки