softgames.de/developia.de - Tutorial: Archive mit TArchivFile

Datei zu verpacken.

1. Einleitung

Genau vor diesem Problem stand ich auch bei der Entwicklung von X-Force: Fight For Destiny. Anstatt nach einer passenden Komponente für Delphi zu suchen, habe ich selber eine Komponente names TArchivFile entwickelt.

In diesem Tutorial möchte ich euch einen kurzen Überblick über die Benutzung von TArchivFile geben, in der Hoffung, dass ihr davon profitieren werdet und TArchivFile vielleicht in euren Projekten Verwendung findet. Selbstverständlich könnt ihr diese Komponente frei und ohne Bedingungen in euren Projekten verwenden.

2. Was bietet die Komponente?

Die Komponente wurde für Delphi entwickelt und bisher nur dort getestet. In wie weit eine Kompatibilität zu Kylix besteht kann ich leider nicht sagen.

Die wichtigsten Features der Komponente:

- mehrere Dateien (nachfolgend als Ressource bezeichnet) in einem Archiv zusammenfassen

- Komprimierung der einzelnen Ressourcen

- hinzufügen, löschen, ersetzen und umbenennen von Ressourcen

- Checksummen zum Prüfen der Ressourcen auf Manipulationen

- ein Archiv kann bis zu 2 GB

groß

- Die Ressourcen werden als Stream zur Verfügung gestellt. Dadurch kann TArchivFile überall benutzt, wo Streams unterstützt werden.

- hinzufügen von mehreren Dateien mit nur einem Befehl

- zur Laufzeit können neue Archive angelegt werden

- Editor zum Bearbeiten der Archive

3. Vorarbeiten

Um TArchivFile nutzen zu können, ist nicht viel zu tun. Als erstes müssen die beiden pas-Dateien (ArchivFile.pas und Compress.pas) aus dem angehängten ZIP-Archiv in ein beliebiges Verzeichnis entpackt werden. Anschliessend muss in Delphi das entsprechende Verzeichnis als Suchpfad eingetragen werden. Und schon sollte es eigentlich losgehen können.

Um die Komponente innerhalb einer Unit nutzen zu können, muss ArchivFile nur in die uses-Klausel aufgenommen werden. Wurde dies erfolgreich getan, so können jetzt Variablen vom Typ TArchivFile angelegt werden. Da es sich bei TArchivFile um eine Klasse handelt muss per

var
Archiv: TArchivFile;
begin
Archiv:=TArchivFile.Create;
.
.
Archiv.Free;
end;

ein Objekt angelegt und nach deren Benutzung wieder freigegeben werden. Halt so wie es in Delphi üblich ist.