Изображения в Access

[damuriders]

Если надоел понимаю, но один вопрос.
Как из MS Access вывести изображение. Т.е. таблица с данными, и в одном поле изображение.
В таблице сделал поле объекта OLE. а как вывести с помощью ADOQuery?

[Rin]

Сам долго дрался не на жизнь, а на смерть с этим Access. У тебя на форме должна быть компонента "Image1". Попробуй так:

uses .................,ADODB, Jpeg;
....................
var
 ms: TADOBlobStream;
 s:string;
 Code:word;
yes:boolean;
begin
yes:=false;
// заносим из таблицы "Code_FIO_worker" в строку "s" код сотрудника, которого будем искать в другой таблице
  s:=DataModule3.T_CODE_FIO_worker.FieldByName('CODE').Value;
// ищем соответствующую строку с кодом сотрудника, чтобы прошарить Blob-поле.
   DataModule3.T_CODE_PHOTO.Locate('CODE',s,[loCaseInsensitive]);
// Создаем поток для фотки, в который сразу заносим найденную фотографию. Открываем лишь для чтения
  ms := TADOBlobStream.Create(DataModule3.T_CODE_PHOTO.FieldByName('PHOTO') as TBlobField,bmRead);
  try
// считываем 4 первых байта с потока
ms.Read(Code,SizeOf(Code)); ms.Seek(0,0);

case Code of
// если индетификатор BMP-файла, то
  $4D42: begin
    Image1.Picture.Graphic:=TBitmap.Create;
    Image1.Picture.Graphic.LoadFromStream(ms);
  end;
// если индетификатор JPG-файла, то
  $D8FF: begin
    Image1.Picture.Graphic:=TJPEGImage.Create;
    Image1.Picture.Graphic.LoadFromStream(ms);
  end;
// в моей БД фотки можно было заносить из Access и из слепленного интерфейса. 
//Если первые 4 байта равны "1C15", то значит фотка была залита из Access. А 
//Access в начале файла записывает свои данные, равные 82 байтам. Там хранится 
//разного рода инфа, типа чем открывать и т.д. Поэтому мы перескакиваем 82 байта...
  $1C15: begin
    ms.Seek(82, soFromBeginning);
    yes:=true;
  end;
end;
if yes then
begin
ms.Read(Code,SizeOf(Code)); ms.Seek(82, soFromBeginning);
//... и опять смотрим какого формата файл.
case code of
  $4D42: begin
    Image1.Picture.Graphic:=TBitmap.Create;
    Image1.Picture.Graphic.LoadFromStream(ms);
  end;
  $D8FF: begin
    Image1.Picture.Graphic:=TJPEGImage.Create;
    Image1.Picture.Graphic.LoadFromStream(ms);
  end;
end;
end;
  finally ms.Free;
 end;