Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by -Phantom-,
24. Mai 2010
Ich kann das ja auch weg lassen bring aber nicht viel. Dann lass ich .cab wohl aus dem Programm raus...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by -Phantom-,
24. Mai 2010
Ja ich hab es nun auch gemacht aber das Problem ist doch noch nicht ganz weg.
Nun werden zwar mehrere Dateien in das Archive gepackt aber immer wenn man auf den Button drauf drückt wird das wieder überschrieben
procedure TForm2.sBitBtn8Click(Sender: TObject);
{...}
if (label1.Caption = 'Neu') and (neuendung = '.cab') then begin
opendialog2.Execute;
abmakecab1.FileName :=...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by -Phantom-,
23. Mai 2010
Danke dir Matthias
Es lag aber nicht an dem abmakecab.close sondern abmakecab.filename := ...
So nun meine Lösung:
Das mit dem Cabs{..} ganz weg lassen
Man erstellt nun die Datei beim einfügen der ersten Datei :
opendialog2.Execute;
abmakecab1.FileName := neupfad+'.cab'; // das darf nicht mit in die Schleife
i2 := opendialog2.Files.Count;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by -Phantom-,
23. Mai 2010
Hey Leute,
Ich versuche grade ein .cab Archive zu erstellen und das so:
procedure Tform4.cab(CabS : String);
var
datei : String;
begin
form2.AbMakeCab1.FileName := Cabs;
form2.AbMakeCab1.OpenArchive(cabs);
datei := Extractfilename(neupfad);