Access 2007, TurboDelphi, OLE-поле

[Rin]

На Access 2007 создал БД. Там есть таблица CODE_PHOTO, где поля:
CODE - числовой, PHOTO- поле OLE. Загрузил пару картинок формата jpg всё в том же Access. Cохранил в формате *.mdb .
Через TurboDelphi всё подключил через ADO, настроил, все нормально работает, кроме
выгрузки картинок из БД в TImage. Пытался выгружать через TMemoryStream и через TADOBlobStream, и сюда тоже заходил. Поиск по форуму не решил проблему. Выдаёт ошибку "Jpeg Error #53". При трассировке с помощью точки останова на создании TMemoryStream и присваивании ему данных из blob-поля в объектном инспекторе напротив переменной типа TMemoryStream не отображается никаких данных.
Попытался поизвращаться. Если из acess'a тыкнуть на blob-поле и нажать ctrl+С и в любой папке нажать ctrl+V , то сохранится документ BMP формата и его можно открыть. Если написать такой код

  ms := TADOBlobStream.Create(DataModule3.T_CODE_PHOTO.FieldByName('PHOTO') as TBlobField,bmRead);
    ms.SaveToFile('123.bmp');

то создастся файл с таким же размером, как и при ctrl+C, ctrl+V , но открыть его не получается.
На сторонних сайтах писали, что при загрузке через Access к файлу приписываются какие-то данные, и нормально не получится считать - нужно знать сигнатуру.

В MainForm.pas на 432 строке начинается процедура procedure TForm2.DBGrid2DblClick(Sender: TObject); . В конце этой процедуры злополучные закомментированные строки кода, которые не работают.
Исходники залил на rghost.ru , если кому-то вдруг захочется повозиться с самой БД.
Пароль к самой DB1 - 123456 .

[Rin]

При загрузке картинки через Access и попытке открыть её посредством TADOBlobMemory в начало картинки записываются 82 байта, которые и мешают нормальной загрузке (заморочился в Hex -редакторе).
Вот в принципе чем картинка обрастает:

PHP код:

3       % яяяяТочечный рисунок Paint.Picture         PBrush         @Ь 


Недолго думая, поступил так.

  ms := TADOBlobStream.Create(DataModule3.T_CODE_PHOTO.FieldByName('PHOTO') as TBlobField,bmRead);
  try
        ms.Seek(82, soFromBeginning);
        Form4.Image1.Picture.Graphic:=TBitmap.Create;
        Form4.Image1.Picture.Graphic.LoadFromStream(ms);
  finally ms.Free;
 end;

IT'S WORK! )))
Тему можно закрывать.

rdama
DBImage ругается на то, что это не bmp-шный формат. А всё из-за 82 байт в начале файла.

[rdama]

Может DBImage