DeleteFile löscht gewünschte Datei nicht

[Bjoerk]

wenn du das mit dem Antivirenprogramm bezweifeslt, dann kannst du dir das mit dem sleep sparen.:-D

[himitsu]

nimm' lieber SysErrorMessage oder gleich SysErrorMessage :angle2:
> http://www.delphipraxis.net/158106-r...parameter.html (da DeleteFile = RenameFile, nja fast, paßt es ja)

[Metallicwar]

Delphi-Quellcode:

procedure TfrmBankenDownload.ZIPAusführen;
var
  sExePfad, sZIPPfad: String;
  AbZIPEntpacken : TAbUnZipper;
begin
  sZIPPfad := ExtractFilePath(ParamStr(0))+'Bankdaten.zip';
  TRY
    ftpDateiDownload.Get('Bankdaten.zip',sZIPPfad, true);
  EXCEPT
    on E: Exception do
    ShowMessage('Beim Download der ZIP Datei ist ein Fehler aufgetreten.' + sLineBreak +
                'Exception class name = '+E.ClassName + sLineBreak +
                'Exception message = '+E.Message);
  END;
  TRY
    begin
      AbZIPEntpacken := TAbUnZipper.Create(Self);
      sExePfad := ExtractFilePath(Application.ExeName);
      AbZIPEntpacken.FileName := sZIPPfad;
      AbZIPEntpacken.BaseDirectory := (sExePfad+'Bankdaten');
      AbZIPEntpacken.ExtractFiles('*.*');
      Application.ProcessMessages;
    end;
  EXCEPT
    on E: Exception do
    begin
      ShowMessage('Es ist ein Fehler beim Entpacken der ZIP Datei aufgetreten.' + sLineBreak +
                  'Exception class name = '+E.ClassName + sLineBreak +
                  'Exception message = '+E.Message);
    end;
  END;
  AbZIPEntpacken.Free;
  SysUtils.DeleteFile(sZIPPfad);
  ftpDateiDownload.Disconnect;
end;

also so wie's aussieht, lag schon von himitsu vermutet, an der ZIP Komponente, hab sie jetzte mal zur Laufzeit erzeugt und siehe da, es funktioniert !

Vielen Dank für die Hilfe ! :dp:

[Lemmy]

Hi,

ein AbZipXX.close hätte vor dem Delete vermutlich auch schon ausgereicht...

Grüße

[himitsu]

Wenn diese Komponente ordentlich geschrieben ist, sollte man auch irgendwie die Datei wieder schließen/freigeben können.

Ich kenn diese allerdings nicht, aber eventuell gibt es ja sowas wie

Delphi-Quellcode:

AbZIPEntpacken.CloseFile

oder

Delphi-Quellcode:

AbZIPEntpacken.FileName := '';

[Assarbad]

Zitat:

Zitat von himitsu (Beitrag 1085875)

War das nicht das, wofür man Adminrechte benötigt?

Wäre mir neu.

[himitsu]

Zitat:

Zitat von Assarbad (Beitrag 1085890)

Wäre mir neu.

Dort http://www.delphipraxis.net/89932-mo...tml#post610573 hat irgendwer ( :stupid: ) geschrieben, daß die zu löschenden Dateien in
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Contro l\Session Manager\FileRenameOperations eingetragen werden und braucht man für HKEY_LOCAL_MACHINE nicht nicht gewisse Rechte?

[Assarbad]

Zitat:

Zitat von himitsu (Beitrag 1085891)

Zitat:

Zitat von Assarbad (Beitrag 1085890)

Wäre mir neu.

Dort http://www.delphipraxis.net/89932-mo...tml#post610573 hat irgendwer ( :stupid: ) geschrieben, daß die zu löschenden Dateien in
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Contro l\Session Manager\FileRenameOperations eingetragen werden und braucht man für HKEY_LOCAL_MACHINE nicht nicht gewisse Rechte?

Daß die da eingetragen werden ist schon korrekt (es ist wohl ein Schlüssel und ein Wert die da potentiell infrage kommen). Allerdings hatte ich aus Konten heraus die wenig Rechte hatten nie ein Problem damit das Hinzuzufügen. Aber hast recht, ist mal ne interessante Frage der ich gleich mal mit IDA auf den Grund gehen werde ;)

[Metallicwar]

Zitat:

Zitat von himitsu (Beitrag 1085887)

Wenn diese Komponente ordentlich geschrieben ist, sollte man auch irgendwie die Datei wieder schließen/freigeben können.

Ich kenn diese allerdings nicht, aber eventuell gibt es ja sowas wie

Delphi-Quellcode:

AbZIPEntpacken.CloseFile

oder

Delphi-Quellcode:

AbZIPEntpacken.FileName := '';

CloseFile gibts nicht. und den FileName leer setzen, hab ich nicht probiert.

Aber diese Komponente ist nicht gut geschrieben, hat mein Kollege bestätigt. Er empfiehlt http://www.componentace.com/zip_comp...i_zipforge.htm

[Lemmy]

Zitat:

Zitat von Metallicwar (Beitrag 1085901)

CloseFile gibts nicht. und den FileName leer setzen, hab ich nicht probiert.

Wie schon oben beschrieben heißt die Methode in der aktuellen Version Close;

Zitat:

Zitat von Metallicwar (Beitrag 1085901)

Aber diese Komponente ist nicht gut geschrieben, hat mein Kollege bestätigt. Er empfiehlt http://www.componentace.com/zip_comp...i_zipforge.htm

sicherlich keine schlechte Entscheidung....