Delphi-Quellcode:
procedure TForm1.saveClick(Sender: TObject);
begin
AbZipKit1.BaseDirectory := 'c:\zipme\';
AbZipKit1.OpenArchive('c:\zipme\test.zip');
AbZipKit1.AddFiles('*.ini', 0);
AbZipKit1.AddFiles('*.txt', 0);
AbZipKit1.CloseArchive;
end;
procedure TForm1.restoreClick(Sender: TObject);
begin
AbZipKit1.BaseDirectory := 'c:\zipme\';
AbZipKit1.OpenArchive('c:\zipme\test.zip');
AbZipKit1.ExtractFiles('*.ini');
AbZipKit1.CloseArchive;
end;
Du kannst bei AddFiles() bzw. ExtractFiles() alles angeben was du möchtest, falls die Datei nicht vorhanden ist passiert eben nix. Die Methoden lassen sich beliebig oft auf ein Archiv anwenden. Nur Das Arbeitsverzeichnis (BaseDirectory) sollte gültig sein, sonst knallst.
Gruß Stefan!
Edit:
Mich würde aber mal interessieren, was er bei dir zu TAbArchiveItem sagt ? Ich kann den Bezeichner nicht finden und somit das Beispiel nicht anwenden. Seltsamerweise ist der Typ aber noch in anderen Beispielen genutzt wurden.