Einzelnen Beitrag anzeigen

Benutzerbild von Cyberaxx
Cyberaxx

Registriert seit: 15. Jul 2005
311 Beiträge
 
Delphi XE5 Professional
 
#1

Funktion FileExists Timeout

  Alt 11. Jul 2007, 06:48
Hallo,

habe ein Programm geschrieben, das in einem Netzwerk Rechner anpingt um zu sehen ob sie verfügbar sind.
Mit der zeit ist aber aufgefallen, das die Rechner zwar noch anpingbar waren, aber der Rechner so schon
weg war.
Da einiige Server sind und eine Standardfreigabe haben, überprüfe ich ob eine Datei(C:\Boot.ini)
verfügbar ist.

Delphi-Quellcode:
const
  FILENAMETOCHECK = '\\%s\C$\Boot.ini';

...

  if FileCheck then
    FileOK := FileExists( Format(FILENAMETOCHECK, [HostIP]) )
      else FileOK := True;
Eben ist aufgefallen, das teilweise die Standardfreigabe wieder mal abhanden ist...
Nun rennt der Scanner ständig in Timeouts und benötigt übermäßig lange um das
Result := False; zu bekommen. Gibt es andere Wege nach verfügbarkeit eines Rechners
sprich ob er noch arbeitet herauszufinden. Der ScannerClient ist so eingestellt,
das wenn der Server nach einer bestimmten Zeit mit einem Durchlauf nicht fertig ist
anfängt extrem zu meckern.
Ein Durchgang ergab sich aus Anzahl der zu scannenden Rechner * timeout der Ping Komponente.
Das überprüfen der Datei haut dies natürlich nun aus dem Rahmen...

Weiß hier jemand eine nette Alternative? Würde mich freuen
Daniel
Das Aufwachen aus einem boesen Traum muss einen nicht erleichtern. Es kann einen auch erst richtig gewahr werden lassen, was man Furchtbares getraeumt hat, vielleicht sogar welcher furchtbaren Wahrheit man im Traum begegnet ist!
  Mit Zitat antworten Zitat