|
간단한 Ping 예제입니다. IdIcmpClient(Indy), Button, Memo 하나씩 올려놓고 사용하시면 됩니다.
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "IdBaseComponent"
#pragma link "IdComponent"
#pragma link "IdIcmpClient"
#pragma link "IdRawBase"
#pragma link "IdRawClient"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
IdIcmpClient1->Host = "127.0.0.1";
IdIcmpClient1->ReceiveTimeout = 3000;
IdIcmpClient1->Ping();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::IdIcmpClient1Reply(TComponent *ASender, const TReplyStatus &AReplyStatus)
{
__int64 itSpeed = AReplyStatus.MsRoundTripTime;
Memo1->Lines->Add(AReplyStatus.FromIpAddress);
Memo1->Lines->Add(itSpeed);
}
//---------------------------------------------------------------------------
통일바라기 님이 쓰신 글 :
:
: 너무 많은 것을 요청드리는것 같아서...
:
: 김재구 님이 쓰신 글 :
: : #include <windows.h>
: : #include <winsock.h>
: : #include <stdio.h>
: : #include <string.h>
: :
: : typedef struct tagIPINFO
: : {
: : u_char Ttl; // Time To Live
: : u_char Tos; // Type Of Service
: : u_char IPFlags; // IP flags
: : u_char OptSize; // Size of options data
: : u_char FAR *Options; // Options data buffer
: : }IPINFO, *PIPINFO;
: :
: : typedef struct tagICMPECHO
: : {
: : u_long Source; // Source address
: : u_long Status; // IP status
: : u_long RTTime; // Round trip time in milliseconds
: : u_short DataSize; // Reply data size
: : u_short Reserved; // Unknown
: : void FAR *pData; // Reply data buffer
: : IPINFO ipInfo; // Reply options
: : }ICMPECHO, *PICMPECHO;
: :
: :
: : // ICMP.DLL Export Function Pointers
: : HANDLE (WINAPI *pIcmpCreateFile)(VOID);
: : BOOL (WINAPI *pIcmpCloseHandle)(HANDLE);
: : DWORD (WINAPI *pIcmpSendEcho)
: : (HANDLE,DWORD,LPVOID,WORD,PIPINFO,LPVOID,DWORD,DWORD);
: :
: : //
: : //
: : void main(int argc, char **argv)
: : {
: : WSADATA wsaData; // WSADATA
: : ICMPECHO icmpEcho; // ICMP Echo reply buffer
: : HANDLE hndlIcmp; // LoadLibrary() handle to ICMP.DLL
: : HANDLE hndlFile; // Handle for IcmpCreateFile()
: : LPHOSTENT pHost; // Pointer to host entry structure
: : struct in_addr iaDest; // Internet address structure
: : DWORD *dwAddress; // IP Address
: : IPINFO ipInfo; // IP Options structure
: : int nRet; // General use return code
: : DWORD dwRet; // DWORD return code
: : int x;
: :
: : // Check arguments
: : if (argc != 2)
: : {
: : fprintf(stderr,"\nSyntax: pingi HostNameOrIPAddress\n");
: : return;
: : }
: :
: : // Dynamically load the ICMP.DLL
: : hndlIcmp = LoadLibrary("ICMP.DLL");
: : if (hndlIcmp == NULL)
: : {
: : fprintf(stderr,"\nCould not load ICMP.DLL\n");
: : return;
: : }
: : // Retrieve ICMP function pointers
: : pIcmpCreateFile = (HANDLE (WINAPI *)(void))
: : GetProcAddress(hndlIcmp,"IcmpCreateFile");
: : pIcmpCloseHandle = (BOOL (WINAPI *)(HANDLE))
: : GetProcAddress(hndlIcmp,"IcmpCloseHandle");
: : pIcmpSendEcho = (DWORD (WINAPI *)
: : (HANDLE,DWORD,LPVOID,WORD,PIPINFO,LPVOID,DWORD,DWORD))
: : GetProcAddress(hndlIcmp,"IcmpSendEcho");
: : // Check all the function pointers
: : if (pIcmpCreateFile == NULL ||
: : pIcmpCloseHandle == NULL ||
: : pIcmpSendEcho == NULL)
: : {
: : fprintf(stderr,"\nError getting ICMP proc address\n");
: : FreeLibrary(hndlIcmp);
: : return;
: : }
: :
: : // Init WinSock
: : nRet = WSAStartup(0x0101, &wsaData );
: : if (nRet)
: : {
: : fprintf(stderr,"\nWSAStartup() error: %d\n", nRet);
: : WSACleanup();
: : FreeLibrary(hndlIcmp);
: : return;
: : }
: : // Check WinSock version
: : if (0x0101 != wsaData.wVersion)
: : {
: : fprintf(stderr,"\nWinSock version 1.1 not supported\n");
: : WSACleanup();
: : FreeLibrary(hndlIcmp);
: : return;
: : }
: :
: : // Lookup destination
: : // Use inet_addr() to determine if we're dealing with a name
: : // or an address
: : iaDest.s_addr = inet_addr(argv[1]);
: : if (iaDest.s_addr == INADDR_NONE)
: : pHost = gethostbyname(argv[1]);
: : else
: : pHost = gethostbyaddr((const char *)&iaDest,
: : sizeof(struct in_addr), AF_INET);
: : if (pHost == NULL)
: : {
: : fprintf(stderr, "\n%s not found\n", argv[1]);
: : WSACleanup();
: : FreeLibrary(hndlIcmp);
: : return;
: : }
: :
: : // Tell the user what we're doing
: : printf("\nPinging %s [%s]", pHost->h_name,
: : inet_ntoa((*(LPIN_ADDR)pHost->h_addr_list[0])));
: :
: : // Copy the IP address
: : dwAddress = (DWORD *)(*pHost->h_addr_list);
: :
: : // Get an ICMP echo request handle
: : hndlFile = pIcmpCreateFile();
: : for (x = 0; x < 4; x++)
: : {
: : // Set some reasonable default values
: : ipInfo.Ttl = 255;
: : ipInfo.Tos = 0;
: : ipInfo.IPFlags = 0;
: : ipInfo.OptSize = 0;
: : ipInfo.Options = NULL;
: : //icmpEcho.ipInfo.Ttl = 256;
: : // Reqest an ICMP echo
: : dwRet = pIcmpSendEcho(
: : hndlFile, // Handle from IcmpCreateFile()
: : *dwAddress, // Destination IP address
: : NULL, // Pointer to buffer to send
: : 0, // Size of buffer in bytes
: : &ipInfo, // Request options
: : &icmpEcho, // Reply buffer
: : sizeof(struct tagICMPECHO),
: : 5000); // Time to wait in milliseconds
: : // Print the results
: : iaDest.s_addr = icmpEcho.Source;
: : printf("\nReply from %s Time=%ldms TTL=%d",
: : inet_ntoa(iaDest),
: : icmpEcho.RTTime,
: : icmpEcho.ipInfo.Ttl);
: : if (icmpEcho.Status)
: : {
: : printf("\nError: icmpEcho.Status=%ld",
: : icmpEcho.Status);
: : break;
: : }
: : }
: : printf("\n");
: : // Close the echo request file handle
: : pIcmpCloseHandle(hndlFile);
: : FreeLibrary(hndlIcmp);
: : WSACleanup();
: : }
: :
: :
|
