To pytanie ma już tutaj odpowiedź:

Jak wstawić obraz do bazy danych za pomocą TADOQuery Component Only 2 odpowiedziPrzechowuj obrazy w bazie danych MS-Access przy użyciu Delphi6 1 odpowiedź

Używam tego kodu do ładowania obrazów do mojego Timage:

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

Następnie używam tego kodu do przechowywania w mojej bazie dostępowej ms:

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;

Ale teraz chcę wyświetlić te zapisane obrazy na Timage, czy ktoś może mi pomóc? Obrazy są w formacie .jpeg