Datei Archiv

[Zerolith]

Hallo!

Find ich toll!

allerdings möchte ich gern an dem source von SCP weiterentwickeln, da ich mich da schnell einarbeiten konnte und es mir grad einen mords spass bereitet, und ich hoffe dass ihr mir dabei auch etwas weiter helft.

Bis ich mich in deinen Quellcode eingearbeitet hab der naja relativ umfangreich ist - naja hoff du weißt was ich mein =)

Aber trotzdem Danke!

[Luckie]

Falls du noch Anregungen brauchst, kuck dir mal meine SFXTools an: www.luckie-online.de/downloads . Das erstellt ein SFX Archiv und kann auch ganze Ordner mit Unterordnern aufnehmen.

[Zerolith]

kann mir evtl Jemand (*SCP Angugg*) erklären.

Was ich machen muss wenn ich HEader erweiter? ich kriegs nicht hin.

Delphi-Quellcode:

 TFileArchiveHeader = Record
    FileTag : array[0..3] Of Char;
    Count : Cardinal;
  end;

so ist im Moment und SO möcht ichs haben:

Delphi-Quellcode:

 TFileArchiveHeader = Record
    FileTag : array[0..[b]4[/b]] Of Char;
    Password : String[25];
    PWEnabled : WordBool;
    Count : Cardinal;
  end;

(ich weiß oben hab i n Fehler gemacht)

Was muss ich alles ändern damit das funktioniert?
Danke

[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);

[Zerolith]

Danke =)