Hey Leute,
Ich versuche grade ein .cab Archive zu erstellen und das so:
Delphi-Quellcode:
procedure Tform4.cab(CabS : String);
var
datei : String;
begin
form2.AbMakeCab1.FileName := Cabs;
form2.AbMakeCab1.OpenArchive(cabs);
datei := Extractfilename(neupfad);
form2.AbMakeCab1.AddFiles(datei,0);
form2.AbMakeCab1.CloseArchive;
//Der Aufruf
Delphi-Quellcode:
procedure TForm4.sButton2Click(Sender: TObject);
{...}
cab(neupfad+'.cab');
{...}
end;
Das Archive wird auch erstellt soweit so gut.
Nun will ich mehr Dateien einfügen und das so:
Delphi-Quellcode:
opendialog2.Execute;
i2 := opendialog2.Files.Count;
for i := 0 to i2-1 do begin
neudatei := Extractfilename(opendialog2.Files[i]);
item := slistview2.Items.Add;
item.Caption := neudatei;
item.SubItems.Add(Extractfilename(neupfad)+'\'+neudatei);
abmakecab1.FileName := neupfad+'.cab';
abmakecab1.AddFiles(Extractfilename(opendialog2.Files[i]),0);
abmakecab1.CloseArchive;
Aber im Archive ist immer nur 1 Datei, ich kann so viele einfügen wie ich will immer nur eine
Ich glaube, das sich das Archive immer wieder neu erstellt.
Wisst ihr was das Problem ist?
PS: Bei den Beispielen von Abbrevia habe ich nichts brauchbares gefunden
----------------------------------------------------------------------
Gruß
Mathias