Unit Ping

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Author: François PIETTE Description: This unit encapsulate the ICMP.DLL into a VCL of type TPing. Using this object, you can easily ping any host on your network. Works only in 32 bits mode (no Delphi 1) under NT or 95. If you wants to build a console mode program, use the TICMP object. You'll have a much smaller program. EMail: francois.piette@ping.be http://www.rtfm.be/fpiette francois.piette@rtfm.be Creation: January 6, 1997 Version: 1.02 WebSite: http://www.rtfm.be/fpiette/indexuk.htm Support: Use the mailing list twsocket@rtfm.be See website for details. Legal issues: Copyright (C) 1997 by François PIETTE This software is provided 'as-is', without any express or implied warranty. In no event will the author be held liable for any damages arising from the use of this software. Permission is granted to anyone to use this software for any purpose, including commercial applications, and to alter it and redistribute it freely, subject to the following restrictions: 1. The origin of this software must not be misrepresented, you must not claim that you wrote the original software. If you use this software in a product, an acknowledgment in the product documentation would be appreciated but is not required. 2. Altered source versions must be plainly marked as such, and must not be misrepresented as being the original software. 3. This notice may not be removed or altered from any source distribution. Updates: Nov 30, 1997 V1.00 Added DNSLookup capability (taken from TWSocket) Dec 13, 1997 V1.01 Added OnEchoRequest and OnEchoReply events and removed the corresponding OnDisplay event. This require to modify existing programs. May 05, 1998 V1.02 Changed lpszClassName from 'XSocketWindowClass' to 'ICSPingWindowClass' to avoid class name conflict with TWSocket. Thanks to Bill Parke who found the problem. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

Classes

TPing -

Functions

Register - * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

Types

TDnsLookupDone

Constants

PingVersion
WM_ASYNCGETHOSTBYNAME

Variables


Functions


procedure Register;

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

Types


TDnsLookupDone = procedure (Sender: TObject; Error: Word) of object

Constants

PingVersion = 102

WM_ASYNCGETHOSTBYNAME = WM_USER + 2


Variables