unit1.cpp

<<C++Builder 6实用编程100例>>随书光盘

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

#include <vcl.h>
#pragma hdrstop

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

void __fastcall TForm1::FormCreate(TObject *Sender)
{
        struct hostent *thisHost;
        struct in_addr in;
        char MyName[80];
        char *hostname,*ptr;
        //检测WinSock API版本号
        WORD wVerdionRequested;
        wVerdionRequested=MAKEWORD(2,0);
        WSADATA wsaData;
        int err;
        err=WSAStartup(wVerdionRequested,&wsaData);
        if(err!=0)
                return;
        //对WinSock API初始化
        if(LOBYTE(wsaData.wVersion)!=2||HIBYTE(wsaData.wVersion)!=0)
        {
                WSACleanup();
                return;
        }
        //获取本计算机标准域名
        if(gethostname(MyName,80)==SOCKET_ERROR)
                return;
        thisHost=gethostbyname(MyName);
        if(!thisHost)
                return;
        hostname=thisHost->h_name;
        //获取本计算机IP地址
        memset((void *)&in,sizeof(in),0);
        in.s_addr=*((unsigned long *)thisHost->h_addr_list[0]);
        ptr=inet_ntoa(in);
        if(!ptr)
                return;
        //释放资源，输出结果
        WSACleanup();
        Edit1->Text=String(ptr);
        Edit2->Text=String(hostname);
}
//---------------------------------------------------------------------------