восстановить изображение, сохраненное в базе данных [дубликат]

На этот вопрос уже есть ответ здесь:

Как вставить изображение в базу данных, используя только TADOQuery Component 2 ответаХраните изображения в базе данных MS-Access, используя Delphi6 1 ответ

Я использую этот код для загрузки изображений в мой Timage:

begin
if OpenPictureDialog1.Execute(Self.Handle) then
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;

Затем я использую этот код для хранения в моей базе данных MS Access:

var
AStream, : TMemoryStream;
begin
Adotable1.Append;

AStream := TMemoryStream.Create;
try
Image1.Picture.Graphic.SaveToStream(AStream);
AStream.Position := 0;
if Adotable1.Active then
begin
  TBlobField(Adotable1.FieldByName('Termograma')).LoadFromStream(AStream);
  end;
finally
AStream.Free;
end;
adotable1.Post;

Но теперь я хочу показать эти сохраненные изображения на Timage, кто-нибудь может мне помочь? Изображения в формате .jpeg

Ответы на вопрос(1)

Ваш ответ на вопрос