Ich hab mal kurz die
Abbrevia 3.05 BETA 6 von Sourceforge heruntergezogen und installiert.
Das ist die aktuellste
BETA
Dabei habe ich folgende 2 Varianten ausprobiert
Neu war, dass
AbZipper1.FileName den Pfad noch benötigt, naja
Delphi-Quellcode:
try
AbZipper1.BaseDirectory := '
C:\mypath\';
AbZipper1.FileName := '
C:\mypath\my.zip';
AbZipper1.AddFiles('
*.*', faReadOnly
or faDirectory
or faArchive
or faAnyFile);
AbZipper1.Save;
AbZipper1.CloseArchive;
ShowMessage('
zipped');
except
on E:
Exception do ShowMessage('
NO: ' + E.
Message);
end
und die 2te Variante
Delphi-Quellcode:
try
AbZipper1.BaseDirectory := '
C:\mypath\';
AbZipper1.FileName := '
C:\mypath\my.zip';
AbZipper1.AddFiles('
*.*', 0);
AbZipper1.Save;
AbZipper1.CloseArchive;
ShowMessage('
zipped');
except
on E:
Exception do ShowMessage('
NO: ' + E.
Message);
end
Zitat:
??? Bahnhof ???
Was für eine Antwort erwartest du mit dieser Zeile?
Zitat:
Ansonten hab ich keine Ahnung wie ich das mit dem Debugger machen soll.
Wie der Debugger funktioniert, wie man Komponenten debuggt oder den Compiler-Schalter dafür einstellt,
steht einmal im Handbuch oder du sucht nach Tutorials
Abschließend zusammenfassend.
Mit der V3.05Beta6 habe ich in beiden oben stehenden Varianten jeweils eine my.zip erzeugen können,
die Dateien mit Unterverzeichnissen beinhaltet. Die Dateien der Unterverzeichnisse waren ebenfalls in der ZIP-Datei enthalten.
Reproduzierbar.
Der Bug wie auf sourceforge nachzulesen ist, dass leere Unterverzeichnisse nicht mit aufgenommen werden, dürfte auch bekannt sein.