| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Помогите с примером! [D7, IB6.x]

inkotex ©   (2003-10-17 11:44:00) 

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

---

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

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

---

Johnmen   (2003-10-17 12:10:00) [2]

П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:01:00) [3]

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

---

Alexandr   (2003-10-17 11:48:00) [4]

www.fibplus.com.ua

---

Наверх