KaZip Dateien packen

**Gehstock**

will wie gesagt ein archiv erzeugen mit ca 35 dateien
name der erstellten datei soll "test.sdt" sein

Delphi-Quellcode:

			begin

 with Open do begin//with OpenDialog

      FilterIndex:=1;

      InitialDir := ExtractFilePath(FileName);

      FileName := ExtractFileName(FileName);

//      DefaultExt := 'xbi';

//      Filter := 'XBI files (*.xbi)|*.XBI|All files (*.*)|*.*';

//      Title:='Open xbi File';

     end;//with OpenDialog

     if Open.execute then begin

     KAZip1.Active:=true;

      Kazip1.FileName := Open.FileName;

       Kazip1.CreateZip('test.sdt');

        KAZip1.Active:=false;

         Kazip1.Close;

end;

end;

und dann halt für die anderen 38 dateien das selbe(geht das oder wird ein zuvor erzeugtes file überschrieben und nicht erweitert)
mit dem code wird nur eine leere datei erstellt

Alternativ auch mit

markieren

Delphi-Quellcode:

			     if Open.execute then begin

     KAZip1.Active:=true;

//      Kazip1.FileNames.add(Open.FileName);

      Kazip1.AddFile(Open.FileName);

       Kazip1.CreateZip('test.sdt');

        KAZip1.Active:=false;

         Kazip1.Close;

getestet ohne erfolg immer noch leeres archiv

KaZip Dateien packen

KaZip Dateien packen

Forumregeln