Anbei der leicht bearbeitete Text der Demo
Delphi-Quellcode:
procedure TForm1.test7zdemoClick(Sender: TObject);
var i:integer;
begin
// opendialog1.InitialDir := 'c:\';
// if not opendialog1.Execute then exit; // kein Opendialog
//Set archive filname
sevenzip1.SZFileName := 'c:\testvcl1.7z';
//Set Volumesize
// sevenzip1.VolumeSize := strtoint(volsize.text);
//Set rootdir for recuresive folder (if wanted)
sevenzip1.AddRootDir := 'c:\demo';
// If password7z.Text <> '' then Sevenzip1.Password := password7z.Text;
//Clear filelist
sevenzip1.Files.Clear;
sevenzip1.Files.AddString('C:\Demo\*.*');
// for i := 0 to opendialog1.Files.count-1 do
// sevenzip1.Files.AddString(opendialog1.Files[i]);
//add files
Sevenzip1.Add;
// Show result
//label1.caption := inttostr(i);
end;
Bis zur Erstellung der 7z Datei funktioniert es. Ich finde keinen Fehler im Text. Dennoch hat die Archivdatei 0 Byte Größe. Was wohl darauf hindeutet, daß keine Dateien gepackt werden.
Woran liegt das???
Vielleicht kann mir doch noch jemand helfen.