Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.11.13;
Скачать: CL | DM;

Вниз

Помогите с примером!   Найти похожие ветки 

 
inkotex   (2003-10-17 11:44) [0]

Может у кого есть готовый пример работы с BLOB полями.
А именно считывание и запись картинки в базу и соответственно из базы.
Спасибо


 
Alexandr ©   (2003-10-17 11:48) [1]

www.fibplus.com.ua


 
inkotex   (2003-10-17 12:01) [2]

Чото не могу найти там пример


 
Johnmen ©   (2003-10-17 12:10) [3]

Пpиводим пpимepы pаботы с blob-полями.
pFIBDatase1BLOBFIELD - полe типа BLOB датасeта pFIBDatabase1
(для IBX аналогично)

Чтение из блоб-поля в 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;


Еще вариант работы с BLOB
=========================
var
FS : TFileStream;
begin
FS := TFileStream.Create("c:\temp\sample.txt", fmOpenRead);
try
Query1.ParamByName("CurVal").LoadFromStream(FS, ftMemo);
Query1.ExecSQL;
Database1.Commit;
finally
FS.Free;
end;
end;


 
inkotex   (2003-10-17 12:42) [4]

выдает тепер ошибку
Bitmap image is not valid
что ето значит?
не доконца понимаю где ошибка



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

Текущий архив: 2003.11.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.025 c
14-41931
нАвичОк
2003-10-24 09:47
2003.11.13
Как убить приложение, которое низя просто закрыть крестиком...


1-41594
qwe
2003-10-27 09:48
2003.11.13
Что такое *.dpk и как с ним работать


1-41673
Nikola
2003-10-24 13:55
2003.11.13
Сохранение окна


14-42136
D'oh
2003-10-21 00:43
2003.11.13
Дисковод


3-41040
Bless
2003-10-24 12:01
2003.11.13
Как получить координаты ячейки DBGrida?