uipdns.cpp

域名和IP地址的转换,输入任意的域或IP地址均可返回查寻的域或IP地址

//---------------------------------------------------------------------------

#include <vcl.h>
#include <winsock.h>
#pragma hdrstop

#include "UIPDNS.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
   WORD wVersionRequested;
   WSADATA wsaData;
   int err;
   wVersionRequested=MAKEWORD(2,0);
   err=WSAStartup(wVersionRequested,&wsaData);
   if(err!=0)
   {
     return;
   }
   if(LOBYTE(wsaData.wVersion)!=2||
      HIBYTE(wsaData.wVersion)!=0)
   {
     WSACleanup();
     return;
   }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   struct hostent *hostname;
   unsigned int addr;
   addr=inet_addr((char FAR*)(Edit1->Text.c_str()));
   if(!(hostname=gethostbyaddr((char *)&addr,4,AF_INET)))
   {
     Application->MessageBoxA("错误","出错信息",MB_OKCANCEL);
     return;
   }
   Edit2->Text=AnsiString(hostname->h_name);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
   struct hostent *hostname;
   struct in_addr in;
   char *IP,*ptr;
   if(!(hostname=gethostbyname((char FAR*)(Edit3->Text.c_str()))))
   {
     Application->MessageBoxA("错误","出错信息",MB_OKCANCEL);
     return;
   }
   memset((void*)&in,sizeof(in),0);
   in.s_addr=*((unsigned long *)hostname->h_addr_list[0]);
   if(!(ptr=inet_ntoa(in)))
   return;
   IP=new char[strlen(ptr)+1];
   strcpy(IP,ptr);
   Edit4->Text=AnsiString(IP);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
   if(Key==13)
     Button1Click(Sender);        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit3KeyPress(TObject *Sender, char &Key)
{
   if(Key==13)
      Button2Click(Sender);
}
//---------------------------------------------------------------------------