Hilfe zu Abbrevia

[boserPascal]

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.

[Privateer3000]

Vielen Dank!

Ich werd dies mal ausprobieren
und melde meine Erfolge

Auch zum Archiver werd ich das Testergebnis
mitteilen, aber alles erst nächste Woche.
Da meine Tochter 14 (Hallelulia) wird
ist angesagt

in diesem Sinne und Danke nochmal

Grüße

[Privateer3000]

Vielen Dank an alle
besonders an Stefan.

Alles funktioniert so wie ich wollte

Zu dem TAbArchiveItem...
welches Beispiel meinst du da konkret?

[boserPascal]

Ich meinte konkret das vorgeschlagene 3. Beispiel. Allerdings besteht von meiner Seite im Moment kein wirklicher Klärungsbedarf auf diese Frage. Weil mein Delphirechner das Zeitliche gesegnet hat und ich nicht vorhabe Delphi wieder zu installieren (im Moment). Ich glaub die Debugger von den verschiedenen IDEs beißen sich irgendwie! Auf jeden Fall brauch ich das Visual C++ dringender für mein Studium.