Mein Code:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
| procedure TPingThread.Execute;
var
CurrentTimeStamp : String;
begin
if fileexists(FLogPath) then LogList.LoadFromFile(FLogPath);
LogList.Add('*******************************************');
LogList.Add(' Deskphone Gestartet');
LogList.Add('*******************************************');
while NOT Terminated do
begin
if FPing.Ping <> 0 then
begin
CurrentTimeStamp := FormatDateTime('dd.mm.yyyy hh:mm:ss" Host %s wurde nicht erreicht',Now);
Loglist.Add(Format(CurrentTimeStamp,[FPing.Address]));
LogList.SaveToFile(FLogPath);
end;
Sleep(FInterval*1000);
end;
end; |
*******************************
hier pinge ich einen Rechner. Wenn der Rechner nicht erreicht werden kann, wird die entsprechende Meldung in ein log file geschrieben. Nun schreibt es aber immer die Meldung ins log obwohl der Rechner erreichbar wäre. Was ist an dem Code falsch?
Danke vielmal! Gruss und schönen Tag