Inherits from
TComponent
constructor Create(Owner : TComponent);
- * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
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);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
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
event OnDisplay : TICMPDisplay
event OnDnsLookupDone : TDnsLookupDone
event OnEchoReply : TICMPReply
event OnEchoRequest : TNotifyEvent
FDnsLookupBuffer : array [0..MAXGETHOSTSTRUCT] of char;
FDnsLookupHandle : THandle;
FDnsResult : String;
FIcmp : TICMP;
FOnDnsLookupDone : TDnsLookupDone;
FWindowHandle : HWND;
constructor Create(Owner : TComponent);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
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);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
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
event OnDisplay : TICMPDisplay
event OnDnsLookupDone : TDnsLookupDone
event OnEchoReply : TICMPReply
event OnEchoRequest : TNotifyEvent
FDnsLookupBuffer : array [0..MAXGETHOSTSTRUCT] of char;
FDnsLookupHandle : THandle;
FDnsResult : String;
FIcmp : TICMP;
FOnDnsLookupDone : TDnsLookupDone;
FWindowHandle : HWND;