Ping an ipaddress
by Allan Greis Eriksen
Ping an IP address
by Allan Kim Eriksen
This package can be used to ping a specific ip-address.
Class properties:
psIPAddress - Replying address
piStatus - Reply status
piRoundTripTime - Reply Round trip time, in milliseconds
piTimeToLive - Time to live for the ping, in milliseconds
Use ping
Object oPing is a cPing
Procedure DoPing
Get Ping "whateverip" to iResult
If (iResult <> ICMP_SUCCESS) begin
Get EvaluatePingResponse iResult to sErrorText
Error DFERR_PROGRAM sErrorText
End
Else begin
Get piStatus to iResonsetime
End
End_Procedure
End_Object
Download
ping package ~ 13kb
|