Diese Frage hat hier bereits eine Antwort:

So fügen Sie ein Bild nur mit TADOQuery Component in eine Datenbank ein 2 AntwortenSpeichern Sie Bilder in der MS-Access-Datenbank mit Delphi6 1 Antwort

Ich verwende diesen Code, um Bilder in mein Timage zu laden:

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

Dann verwende ich diesen Code, um in meiner MS Access-Datenbank zu speichern:

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;

Aber jetzt möchte ich diese gespeicherten Bilder auf einem Timage anzeigen. Kann mir jemand helfen? Die Bilder haben das JPEG-Format