KaZip Dateien packen
will wie gesagt ein archiv erzeugen mit ca 35 dateien
name der erstellten datei soll "test.sdt" sein
Delphi-Quellcode:
und dann halt für die anderen 38 dateien das selbe(geht das oder wird ein zuvor erzeugtes file überschrieben und nicht erweitert)
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; mit dem code wird nur eine leere datei erstellt Alternativ auch mit
Delphi-Quellcode:
getestet ohne erfolg immer noch leeres archiv
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; |
Re: KaZip Dateien packen
Hallo,
schonmal in diesen Thread geschaut? Vielleicht auch erst create und dann add und nicht umgekehrt. Grüße Klaus |
Re: KaZip Dateien packen
Edit so gehts
Delphi-Quellcode:
allerdings packt er jetzt alle ordner mit ins archiv
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 ExportFiles.Items.add(Open.FileName); // Kazip1.AddFile(Open.FileName); Kazip1.CreateZip('test.sdt'); Kazip1.FileName:='test.sdt'; KAZip1.Active:=true; Kazip1.AddFile(Open.FileName); // KAZip1.Comment:=ExportFiles.Items; KAZip1.Active:=false; Kazip1.Close; also pfad ist c:\dateien\1\test.exe dann sieht das zip so aus ordner "dateien"->ordner"1"->und dann erst das file es soll aber nur das file sein |
Re: KaZip Dateien packen
kann keiner helfen
Delphi-Quellcode:
bewirkt scheinbar nichts
FileName := ExtractFileName(FileName);
|
Re: KaZip Dateien packen
Versuch es mal bitte mit dieser Funktion>
Delphi-Quellcode:
Dort kannst Du einen RootFolder angeben, ich denke der wird dann nicht mehr im FileNamen auftauchen.
Function AddFilesAndFolders(FileNames:TStrings; RootFolder:String; WithSubFolders : Boolean):Boolean;
Gruesse Klaus |
Re: KaZip Dateien packen
aber die dateien die ich hinzufügen möchte liegen nicht alle im selben folder
kann man den filename nicht einfach hinter dem letzten "\" abschneiden bin daq leider noch nicht so erfahren |
Re: KaZip Dateien packen
Ich denke einmal so wird es nicht gehen:
Delphi-Quellcode:
Alternative wäre, alle Files in eine temp Ordner zu kopieren und dann mit AddFilesAndFolders
Kazip1.AddFile(ExtractFileName(Open.FileName));
zu arbeiten. Oder sich die Sourcen zu AddFile anschauen und den Teil ändern welcher die Pfade mit in die Liste packt. Grüße Klaus |
Re: KaZip Dateien packen
habs hinbekommen war mein fehler
so nu muss noch ein text aus einen Memo mit ins archiv
Delphi-Quellcode:
soll also ins archiv it den namen "config.sdt" da fehlt ihm aber ein parameter
Kazip1.AddFile(Memo1.Lines.SaveToFile,'config.sdt');
|
Re: KaZip Dateien packen
Erst Speichern dann dem Achiv hinzufügen:
Delphi-Quellcode:
Memo1.Lines.SaveToFile('config.sdt');
Kazip1.AddFile('config.sdt'); |
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:18 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz