unit1.cpp

网络编程的一些实例

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

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BDNClick(TObject *Sender)
{
 struct hostent *hostname;
 unsigned int addr;
 addr=inet_addr((char FAR*)(Ip1->Text.c_str()));
 hostname=gethostbyaddr((char *)&addr,4,AF_INET);
 DnText1->Text=AnsiString(hostname->h_name);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BIPClick(TObject *Sender)
{
  struct hostent *hostname;
 struct in_addr in;
 char *IP,*ptr;
 if(!(hostname=gethostbyname((char FAR*)(DnText2->Text.c_str()))))
    {
     Application->MessageBox("错误","出错信息",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);
 Ip2->Text=AnsiString(IP);
}
//---------------------------------------------------------------------------
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::Ip1KeyPress(TObject *Sender, char &Key)
{
  if(Key==13)
   {
    struct hostent *hostname;
    unsigned int addr;
    addr=inet_addr((char FAR*)(Ip1->Text.c_str()));
    hostname=gethostbyaddr((char *)&addr,4,AF_INET);
    DnText1->Text=AnsiString(hostname->h_name);
   }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DnText2KeyPress(TObject *Sender, char &Key)
{
  if(Key==13)
   {
    struct hostent *hostname;
    struct in_addr in;
    char *IP,*ptr;
    if(!(hostname=gethostbyname((char FAR*)(DnText2->Text.c_str()))))
      {
       Application->MessageBox("错误","出错信息",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);
    Ip2->Text=AnsiString(IP);
   }
}
//---------------------------------------------------------------------------