Отображение рисунка в DBImage

[murad.88]

Как отобразить в DBImage рисунок находяшийся в  *.mdb (Access)
БД имеет  поле 'Photo'  тип данных 'Поле объекта OLE' в это  поле я вставляю BMP, и нужно этот рисунок отобразить в DBImage
Зарее Спапасибо Всем !!

[murad.88]

Пишу след. код:

Код: (Delphi)

procedure TForm4.ADOTable1AfterScroll(DataSet: TDataSet);
var
Bitmap: TBitmap;
BS: TADOBlobStream;
begin
try
BS:= TADOBlobStream.Create(DataModule2.ADOTable1.FieldByName('Photo'), bmRead);
BS.Seek(78, soFromBeginning);
Bitmap:= TBitmap.Create;
Bitmap.LoadFromStream(BS);
DBImage1.Picture.Graphic:= Bitmap;
finally
Bitmap.Free;
BS.Free;
end;
end;

Но вылетает Ошибка:  Incompatible types: 'TBlobField' and 'TField'

[Oldy]

Что в USES?

[zubr]

Ну если используется DBImage, то зачем вообще так делать? Тогда DBImage надо связать с соответствующим полем 'Photo'. А если уж таким способом делать, то лучше с TImage:

Код:

Image1.Picture.Assign(TBlobField(DataModule2.ADOTable1.FieldByName('Photo')));

[murad.88]

Ну если используется DBImage, то зачем вообще так делать? Тогда DBImage надо связать с соответствующим полем 'Photo'. А

Так когда я связываю с полем Photo в свойствах DBImage то выходит ошибка "bitmap image  is not valid".

[murad.88]

Что в USES?

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DBCtrls, Buttons, Grids, DBGrids, DB,
  ComCtrls, TabNotBk, ADODB;

[zubr]

murad.88, значит у тебя в БД не битмап (bmp), а возможно какой то другой формат (jpg, gif, png и т. п.). Если это так тогда надо сначала получить имидж в нужном формате, к примеру:

Код:

  If TBlobField(query.FieldByName('Photo')).BlobSize>0 then
  begin
   jpg:=TJpegImage.Create;
   try
    jpg.Assign(TBlobField(query.FieldByName('Photo')));
    Image1.Picture.Assign(jpg);
   finally
    jpg.Free;
   end;
  end;

P.S. Извини неправильно код написал в своем предыдущем посте, уже исправил.

[murad.88]

Вряд ли там другой формат, если только сам Access не изменил его при загрузки  bmp-шника  в поле Photo
Спасибо zubr, твой пример мне пригодился  в другом моменте написания кода !!
Но я уже разобрался с загрузкой изображения.

Код:

  procedure TForm4.DBImage1Click(Sender: TObject);
var
Bitmap: TBitmap;
BS: TADOBlobStream;
begin
try
     BS:= TADOBlobStream.Create(TBlobField(DataModule2.ADOTable1.FieldByName('Photo')), bmRead);
     BS.Seek(82, soFromBeginning);
  Bitmap:= TBitmap.Create;
  Bitmap.LoadFromStream(BS);
  DBImage1.Picture.Graphic:= Bitmap;
finally
Bitmap.Free;
BS.Free;
end;
end;

Только вот проблема возникла  в DMImage постояyно отображается рисунок первого поля DBGrid.
Не знаю на какое событие надо реагировать чтоб в DBImage отображался тот рисунок где находится текущий указатель  компоненте DBGrid.

[zubr]

murad.88, ты же правильно в предыдущем примере делал - в событии ADOTable1AfterScroll.

[murad.88]

ты же правильно в предыдущем примере делал - в событии ADOTable1AfterScroll.

Не знаю почему  но возникала ИС  при ADOTable1AfterScroll, а вот ADOQuery1BeforeScroll все нормально