Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как отобразить в TDBImage blob поле(access) [D6, access]

shel © (2003-01-04 04:35:00)
Здравствуйте. Проблема в следующем. Имеется база данных(ACCESS). Эта база данных содержит графику. Как отобразить оную в TDBImage(TImage)?Спасибо.

shel (2003-01-05 19:37:00) [1]
Всё, разобрался! Спасибо всем!

Лесник (2003-01-05 12:41:00) [2]
Использую ADO, и JPG изображения. В разделе uses указать JPEG.
//для загрузки в базу данных
var
MemStream: TMemoryStream;
Img: TBitmap;
jImg: TJPEGImage;
begin
OpenPictureDialog1.Execute;
if not (OpenPictureDialog1.FileName="") then begin
Img := TBitmap.Create;
jImg := TJPEGImage.Create;
MemStream := TMemoryStream.Create;
jImg.LoadFromFile(OpenPictureDialog1.FileName);
Img.Assign(jImg);
jImg.CompressionQuality := 60;
Img.SaveToStream(MemStream);
MemStream.Seek(0, soFromBeginning);
if not (DM.EmployesQuery1.State=dsEdit) then DM.EmployesQuery1.Edit;
TBLOBField(DM.EmployesQuery1.FieldByName("EPhoto")).LoadFromStream(MemStream);
DM.EmployesQuery1.Post;
MemStream.Free;
Img.free;
jImg.Free;
end;
end;

а для отображения просто TDBImage связываю с полем содержащим изображения через ADOQuery (DM.EMployesQuery1)

Lola (2003-01-05 10:42:00) [3]
Напиши, как делаешь.

shel (2003-01-04 19:29:00) [4]
Да я так и делаю (LoadFromStream и SaveToStream). Только не получается. Может у Вас есть примерчик? Если есть , то скиньте плийз.

Lola (2003-01-04 14:19:00) [5]
Смотри LoadFromStream и SaveToStream.

Севостьянов Игорь (2003-01-04 14:00:00) [6]
Насколько я помню в ACCESS нет blob полей (хотя есть OLE Object)

Наверх

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