Ich hatte auch noch einen Fehler beim Laden.
So sollte es besser gehen:
Delphi-Quellcode:
// Laden
VAR Size : Int64;
BEGIN
Source.Read(Size, SizeOf(Size));
// Source sollte für dein Beispiel ein TFileStream sein.
// Target ist dann einer deiner Streams, die nun aus der Datei geladen werden.
Target.CopyFrom(Source, Size);
END;
Gruß,
pszopp
www.pstipp.de | Tippseite zur Formel 1 und Fußball WM/EM - kostenlos und Just-For-Fun