Datei in einer zip löschen

[-Phantom-]

Hey Leute,

Ich bin ja grade dabei einen "Entpacker" zu programmieren. Ich hab es nun so gemacht das man eine .zip öffnen kann und dann können die Inhalte angezeigt werden. Nun wollte ich es so machen das einzelne Dateien gelöscht werden können. Mein
versuch:

Delphi-Quellcode:

procedure TForm2.sBitBtn6Click(Sender: TObject);
var
i : Integer;
begin
with slistview1 do
 for i := 0 to Items.Count - 1 do
if Items[i].Selected then
begin
abzipper1.OpenArchive(openarchive);
delepf := items[i].SubItems[0]; // der Pfad z.B C:\blala....
abzipper1.DeleteFiles(delepf);
abzipper1.CloseArchive;
end;
slistview1.Selected.Delete;
end;

end.

Wisst ihr was ich falsch mache?
// das Problem ist das die Datei immer noch vorhanden ist

[DeddyH]

Ja, Du formatierst Deinen Code nicht und verschweigst uns die Fehlermeldung. Ich vermute, DeleteFiles will einen TStrings-Abkömmling als Parameter.

[mkinzler]

Und versuche auf globale variablen zu verzichten

[-Phantom-]

@daddyh

Ich bekomme keine Fehlermeldung ?!

und wie formatiere ich mein code den richtig?

[DeddyH]

Wie man Code formatieren sollte, kannst Du im StyleGuide nachlesen. Und zum Problem: ist das Abbrevia? Falls ja, sind da IIRC auch Demos dabei, da könntest Du spicken.

[-Phantom-]

Ja es ist die Komponente, aber ich finde in den Demos nichts verwendbares

[mkinzler]

Das ZipView Beispiel sollte aber hilfreich sein :zwinker:

[-Phantom-]

hab das hier gefunden

Delphi-Quellcode:

procedure TForm1.Delete1Click(Sender: TObject);
var
  i : Longint;
begin
  Panel1.Caption := '';
  with AbZipView1 do
    for i := 0 to Pred(Count) do
      Items[i].Tagged := Selected[i];
  AbZipKit1.DeleteTaggedItems;
  Panel1.Caption := '';
end;

Aber Problem: ich benutze nicht die AbzipView1 sonder die listview1 und die hat kein "tagged".
Geht das auch mit der normalen listview?

[cookie22]

Zitat:

Zitat von -Phantom-

hab das hier gefunden

Delphi-Quellcode:

procedure TForm1.Delete1Click(Sender: TObject);
var
  i : Longint;
begin
  Panel1.Caption := '';
  with AbZipView1 do
    for i := 0 to Pred(Count) do
      Items[i].Tagged := Selected[i];
  AbZipKit1.DeleteTaggedItems;
  Panel1.Caption := '';
end;

Aber Problem: ich benutze nicht die AbzipView1 sonder die listview1 und die hat kein "tagged".
Geht das auch mit der normalen listview?

du mußt halt deine markierten items abfragen. was für eine komponente benutzt du überhaupt?

[mkinzler]

Zitat:

was für eine komponente benutzt du überhaupt?

Wie in #5/#6 zu lesen ist TurboPower Abbrevia

[-Phantom-]

@cookie
mach ich doch hier

Delphi-Quellcode:

begin 
with slistview1 do 
for i := 0 to Items.Count - 1 do 
if Items[i].Selected then 
begin 
abzipper1.OpenArchive(openarchive); 
delepf := items[i]..SubItems[0];

oder nicht?
:?:

[mkinzler]

Man kann aber nicht unbedingt davon ausgehen, das die Indizes der beiden Listen identisch sind

[cookie22]

gib es da nicht ne list die man befüllen kann? so kenn ich das von delzip, zipforge oder ziptv. ansonsten mußt du die datei namen abgleichen.

[-Phantom-]

Ja in der Komponente gibt es ne Abzipview. Aber ich benutze eine ganz normale Listview und möchte das auch beibehalten. Wie mache ich das den nun mit der ganz normalen Listview?

[mkinzler]

Du musst den passenden Eintrag suchen

[-Phantom-]

Ja wo den?

[-Phantom-]

Keiner ne Idee? Ich hab das gleiche Problem auch wenn ich Dateien die sich noch in der zip befinden ausführen will.
Wie muss ich das machen?

[-Phantom-]

das mit dem Ausführen hab ich nun hinbekommen

Delphi-Quellcode:

var
runfile : String;
i : Integer;
begin
for i := 0 to slistview1.Items.Count -1 do
begin
if slistview1.Items[i].Selected then
begin
abunzipper1.FileName := openpf;
abunzipper1.BaseDirectory := extractfilepath(openpf);
runfile := extractfilepath(openpf)+slistview1.Items[i].Caption;
abunzipper1.ExtractFiles(runfile);
abunzipper1.OpenArchive(openpf);
shellExecute(0,
        Nil,
        PChar(runfile),
        Pchar(''),
        Pchar('C:\StartDir'),
        SW_NORMAL);
        label2.Caption := runfile;
        end;
end;
end;

[cookie22]

Zitat:

Zitat von -Phantom-

das mit dem Ausführen hab ich nun hinbekommen

Delphi-Quellcode:

var
runfile : String;
i : Integer;
begin
for i := 0 to slistview1.Items.Count -1 do
begin
if slistview1.Items[i].Selected then
begin
abunzipper1.FileName := openpf;
abunzipper1.BaseDirectory := extractfilepath(openpf);
runfile := extractfilepath(openpf)+slistview1.Items[i].Caption;
abunzipper1.ExtractFiles(runfile);
abunzipper1.OpenArchive(openpf);
shellExecute(0,
        Nil,
        PChar(runfile),
        Pchar(''),
        Pchar('C:\StartDir'),
        SW_NORMAL);
        label2.Caption := runfile;
        end;
end;
end;

du solltest um dateien auszuführen ins temp verzeichnis von windows entpacken.

Zitat:

Zitat von -Phantom-

...und wie formatiere ich mein code den richtig?

wenn du deinen code nicht selbst formatieren magst, schau mal hier:
http://www.aew.wur.nl/UK/Delforexp/

[-Phantom-]

Ich habe es nun auch geschafft die Dateien zulöschen...

Delphi-Quellcode:

 
var
filesource, filedest,datei, d2,filen: String;
i : Integer;
begin
// bei vista öffnen
if (windowsversion = '6.0') and (slabel1.Caption = 'Öffnen') then begin
filesource := openpf;
createdir('C:\Program Files\Ultimate Zip\temp2\');
filen := 'C:\Program Files\Ultimate Zip\temp2\';
filedest := 'C:\Program Files\Ultimate Zip\temp2\'+Extractfilename(openpf);
CopyFile(PChar(fileSource), PChar(fileDest), True);
abzipper1.CloseArchive;
abunzipper1.CloseArchive;
deletefile(openpf);
abunzipper1.FileName := filedest;
abunzipper1.BaseDirectory := Extractfilepath(filedest);
abunzipper1.ExtractFiles('*.*');
abunzipper1.CloseArchive;
abzipper1.CloseArchive;
deletefile(filedest);
for i := 0 to slistview1.Items.Count -1 do
begin
if slistview1.Items[i].Selected then  begin
datei := StringReplace(slistview1.Items[i].Caption,'/','\',[rfReplaceAll]);
d2 := filen+Extractfilename(datei);
label2.Caption := d2;
deletefile(d2);
zz2(openpf);
DeleteFile('C:\Program Files\Ultimate Zip\temp2\*.*');
slistview1.Items.Delete(i);
end;
end;

// ist nicht grade Elegant gelöst, aber gelöst