Как загнать картинку в BLOB используя IBX? [D6]
pathfinder © (2003-04-23 16:50:00)
Уважаемые мастера, подскажите как вставить картинку в BLOB
используя IBX компоненты (кроме IBTable).
заранее спасибо.
Johnmen (2003-04-23 16:57:00) [1]
Это не ты вчера спрашивал про FIBPlus ?
Вот кусок из примера. (Для IBX сам разберешься...)
Пpиводим пpимepы pаботы с blob-полями. pFIBDatase1BLOBFIELD -
полe типа BLOB датасeта pFIBDatabase1
Чтение из блоб-поля в OleContainer
var S: TStream;
begin
if not pFIBDataset1BLOBFIELD.IsNull then
begin
S:=pFIBDataset1.CreateBlobStream(pFIBDataset1BLOBFIELD,
bmRead);
try
OleContainer1.LoadFromStream(S)
finally
S.Free
end;
end;
end;
Запись в блоб-полe из OleContainer (вызываeтся в BeforePost)
var S: TStream;
begin
S:=pFIBDataSet1.CreateBlobStream(pFIBDataSet1BLOBFIELD,
bmReadWrite);
try
OleContainer1.SaveToStream(S)
finally
S.Free
end;
end;
Наверх 
ЧАТ |
Орешник |
|
