Fehler beim TImage.Graphic aus Memorystream Laden

[Soner]

Hallo,
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;

Es ist aus Lazbarcodes-Package das Beispielprogramm qrcodegenerator.

[theo]

QRCode.SaveToStream(ms, TJPEGImage); //TPortableNetworkGraphic

Das ist schon mal mindestens merkwürdig. Du möchtest ein TJPEGImage speichern und kommentierst das als TPortableNetworkGraphic?

Ansonsten würde ich mal versuchen, die Position des MemoryStreams auf 0 zu setzen vor jedem Schritt.

[Soner]

QRCode.SaveToStream(ms, TJPEGImage); //TPortableNetworkGraphic

Das ist schon mal mindestens merkwürdig. Du möchtest ein TJPEGImage speichern und kommentierst das als TPortableNetworkGraphic?

Ansonsten würde ich mal versuche, die Position des MemoryStreams auf 0 zu setzen vor jedem Schritt.

Es war vorher PNG-Format, deshalb habe ich es in den Kommentarbereich vorschoben, weil ich es wieder verwenden will, 'bin Tippfaul.

Das mit dem Position 0 war richtig, es funktioniert. Und das Schlimme, ich habe es daran selbst gedacht aber danach "neee daran kann es nicht liegen, mit dem Speichern klappt es ja." gesagt. Anderthalb Stunden unnötig herum probiert.

Danke dir.

[theo]

Es war vorher PNG-Format, deshalb habe ich es in den Kommentarbereich vorschoben, weil ich es wieder verwenden will, 'bin Tippfaul.

Das mache ich auch beim coden, aber bevor ich's ins Forum stelle, lösche ich so etwas raus, weil es mir nichts bringt, die Leute auf eine falsche Fährte zu schicken.