Zitat:
kommt die Fehlermeldung: undeclared Identifier
verstehe ich nicht
Zitat:
kommt die Fehlermeldung: Incompatible Types
bei mir nicht reproduzierbar
Welche Version verwendest du ?
bist du mal mit dem Debugger durch, die sourcen sind ja mit dabei
Zitat:
AbZipper1.AddFiles('*.*', 0);
wenn der Desktop gezipt wird, dann simmt das
BaseDirectory nicht
Ich bekomme bei diesem code keinen Fehler !
sonst hätte ich ihn ja nicht gepostet
Delphi-Quellcode:
try
AbZipper1.BaseDirectory := '
C:\mypath\';
AbZipper1.FileName := '
my.zip';
AbZipper1.StoreOptions := [soStripDrive, soRemoveDots, soRecurse];
AbZipper1.AddFiles('
*.*', 0);
AbZipper1.Save;
AbZipper1.CloseArchive;
ShowMessage('
zipped');
except
on E:
Exception do ShowMessage('
NO: ' + E.
Message);
end
und diese Variante geht auch
Delphi-Quellcode:
try
AbZipper1.BaseDirectory := '
C:\mypath\';
AbZipper1.FileName := '
my.zip';
AbZipper1.AddFiles('
*.*', 0);
AbZipper1.Save;
AbZipper1.CloseArchive;
ShowMessage('
zipped');
except
on E:
Exception do ShowMessage('
NO: ' + E.
Message);
end
und die Komponente ist so im
dfm-file beschrieben
Delphi-Quellcode:
object AbZipper1: TAbZipper
AutoSave = True
DOSMode = False
StoreOptions = [soStripDrive, soRemoveDots, soRecurse]
Left = 120
Top = 72
end
versuche zuerst über einen statischen Pfad eine Lösung zu finden,
wenn es dann funktioniert kannst du immer noch ExtractFilePath(FileName) verwenden