[Zur Info] FileExists hängt Rechner auf

[berens]

Hatte mich eben gewundert, warum mein Programm, das sonst soweit einwandfrei funktioniert, auf einmal komplett hängt und sich selbst über den Taskmanager und Delphi "Ausführen abbrechen (Strg + F2)" nicht mehr beenden lässt. Sogar "Prozess beenden" brachte im Taskmanager nichts mehr.

Ursache des Ganzen: Ich habe mit FileExists einen UNC-Dateipfad prüfen wollen, der aus der Einstellungs-Datei vom Kunden kommt. Dieser verweist auf einen PC/Server, den es bei mir im Netzwerk natürlich nicht gibt. Da Windows aber einen ziemlich hohen TimeOut für diese Überprüfung hat (schon so ~ 2 Minuten) wirkt das Programm wie abgestürzt.

Wer es selbst mal probieren möchte:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  t: string;
begin
  t := 'c:\1.txt';
  ShowMessage(BoolToStr(FileExists(t), True)); // Kein Problem

  t := '\\foobarsample\foo\bar\file1.txt';
  ShowMessage(BoolToStr(FileExists(t), True)); // mind. 2 Minuten warten, dann kommt die Meldung und das Programm reagiert wieder
end;

[franktron]

Das ist keine Problem von Delphi sonder von Windows der Findet die den Server nicht und dann dauert das ca. 2 Min bis Win wieder reagiert.

[Luckie]

Lösung wäre, das ganze in einen Thread packen und mit WaitForSingleObject auf dessen Signalisierung zu warten. Wenn dir die zwei Minuten zu lang sind, kannst du auch einen kürzeren Timeout angeben bei WaitForSingleObject.