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

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

Picture from ORACLE DB [D6]


AlexGreG ©   (2002-12-25 06:46:00) 

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

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

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


AlexGreG   (2002-12-25 11:35:00) [1]

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

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

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


AlexGreG   (2002-12-25 11:33:00) [2]

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


Lady D   (2002-12-25 10:09:00) [3]

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


AlexGreG   (2002-12-25 09:49:00) [4]

...


AlexGreG   (2002-12-25 08:50:00) [5]

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

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

Как тут быть?

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


Наталия   (2002-12-25 07:15:00) [6]

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;


Наверх

Титульная страница Поиск, карта сайта Написать письмо