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

← →
cher_gvf © (2002-12-03 14:35) [0]

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

← →
Prooksius © (2002-12-03 14:40) [1]

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

Тип поля 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

Как в Oracle записать/прочитать BLOB-поле? Найти похожие ветки