ich versuche aus einem MEmorystream ein Bild in TImage.Picture zu laden. Egal was ich mache funktioniert es nicht. Das Bild in Stream richtig, ich speichere es, und man kann es als Datei öffnen.
Weiss jemand wo ich hier ein Fehler mache?
Das ist die Funktion:
Code: Alles auswählen
procedure TForm1.BtnToStreamClick(Sender: TObject);
var ms: TMemoryStream;
begin
ms:= TMemoryStream.Create;
//try
QRCode.SaveToStream(ms, TJPEGImage); //TPortableNetworkGraphic
try
Image1.Picture.LoadFromStreamWithFileExt(ms,'jpg');
//Image1.Picture.LoadFromStreamWithFileExt(ms, 'png');
Image1.Picture.SaveToFile('ms1.jpg'); //das ist leer
ms.SaveToFile('ms.jpg'); //das ist okay, mann kann dieses Bild beim Formdesigner in Image1 laden.
except
on E: Exception do ShowMessage(E.Message);
end;
//finally
ms.Free;
//end;
end;