из Access в Delphi (Картинку)

[IIpopoK]

Здравствуйте!
У меня проблема такая:
Есть БД в Access;
Есть форма в Delphi;
На форме лежит компонент DBImage;
И так сам вопрос!
Как мне из Access вытащить на форму в Delphi в компонент DBImage картинку?

[neonman]

IIpopoK, в теории, если есть связка ADOConnection (active) ->ADOQuery(Active) -> DataSource (active) <- DBImage, то все должно отображатьси при переходе от записи к записи. Картинка хранится как BLOB данные и загрузить ее можно любым доступным методом, а потом отрисовать где хотите.

[IIpopoK]

Цитата: Сообщение от neonman IIpopoK, в теории, если есть связка ADOConnection (active) ->ADOQuery(Active) -> DataSource (active) <- DBImage, то все должно отображатьси при переходе от записи к записи. Картинка хранится как BLOB данные и загрузить ее можно любым доступным методом, а потом отрисовать где хотите.

Вы не могли бы обьяснить по подробней?
Просто я работаю с ADOTable, с ADOQuery я неразу не работал!

[Mr. FreeZZZ]

У TDBImage в свойстве DataSource указать нужный, у TDataSource в свойствах указать нужный DataSet (TADOQery или в твоем случае TADOTable), у TADOTable в свойстве Connection указать нужный TADOConnection.

[neonman]

IIpopoK, Mr. FreeZZZ доступно объяснил?

[IIpopoK]

Цитата: Сообщение от Mr. FreeZZZ У TDBImage в свойстве DataSource указать нужный, у TDataSource в свойствах указать нужный DataSet (TADOQery или в твоем случае TADOTable), у TADOTable в свойстве Connection указать нужный TADOConnection.

Цитата: Сообщение от neonman IIpopoK, Mr. FreeZZZ доступно объяснил?

все приконектил, все соеденил!
выдает такую ошибку!
"Bitmap image is not valid."
Вот... я так понимаю это он выдает из-за того что не поймет формата картинки?
как запихать в Access *.bmp картинку, чтоб Delphi понимал???

[Mr. FreeZZZ]

проверять если у файла расширение jpg то перед записью в базу конвертить в bmp

procedure JPEGtoBMP(const FileName: TFileName);
var
  jpeg: TJPEGImage;
  bmp: TBitmap;
begin
  jpeg := TJPEGImage.Create;
  try
    jpeg.CompressionQuality := 100; {Default Value}
    jpeg.LoadFromFile(FileName);
    bmp := TBitmap.Create;
    try
      bmp.Assign(jpeg);
      bmp.SaveTofile(ChangeFileExt(FileName, '.bmp'));
    finally
      bmp.Free
    end;
  finally
    jpeg.Free
  end;
end;