Einzelnen Beitrag anzeigen

Benutzerbild von Hador
Hador

Registriert seit: 11. Dez 2004
Ort: Recke
682 Beiträge
 
Turbo Delphi für Win32
 
#1

[Erledigt] JPEG aus Stream laden

  Alt 26. Nov 2006, 21:29
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;
Lars Kiesow
http://www.larskiesow.de

Computer gehorchen deinen Befehlen, nicht deinen Absichten.
  Mit Zitat antworten Zitat