Mit Abbreviakomponente komplette Ordner zippen

[horst]

Ich verwende folgende Komponente um Dateien zu zippen.
http://sourceforge.net/projects/tpabbrevia/
Mein Problem ist das ich keine kompletten Ordner mitsamt Unterverzeichnissen zippen kann, hat das jemand schonmal gemacht.
Grüße
Horst

[Christian Seehase]

Moin Horst,

ich denke mal, dass Du in der Eigenschaft StoreOptions einfach nur soRecurse auf true setzen musst.

[APP]

Hallo Horst,
falls Deine Ordner leer sind, zippt Abbrevia diese nicht, sondern nur jene wo mindestens eine Datei drinnen ist!

Dies ist ein Problem (Bug?) von Abbrevia, ich habe vor einem halben Jahr auf SF nachgefragt, aber leider nie eine Antwort bekommen.
Der Code selbst war mir damals zu komplex um den Bug selbst zu finden. :cry:

[horst]

Danke Christian,
eine Frage habe ich noch dazu, darf man diese "freie" Komponente auch in kommerziellen Produnkten verwenden?
...grüße Horst

[horst]

@APP
Danke für den Hinweis :)

[horst]

Ich habe es nun mehr oder weniger hinbekommen.
Weniger, weil die Umlaute beim zippen verändert werden.
Aus -> süd wird -> s³d
Weiß jemand warum das so ist?

Delphi-Quellcode:

If DirectoryExists('C:\temp') Then
    try
      AbZipper1.LogFile := 'C:\temp'
             +'('
             +FormatDateTime('dd"-"mm"-"yyyy hh"_"nn',now)
        + ').log';
      AbZipper1.BaseDirectory := 'C:\temp';
      AbZipper1.FileName := 'C:\temp\test.zip';
      AbZipper1.TempDirectory := ExtractFilePath(Application.ExeName);
      AbZipper1.AddFiles('*',0);
      AbZipper1.Save;
      AbZipper1.CloseArchive;
      ShowMessage('OK: '
                        + 'C:\temp' + ' -> '
                        + AbZipper1.FileName);
    Except
      On E: Exception Do
        ShowMessage('NO: '
                        + E.Message);
    End;

End;

[Master_BB]

du kannst zumm zippen auch eine Klasse benutzen die mitgeliefert wird.
mußt mal danach suchen TCompressedStream, damit kannst du auch dateien packen