Hallo,
zur Erfolgsprüfung solltes Du das entsprechende Ereignis nutzen:
PingReply(ASender: TComponent; const AReplyStatus: TReplyStatus);
Dort kannst Du dann auf Erfolg oder Misserfolg abfragen:
Delphi-Quellcode:
Case AReplyStatus.ReplyStatusType Of
rsEcho : Begin
sPingLogResult := 'erfolgreich';
End;
rsError : Begin
sPingLogResult := 'Fehler';
End;
rsTimeOut : Begin
sPingLogResult := 'TimeOut';
End;
rsErrorUnreachable : Begin
sPingLogResult := 'nicht Erreichbar';
End;
rsErrorTTLExceeded : Begin
sPingLogResult := 'TTL überschritten';
End;
End;
sPingLogResult sei hier eine global deklarierte Stringvariabel.