Datei Archiv

[scp]

Du musst nur statt
        fs.Read(Header, 8); dies hier einsetzen:
        fs.Read(Header, SizeOf(TFileArchiveHeader)); und statt dem

Delphi-Quellcode:

        fs.Write(Header, 8);

        CurOffset := 8;

das hier:

Delphi-Quellcode:

        fs.Write(Header, SizeOf(TFileArchiveHeader));

        CurOffset := SizeOf(TFileArchiveHeader);