Скачать: CL | DM;

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% рабочий?

---

← →
Johnmen ©   (2004-11-04 18:08) [7]

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

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.036 c