Delphi JPEGfolge und TFileStream, "JPEG-Fehler #42"

Thema durchsuchen

Ansicht

Themen-Optionen

JPEGfolge und TFileStream, "JPEG-Fehler #42"

Ein Thema von Te7Ris · begonnen am 25. Apr 2009 · letzter Beitrag vom 26. Apr 2009

Vorheriger Beitrag

Nächster Beitrag

igel457

Registriert seit: 31. Aug 2005
1.622 Beiträge

FreePascal / Lazarus

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

26. Apr 2009, 17:33

So sollte es funktionieren:

zusammenfalten · markieren

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;

Andreas
"Sollen sich auch alle schämen, die gedankenlos sich der Wunder der Wissenschaft und Technik bedienen, und nicht mehr davon geistig erfasst haben als die Kuh von der Botanik der Pflanzen, die sie mit Wohlbehagen frisst." - Albert Einstein