Zipper

[Andromeda]

Hallo,

ich möchte mir ein kleines Programm schreiben, mit dem ich den Inhalt eines Ordners und möglicherweise darin enthaltenene Unterordner in eine ZIP-Datei packen kann. Bei meiner Lazarus-Version wurde eine Unit Zipper mitgeliefert. Aber ich finde nirgends Beispielcode dafür. auch in den bei Lazarus mitgelieferten Beispielen habe ich nichts zum Zipper gefunden. Kennt jemand vielleicht Beispielcode diese Komonente?

[shokwave]

Hi,

ich hatte mir mal zum testen eine Unit gebastelt, die sollte als Beispielcode taugen.

[Michl]

http://wiki.lazarus.freepascal.org/paszlib/de

[Andromeda]

ich habe es jetzt mal so probiert:

Code: Alles auswählen

 
procedure TFormHaupt.Button1Click(Sender: TObject);
var
  MeinZipper : TZipper;  // benötigt Uses Zipper
begin
  MeinZipper := TZipper.Create;
  MeinZipper.Entries.AddFileEntry('C:\Users\User\Documents\Lazarus\Projekte\Zip\ziptest.lpi', 'Testzip.zip');
end;
 

Es erscheint zwar keine Fehlermeldung, aber die Datei "Testzip.zip' kann ich auch nirgends finden. Muss die Datei zuerst angelegt werden? Oder was mache ich falsch?

[Michl]

Parameter von AddFileEntry:
ADiskFileName (die zu packende Datei mit Pfad)
AArchiveFileName (der Dateiname mit Pfad in dem Archiv)

Nun musst du noch das Zip erstellen (so oder wie im Wiki beschrieben):

Code: Alles auswählen

begin
  MeinZipper := TZipper.Create;
  MeinZipper.Entries.AddFileEntry('C:\Users\User\Documents\Lazarus\Projekte\Zip\ziptest.lpi'{, 'Testzip.zip'});
  if MeinZipper.Entries.Count > 0 then
    MeinZipper.SaveToFile('Testzip.zip');
  MeinZipper.Free;
end;

Das Ganze noch in einen Try-Except-Block und schon sollte es passen.

[Warf]

Parameter von AddFileEntry:
ADiskFileName (die zu packende Datei mit Pfad)
AArchiveFileName (der Dateiname mit Pfad in dem Archiv)

Nun musst du noch das Zip erstellen (so oder wie im Wiki beschrieben):

Code: Alles auswählen

begin
  MeinZipper := TZipper.Create;
  MeinZipper.Entries.AddFileEntry('C:\Users\User\Documents\Lazarus\Projekte\Zip\ziptest.lpi'{, 'Testzip.zip'});
  if MeinZipper.Entries.Count > 0 then
    MeinZipper.SaveToFile('Testzip.zip');
  MeinZipper.Free;
end;

Das Ganze noch in einen Try-Except-Block und schon sollte es passen.

Das könnte Problematisch werden, da dann im Zip Archiv intern ein Pfad mit C:\ losgehen würde, und dir die meisten Zip Programme das dann nicht mehr finden können. Ich würde es so machen:

Code: Alles auswählen

begin
  MeinZipper := TZipper.Create;
  MeinZipper.Entries.AddFileEntry(path, CreateRelativePath(path, ExtractFileDir(path))); // benötigt uses LazFileUtils
  if MeinZipper.Entries.Count > 0 then
    MeinZipper.SaveToFile('Testzip.zip');
  MeinZipper.Free;
end;

[Michl]

Recht hast du. War mir noch gar nicht aufgefallen. Ich nutze hauptsächlich den TotalCommander, der kann so ein Zip öffen, der Windows Explorer nicht.

[Andromeda]

ich mach das jetzt so, wie Warf das vorgeschlagen hat, und es funktioniert einwandfrei. Vielen Dank @Warf. Aber ein kleines Problem habe ich noch: Die Dateien, die gepackt werden sollen, trage ich über einen OpenDialog in eine Listbox ein. Der Zipper holt sich die Dateien also aus der Listbox. Aber irgendwie schaffe ich es nicht, auch Verzeichnisse in die Listbox einzutragen. Ich habe mir schon sämtliche Optionen beim OpenDialog angeschaut, finde aber keine entsprechende Einstellung. Stell ich mich da nur zu dämlich an? Das muss doch irgendwie auch gehen. Oder?