Einzelnen Beitrag anzeigen

Te7Ris

Registriert seit: 18. Mai 2005
9 Beiträge
 
#5

Re: JPEGfolge und TFileStream, "JPEG-Fehler #42"

  Alt 25. Apr 2009, 23:07
Ich speichere jetzt hiermit den MemoryStream (jStream) in den Filestream (fStream) so wie im vorherigen Post beschrieben

Delphi-Quellcode:
 fstream := TFileStream.Create('E:\AC.acl',fmCreate);
 jStream.Seek(0,soFromBeginning);

 Len := jStream.Size;
 fstream.Write(Len, SizeOf(Len));
 jStream.SaveToStream(fStream);
und versuche so an das erste JPEG herran zukommen, was jedoch direkt mit dem JPEG-Fehler #42 scheitert...

Delphi-Quellcode:
fStream := TFileStream.Create('E:\AC.acl', fmOpenRead);
jStream := TMemoryStream.Create;

fStream.Read(len, SizeOf(Len));
fStream.Read(jStream,len);

tjpg := TJPEGImage.Create;
tjpg.LoadFromStream(jStream);
Das Speichern und Auslesen der MemoryStreamgröße funktioniert ohne Probleme... Habe ich etwas falsch gemacht, oder muss ich die einzelnen Bilder auch jeweils mit "stream".write in den Stream schreiben und die Länge jedes Bildes vor das eigentliche Bild in den Stream schreiben (Ausslesen entsprechend)?

Gruß Maxi
  Mit Zitat antworten Zitat