Hallo liebe Delphi-Freunde,
momentan arbeite ich an einem sehr umfangreichen Projekt, und verwende dazu Turbo Delphi 2006. Bekanntermaßen ist man hier ja was Komponenten angeht sehr eingeschränkt.
Mein aktuelles Ziel ist es mehrere dynamisch erzeugte Dateien zu zippen, das erstellen funktioniert ja auch ganz gut, nur das Zippen eben nicht. Ich habe es mit der Komponente MasterZip (
http://www.delphizip.org/) versucht, jedoch habe ich das Gefühl, dass diese Komponente nur funktioniert wenn man sie in der
IDE installiert, nicht jedoch wenn man sie nur als Klasse einbindet. Explizit liegt mein Problem im Create des Objekts, da ich (warum auch immer) keinen Parameter wie "self" oder "parent" übergeben kann. Allerdings habe ich auf diesem Gebiet auch nicht die größte Ahnung. Falls mir also jemand sagen könnte woran es hier scheitert, bzw. mir eine andere Komponente/Klasse zum Zippen empfehlen könnte, wäre ich dafür sehr dankbar!
Delphi-Quellcode:
//Kompletten Ordner-Inhalt ZIPPEN
ZIP:=TZipMaster19.Create(nil);
ZIP.Active:=true;
ZIP.DLL_Load:=true;
ShowMessage(AFile+'.lvlzip');
ZIP.ZipFileName:=AFile+'.lvlzip';
ZIP.FSpecArgs.AddStrings(ListFileDir(tmpDir));
ZIP.Add;
Viele Grüße,
I love Delphi!