Gelöschte Datei immer noch vorhanden?

[sko1]

Hallo,

ich habe ein ganz komisches Verhalten:

Delphi-Quellcode:

          bild1 := 'c:\temp\pdf1.pdf';
          bild2 := 'c:\temp\pdf2.pdf';
          if TFile.Exists(bild2) then
            TFile.Delete(bild2);
          try
            TFile.Copy(bild, bild2);
          except
            showmessage(bild2 + ' wurde gelöscht, ist aber noch vorhanden !');
          end;

Bei mehrfachem schnellen Aufruf dieses Codeschnipsels kommt ab und zu die Messagebox!

Was ist denn da los und viel wichtiger, wie bekommt man das korrigiert?

Ciao
Stefan

[nahpets]

Liefert TFile.Delete keinen Rückgabewert, der Dir was zum Erfolg / Misserfolg des Löschens sagt?

Zuerst mal den abfragen.

EDIT:

Ok, habe mal unter http://docwiki.embarcadero.com/Libra...s.TFile.Delete geschaut, Delete ist 'ne Prozedur, also nix mit Rückgabewert.

Ist wohl anders als beim DeleteFile aus Delphi 7-Zeiten.

Das Try würd' ich etwas abwandeln:

Delphi-Quellcode:

try
  TFile.Copy(bild, bild2);
except
  on e : Exception do begin
    showmessage(e.Message + #13 + bild2 + ' wurde gelöscht, ist aber noch vorhanden !');
  end;
end;

Im Except-Block die gelieferte Fehlermeldung nicht auszuwerten, dafür aber die eigene, vermutete bzw. erwartete Fehlermeldung auszugeben, halte ich nicht zwingend für eine gute Idee. Man kann mit seiner Annahme richtig liegen, muss es aber nicht.

[bcvs]

Lass mal das try - except weg, damit du die Exception im Original angezeigt bekommst.

[Uwe Raabe]

Zitat von nahpets:

Liefert TFile.Delete keinen Rückgabewert, der Dir was zum Erfolg / Misserfolg des Löschens sagt?

Nein, denn TFile.Delete ist eine procedure. Es würde aber eine Exception ausgelöst, wenn das nicht klappen würde.

[jaenicke]

Das passierte bei Bildern ganz gerne mal, wenn der Windows Explorer noch ein Handle für die Vorschau offen hatte. Oder auch bei Virenscannern.
Eigentlich sollte das aber nicht mehr auftreten, denn seit Windows 8 kehrt die Funktion zum Löschen normalerweise erst zurück, wenn das Löschen nicht nur erfolgreich, sondern auch komplett abgeschlossen ist.

Warum löschst du eigentlich vorher und gibst nicht einfach als dritten Parameter an TFile.Copy True mit? Denn wenn du direkt angibst, dass die Zieldatei überschrieben werden soll, hast du doch den gleichen Effekt, nur ohne zusätzliches Löschen.

[sko1]

Vielen herzlichen Dank!
Der dritte Parameter war mir gar nicht bewusst, zumal die Codevervollständigung nur die Variante mit 2 Parametern anbietet!

Der gepostete Code war "Dummycode", ich fang schon die Exception richtig ab und da bekam ich eben "File already exists" zurück...

Das Problem sollte damit gelöst sein!

Ciao
Stefan

[Bernhard Geyer]

Zitat von jaenicke:

Das passierte bei Bildern ganz gerne mal, wenn der Windows Explorer noch ein Handle für die Vorschau offen hatte. Oder auch bei Virenscannern.

Würde ich auch sagen das oft der Virenscanner der schuldige

Zitat von jaenicke:

Eigentlich sollte das aber nicht mehr auftreten, denn seit Windows 8 kehrt die Funktion zum Löschen normalerweise erst zurück, wenn das Löschen nicht nur erfolgreich, sondern auch komplett abgeschlossen ist.

Eigentlich. Habe hier Win8.1 und auch öfter den Fall. Behelfe mich jetzt mit ein DeleteAndWaitAndRetry-Hilfsfunktion die ich an Problematischen Stellen einbaue.