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!