Class TPing (unit Ping)

Inherits from

TComponent

Constructors


constructor Create(Owner : TComponent);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


Functions

procedure CancelDnsLookup;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

destructor Destroy;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure DnsLookup(HostName : String);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

function Ping : Integer;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

function GetAddress : String;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

function GetErrorCode : Integer;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

function GetErrorString : String;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

function GetHostIP : String;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

function GetHostName : String;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

function GetOnDisplay : TICMPDisplay;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

function GetOnEchoReply : TICMPReply;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

function GetOnEchoRequest : TNotifyEvent;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

function GetReply : TIcmpEchoReply;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

function GetSize : Integer;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

function GetTimeout : Integer;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

function GetTTL : Integer;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure SetAddress(Value : String);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure SetOnDisplay(Value : TICMPDisplay);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure SetOnEchoReply(Value : TICMPReply);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure SetOnEchoRequest(Value : TNotifyEvent);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure SetSize(Value : Integer);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure SetTimeout(Value : Integer);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure SetTTL(Value : Integer);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure WMAsyncGetHostByName(var msg: TMessage);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure WndProc(var MsgRec: TMessage);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

Properties

property Address : String


property Size : Integer


property Timeout : Integer


property TTL : Integer


property DnsResult : String


property ErrorCode : Integer


property ErrorString : String


property Handle : HWND


property HostIP : String


property HostName : String


property Reply : TIcmpEchoReply


Events

event OnDisplay : TICMPDisplay


event OnDnsLookupDone : TDnsLookupDone


event OnEchoReply : TICMPReply


event OnEchoRequest : TNotifyEvent


Variables

FDnsLookupBuffer : array [0..MAXGETHOSTSTRUCT] of char;


FDnsLookupHandle : THandle;


FDnsResult : String;


FIcmp : TICMP;


FOnDnsLookupDone : TDnsLookupDone;


FWindowHandle : HWND;



Constructors


constructor Create(Owner : TComponent);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


Functions


procedure CancelDnsLookup;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


destructor Destroy;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure DnsLookup(HostName : String);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


function Ping : Integer;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


function GetAddress : String;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


function GetErrorCode : Integer;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


function GetErrorString : String;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


function GetHostIP : String;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


function GetHostName : String;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


function GetOnDisplay : TICMPDisplay;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


function GetOnEchoReply : TICMPReply;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


function GetOnEchoRequest : TNotifyEvent;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


function GetReply : TIcmpEchoReply;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


function GetSize : Integer;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


function GetTimeout : Integer;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


function GetTTL : Integer;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure SetAddress(Value : String);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure SetOnDisplay(Value : TICMPDisplay);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure SetOnEchoReply(Value : TICMPReply);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure SetOnEchoRequest(Value : TNotifyEvent);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure SetSize(Value : Integer);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure SetTimeout(Value : Integer);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure SetTTL(Value : Integer);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure WMAsyncGetHostByName(var msg: TMessage);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure WndProc(var MsgRec: TMessage);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


Properties


property Address : String


property Size : Integer


property Timeout : Integer


property TTL : Integer


property DnsResult : String


property ErrorCode : Integer


property ErrorString : String


property Handle : HWND


property HostIP : String


property HostName : String


property Reply : TIcmpEchoReply


Events


event OnDisplay : TICMPDisplay


event OnDnsLookupDone : TDnsLookupDone


event OnEchoReply : TICMPReply


event OnEchoRequest : TNotifyEvent


Variables


FDnsLookupBuffer : array [0..MAXGETHOSTSTRUCT] of char;


FDnsLookupHandle : THandle;


FDnsResult : String;


FIcmp : TICMP;


FOnDnsLookupDone : TDnsLookupDone;


FWindowHandle : HWND;