Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi [Erledigt] JPEG aus Stream laden (https://www.delphipraxis.net/81411-%5Berledigt%5D-jpeg-aus-stream-laden.html)

Hador 26. Nov 2006 21:29


[Erledigt] JPEG aus Stream laden
 
Bei meinem Problem RAW-Bilder auszulesen bin ich nun ein wenig weitergekommen. Ich schaffe es die Thumbs aus den von der Canon EOS 350D erstellten Bildern zu extrahieren.
Allerdings habe ich nun ein neues Problem. Ich habe das JPG-Thumbnail nun in einem MemoryStream (MS).
Wenn ich diese JPG-Datei nun speichere und dann lade, wird sie auch angezeigt:
Delphi-Quellcode:
...
  MS.SaveToFile(FileName + '.jpg');
  JPG := TJPEGImage.Create;
  //JPG.LoadFromStream(MS);
  JPG.LoadFromFile(FileName + '.jpg');
  Image1.Picture.Assign(JPG);
  JPG.Free;
  MS.Free;
  ...
end;
Wenn ich die JPEG-Daten jedoch direkt aus dem Stream laden will, bekomme ich eine Exception "JPEG-Fehler #42".
Delphi-Quellcode:
...
  MS.SaveToFile(FileName + '.jpg');
  JPG := TJPEGImage.Create;
  JPG.LoadFromStream(MS);
  //JPG.LoadFromFile(FileName + '.jpg');
  Image1.Picture.Assign(JPG);
  JPG.Free;
  MS.Free;
  ...
end;
Frage: Warum? Bzw. was mache ich falsch?


EDIT:
Ich habs schon.
Die Antwort ist:
Die Zeigerposition im Stream muss an den Anfang gesetzt werden:
Delphi-Quellcode:
  MS.SaveToFile(FileName + '.jpg');
  MS.Seek(0, soBeginning);
  JPG := TJPEGImage.Create;
  JPG.LoadFromStream(MS);
  Image1.Picture.Assign(JPG);
  JPG.Free;
  MS.Free;


Alle Zeitangaben in WEZ +1. Es ist jetzt 08:21 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz