Class TPing (unit AHicmp) |
Inherits from
TICMP
@\\\*) (*@/// TPing=class(TICMP)
constructor Create(Aowner:TComponent);
- @\\\000C000301000301000301*) (*@\\\000000081C*) (*@/// class tping(TICMP) *) (*@/// constructor TPing.
procedure action;
@\\\0000000401*) (*@/// procedure TPing.
procedure ReceiveSock;
@\\\0000000A01*) (*@/// procedure TPing.
procedure ResetStatistics;
@\\\000000060F*) (*@/// procedure TPing.
procedure SendSock;
@\\\*) (*@/// procedure TPing.
procedure WndProc(var Msg : TMessage);
@\\\0000000701*) (*@/// procedure TPing.
function GetRoundtimeMed:extended;
@\\\0000000315*) (*@/// function TPing.
function GetRoundtimeMin:longint;
@\\\0000001501*) (*@/// function TPing.
procedure UpdateStatistics(roundtime:longint);
@\\\0000000716*) (*@/// procedure TPing.
property Blocksize : byte
property Hostname : string
property Timeout : cardinal
property TimeToLive : byte
property MaximumRoundttime : longint
property MeanRoundttime : extended
property MinimumRoundttime : longint
property ReceivedPackets : integer
property SentPackets : integer
event OnPing : TPingEvent
f_no_of_packets_rec : integer;
f_no_of_packets_snd : integer;
f_on_ping : TPingEvent;
f_roundtime_max : longint;
f_roundtime_med : extended;
f_roundtime_min : longint;
constructor Create(Aowner:TComponent);
@\\\000C000301000301000301*) (*@\\\000000081C*) (*@/// class tping(TICMP) *) (*@/// constructor TPing.Create(Aowner:TComponent);
procedure action;
@\\\0000000401*) (*@/// procedure TPing.action;
procedure ReceiveSock;
@\\\0000000A01*) (*@/// procedure TPing.ReceiveSock; // receive a ICMP packet
procedure ResetStatistics;
@\\\000000060F*) (*@/// procedure TPing.ResetStatistics;
procedure SendSock;
@\\\*) (*@/// procedure TPing.SendSock; // send a ICMP packet
procedure WndProc(var Msg : TMessage);
@\\\0000000701*) (*@/// procedure TPing.WndProc(var Msg : TMessage);
function GetRoundtimeMed:extended;
@\\\0000000315*) (*@/// function TPing.GetRoundtimeMed:extended;
function GetRoundtimeMin:longint;
@\\\0000001501*) (*@/// function TPing.GetRoundtimeMin:longint;
procedure UpdateStatistics(roundtime:longint);
@\\\0000000716*) (*@/// procedure TPing.UpdateStatistics(roundtime:longint);
property Blocksize : byte
property Hostname : string
property Timeout : cardinal
property TimeToLive : byte
property MaximumRoundttime : longint
property MeanRoundttime : extended
property MinimumRoundttime : longint
property ReceivedPackets : integer
property SentPackets : integer
event OnPing : TPingEvent
f_no_of_packets_rec : integer;
f_no_of_packets_snd : integer;
f_on_ping : TPingEvent;
f_roundtime_max : longint;
f_roundtime_med : extended;
f_roundtime_min : longint;