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

← →
shel (2003-01-04 04:35) [0]

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

← →
Севостьянов Игорь © (2003-01-04 14:00) [1]

Насколько я помню в ACCESS нет blob полей (хотя есть OLE Object)

← →
Lola © (2003-01-04 14:19) [2]

Смотри LoadFromStream и SaveToStream.

← →
shel (2003-01-04 19:29) [3]

Да я так и делаю (LoadFromStream и SaveToStream). Только не получается. Может у Вас есть примерчик? Если есть , то скиньте плийз.

← →
Lola © (2003-01-05 10:42) [4]

Напиши, как делаешь.

Использую 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)

← →
shel (2003-01-05 19:37) [6]

Всё, разобрался! Спасибо всем!

Как отобразить в TDBImage blob поле(access) Найти похожие ветки