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

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

Как в Oracle записать/прочитать BLOB-поле? [D6]

cher_gvf ©   (2002-12-03 14:35:00) 

Помогите примером,плиз.

---

Наталия   (2002-12-04 06:20:00) [1]

Тип поля LONG RAW
Можно так через потоки:
Чтение:

bit:=Tbitmap.Create;
MS := TMemoryStream.Create;

TBlobField(OCIQuery1.FieldByName("icona")).SaveToStream(MS);
MS.Seek(soFromBeginning, 0);
if ms.Size>0 then
begin
bit.LoadFromStream(ms);
end;
bit.free;

Запись:
ms := TMemoryStream.Create;
bitmap.SaveToStream(ms);
with OCIQuery1 do begin
active:=false;
sql.clear;
sql.add("update vid set icona=:par where id=:par1");
parambyname("par1").asinteger:=nom;
ParamByName("par").DataType := ftBlob;
ParamByName("par").ParamType := ptInput;
ParamByName("par").LoadFromStream(ms,ftBLOB);
execsql;
end;
Если работаешь через BDE, то можно через BlobStream

---

Prooksius   (2002-12-03 14:40:00) [2]

В компонентах Direct Oracle Access - \Demos\PictureDemo\

---

Наверх