hm... kann mir da keiner helfen?
im bezug auf die Netzwerkserver hab ich das Problem das ich einen Ping sende und immer nur eine antwort bekomme, und wen diese aus welchen Gründen auch immer ein Request Time Out ist - weil das netzwerk grade ausgelatet ist oder so - löst er gleicht meine Fehlerbenachrichtigung aus.
Wie kann ich sagen wir 4 Ping Antworten haben und schaun eine davon durchkommt und erst wenn alle 4 Time Out haben in meine Fehlerbenachrichtigung wechseln
Delphi-Quellcode:
procedure TForm1.Timer3Timer(Sender: TObject);
var i: integer;
Dateiname: TStringList;
begin
if FileExists('
XXX.txt')
then
begin
ICMP.OnReply := ICMPReply;
i := 0;
Dateiname := TStringList.Create;
Dateiname.LoadFromFile('
XXX.txt');
while i <= Dateiname.Count - 1
do
begin
ICMP.Host := Dateiname.Strings[i];
ICMP.Ping;
Application.ProcessMessages;
i:= i + 1;
end
end
end;
procedure TForm1.ICMPReply(ASender: TComponent;
const AReplyStatus: TReplyStatus);
var cam:
string;
datum:
string;
zeit:
string;
begin
datum := DateToStr(Date);
zeit := TimeToStr(now);
if AReplyStatus.TimeToLive = 0
then ShellExecute(
Handle, PChar('
open'), PChar('
mailto.exe'),
nil,
nil, SW_SHOW);
end;