JPEGfolge und TFileStream, "JPEG-Fehler #42"

[igel457]

So sollte es funktionieren:

Delphi-Quellcode:

//Speichern
fs := TFileStream.Create('E:\AC.acl', fmCreate);

//Für jedes einzelne Bild
ms := TMemoryStream.Create;
jpg.SaveToStream(ms),
len := ms.Size;
fs.Write(fs, SizeOf(len));
ms.SaveToStream(fs);
ms.Free;


//Laden
fs := TFileStream.Create('E:\AC.acl', fmOpenRead);

//Für jedes Bild
fs.Read(len, SizeOf(len));
ms := TMemoryStream.Create;
ms.CopyFrom(fs, len);
ms.Position := 0;
jpg.LoadFromStream(ms);
ms.Free;