FileExists mit UNC Dateifreigabe

[ol1uw]

Hallo Allerseits

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  FileHandle    : Integer ;
  Exists   : Boolean ;   
Begin

  FileHandle := FileOpen('\\192.168.1.2\public\test.txt', fmOpenRead or fmShareDenyNone);
  if FileHandle > 0 then
   Begin
    Exists:=True;
    Fileclose(FileHandle);
   end
  else
    Exists:=False;

end;




procedure TForm1.FormCreate(Sender: TObject);
var
  Exists   : Boolean ;

Begin
 Exists := FileExists('\\192.168.1.2\public\test.txt');
end;

Beide Versuche funktionieren prima solange die Freigabe existiert, wenn nun aber das Freigabe nicht erreichbar ist
(Computer aus) benötigen beide ca. 10 - 20 Sekunden um festzustellen das die Datei nicht existiert.
Nun die Frage gibt es eine "schnellere" Methode ? bzw.
Wie die Erreichbarkeit einer Freigabe testen ?

MfG Uwe

[SirThornberry]

du könntest nur selbst vorher ein ping versuchen oder ein connect auf den Freigabeport mit entsprechneder Timeouteinstellung. Von Windows her liegt das Timeout eben höher und deshalb die 20 Sekunden oder so

[ol1uw]

Danke für den Tip

Du meinst so in etwa

Delphi-Quellcode:

  function ShareOnline(unc: string): Boolean;
  var
    IdTCPClient1: TIdTCPClient;
  begin
    if Pos('\\', unc) = 1 then
    begin
      IdTCPClient1 := TIdTCPClient.Create(Self);
      with IdTCPClient1 do
      begin
        Name := 'IdTCPClient1';
        Port := 139;
      end;
      Delete(unc, 1, 2);
      Delete(unc, Pos('\', unc), Length(unc));
      IdTCPClient1.Host := unc;
      try
        IdTCPClient1.Connect(500);
      except
        Result := false;
      end;
      if IdTCPClient1.Connected then
      begin
        IdTCPClient1.Disconnect;
        Result := true;
      end;
    end;
  end;

P.S. Die BackSlash's waren auch beim ersten alle da

[SirThornberry]

ja von der funktionalität meinte ich genau das