获取IP地址

头文件#include <winsock2.h>

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    struct hostent *hp;
    SOCKADDR_IN sa;
    WSADATA sData;
    try
    {
      if (WSAStartup(MAKEWORD(2,2),&sData) != 0 )
        return;
      hp = gethostbyname(Edit1->Text.c_str());
          memcpy(&sa.sin_addr.S_un.S_addr, hp->h_addr_list[0], hp->h_length);
      Edit2->Text = inet_ntoa(sa.sin_addr);
      WSACleanup();

    }

    catch(...)
    {
    Application->MessageBox("地址描写错", "错误", MB_OK);
    }
}