TImage + TMemory Stream

[KrasserChecker]

Probiert mal das hier. Funktioniert bei mir einfandfrei:

Delphi-Quellcode:

uses jpeg;

procedure TForm1.LoadJpgFromStream(iStream: TStream);
var jpg: TJPEGImage;
begin
  jpg := TJPEGImage.Create;
  try
    jpg.LoadFromStream(iStream);
    Image1.Picture.Assign(jpg);
  finally
    jpg.Free;
  end;
end;

Nicht vergessen, die Unit "jpeg" in den Uses-Abschnitt mit aufzunehmen!