Picture from ORACLE DB

← →
AlexGreG (2002-12-25 06:46) [0]

Приветствую тебя, Мастер.

Как записать изображение в БД Оракл, я разобрался.
А каким образом из этого поля взять изображение и отобразить, например, в TImage?

Заранее благодарен.

← →
Наталия (2002-12-25 07:15) [1]

bit:=Tbitmap.Create;
MS := TMemoryStream.Create;
TBlobField(OCIQuery1.FieldByName("icon")).SaveToStream(MS);
MS.Seek(soFromBeginning, 0);
if ms.Size>0 then
begin
bit.LoadFromStream(ms);
imagelist1.Add(bit,nil);
end;
bit.free;
MS.free;

← →
AlexGreG (2002-12-25 08:50) [2]

Это работает, если в базе данных только BMP-файлы хранятся
А если я JPG или GIF там храню?

Для BMP-шек можно использовать компонент TDBImage и всё.

Как тут быть?

Заранее благодарю.

← →
AlexGreG (2002-12-25 09:49) [3]

...

← →
Lady D (2002-12-25 10:09) [4]

uses Jpeg;
...
var pict: TGraphics;
... далее аналогично (для JPEG по крайней мере).

← →
AlexGreG (2002-12-25 11:33) [5]

Спасибо, девушки.

← →
AlexGreG (2002-12-25 11:35) [6]

Кстати, я разобрался:

сохраняю вместе с картинкой её тип,
затем
TOraBLOBField.SaveToFile
img.picture.loadfromfile

полсекунды уходит на эти две операции для рисунка BMP размером с рабочий стол 1024х768

Picture from ORACLE DB Найти похожие ветки