Class TPing (unit AHicmp)

Inherits from

TICMP

@\\\*) (*@/// TPing=class(TICMP)

Constructors


constructor Create(Aowner:TComponent);

@\\\000C000301000301000301*) (*@\\\000000081C*) (*@/// class tping(TICMP) *) (*@/// constructor TPing.


Functions

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.

Properties

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


Events

event OnPing : TPingEvent


Variables

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;



Constructors


constructor Create(Aowner:TComponent);

@\\\000C000301000301000301*) (*@\\\000000081C*) (*@/// class tping(TICMP) *) (*@/// constructor TPing.Create(Aowner:TComponent);


Functions


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);


Properties


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


Events


event OnPing : TPingEvent


Variables


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;