Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > Загрузка изображения из Access

Автор: jorka 12.8.2010, 19:25

Вообщем загрузил из jpeg1 изображение в базу Access, там оно хранится как OLE поле (делал через AdoTable)
Теперь у меня вопрос, как извлечь изображение обратно в jpeg1, или же в Image1 ?

Автор: Данкинг 12.8.2010, 21:35

Код


procedure tform1.Load_pic;
var S : TStream;
    FileS : TFileStream;
    FileName:string;
begin
  filename:='c:\temp.jpg';
  if AdoTable.FieldByName('jpg').IsNull then Exit;
  S:=AdoTable.FieldByName('jpg').DataSet.CreateBlobStream(AdoTable.FieldByName('POLE'), bmRead);
  if FileExists(FileName) then
    FileS:=TFileStream.Create(FileName, fmOpenWrite)
  else
    FileS:=TFileStream.Create(FileName, fmCreate);
  try
    FileS.CopyFrom(S, S.Size);
  finally
    S.Free;
    FileS.Free;
  end;
end;