Access PNGImage and TImage

[Kovalchuk.Dmytro]

Доброго времени суток! Я знаю что эта тема уже разобрана как никогда. Но все же задача в следующем
Есть БД Access в котором есть таблица Books а в ней OLE-поле, которое содержит PNG изображение. Вот так я решил его витащить из БД и отобразить на компоненте imgCover:TImage и еще одна переменная для лучшего читания кода: db:TDataModule в котором и находиться таблица с полем tableBooksCover

procedure TfrmMain.loolistboxBookNameClick(Sender: TObject);
var
  stream: TStream;
  png: TPNGImage;
begin
  stream := TStream.Create;
  png := TPNGImage.Create;
  TRY
    db.tableBooksCover.SaveToStream(stream);//ошибка здесь я понимаю что так делать нельзя, нужно выделить память в поток но как это туда записать??? прям с таблицы???
    png.LoadFromStream(stream);
    imgCover.Picture.Graphic := png;
  FINALLY
    FreeAndNil(stream); FreeAndNil(png);
  END;
end;

Все бы было ничего, но я надеялся код заработает а тут при запуске данного события возникает "Ошибка записи потока". Не подскажите в чем проблемка то...
Заранее благодарен!

[Аватар]

stream: TStream;

Нельзя - абстрактный класс. Используй TMemoryStream или CreateBlobStream датасета.

ЗЫ

Если картинка записана в базу средствами ACCESS, то не получится так отобразить