//==============================================================================
//取得客户端‘主机名’‘IP地址’************************************************
//==============================================================================
procedure GetClientInfo(var ClientName, IPAddress: string);
var WSAData: TWSAData;
    HostEnt: PHostEnt;
begin
  {no error checking...}
  WSAStartup(2, WSAData);
  SetLength(ClientName, 255);
  Gethostname(PChar(ClientName), 255);
  SetLength(ClientName, StrLen(PChar(ClientName)));
  HostEnt := GetHostByName(PChar(ClientName));
  with HostEnt^ do IPAddress := Format('%d.%d.%d.%d',[Byte(h_addr^[0]), Byte(h_addr^[1]), Byte(h_addr^[2]), Byte(h_addr^[3])]);
  WSACleanup;
end;

解决方案 »

  1.   

    摘了一篇文章:
    获取拨号连接的动态IP地址 
     ----   在WIN9X下,如果安装了拨号网络,则在WINDOWS系统的系统目录System下将有两个拨号网络管理程序库RasApi32.DLL和RasApi16.DLL,我们可利用其中的RAS系列函数来获取和设置拨号连接网络的信息。当然是可以获取拨号连接的动态IP地址了。在Delphi帮助文件中,有相关RAS函数的详细说明。 ---- 一、先解释一些要用到的数据常量和数据结构。 const 
    RAS_MaxDeviceType = 16;//设备类型名称长度 
    RAS_MaxEntryName = 256;//连接名称最大长度 
    RAS_MaxDeviceName = 128;//设备名称最大长度 
    RAS_MaxIpAddress = 15;//IP地址的最大长度 
    RASP_PppIp = $8021;//拨号连接的协议类型,该数值表示PPP连接 type 
    HRASCONN = DWORD;//拨号连接句柄的类型 
    RASCONN = record//活动的拨号连接的句柄和设置信息 
    dwSize : DWORD;//该结构所占内存的大小(Bytes), 
    一般设置为SizeOf(RASCONN) 
    hrasconn : HRASCONN;//活动连接的句柄 
    szEntryName : array[0..RAS_MaxEntryName] of char; 
    //活动连接的名称 
    szDeviceType : array[0..RAS_MaxDeviceType] of char; 
    //活动连接的所用的设备类型 
    szDeviceName : array[0..RAS_MaxDeviceName] of char; 
    //活动连接的所用的设备名称 
    end; 
    TRASPPPIP = record//活动的拨号连接的动态IP地址信息 
    dwSize : DWORD;//该结构所占内存的大小(Bytes), 
    一般设置为SizeOf(TRASPPPIP) 
    dwError : DWORD;//错误类型标识符 
    szIpAddress : array[ 0..RAS_MaxIpAddress ] of char; 
    //活动的拨号连接的IP地址 
    end; 
    ---- 二、接着要解释要用到的两个RAS函数。 //获取所有活动的拨号连接的信息(连接句柄和设置信息) 
    function RasEnumConnections( var lprasconn : RASCONN ; 
    //接收活动连接的缓冲区的指针 
    var lpcb: DWORD;//缓冲区大小 
    var lpcConnections : DWORD//实际的活动连接数 
    ) : DWORD; stdcall; 
    function RasEnumConnections;external 'Rasapi32.dll' 
    name 'RasEnumConnectionsA'; 
    //获取指定活动的拨号连接的动态IP信息 
    function RasGetProjectionInfo( 
    hrasconn : HRasConn;//指定活动连接的句柄 
    rasprojection : DWORD;//RAS连接类型 
    var lpprojection : TRASPPPIP;//接收动态IP信息的缓冲区 
    var lpcb : DWord//接收缓冲区的大小 
    ) : DWORD;stdcall; 
    function RasGetProjectionInfo;external 
    'Rasapi32.dll' name 'RasGetProjectionInfoA'; 
      这两个函数的返回值为0时表示执行成功,非0表示错误代码。 ---- 三、下面要讨论如何用上面的两个RAS函数获取拨号连接的动态IP地址 ----   首先,要用函数RasEnumConnections列出已建立的活动拨号连接的信息,其中包括连接名称、连接句柄、连接设备类型和设备名称;然后根据连接句柄用函数RasGetProjectionInfo获取连接对应的一个TRASPPPIP结构,其中包括一个成员属性szIpAddress即为动态IP地址。具体请参见以下程序片段和注释信息。 procedure TForm1.Button1Click(Sender: TObject); 
    const 
    MaxConnections = 10;//假设最多有10个活动的拨号连接 
    var 
    connections : array[0..MaxConnections-1] of RASCONN; 
    //拨号连接数组 
    longSize : dword; 
    intAvailabelConnections : dword; 
    //活动的拨号连接的实际数目 
    intIndex : integer; 
    strTemp : string; 
    dwResult : DWORD; 
    dwSize : DWORD; 
    RASpppIP : TRASPPPIP; 
    //活动的拨号连接的动态IP地址信息 
    begin 
    connections[ 0 ].dwSize := sizeof(RASCONN); 
    longSize := MaxConnections * connections[ 0 ].dwSize; 
    //接收活动连接的缓冲区大小 
    intAvailabelConnections := 0; 
    //获取所有活动的拨号连接的信息(连接句柄和设置信息) 
    dwResult := RasEnumConnections( connections[ 0 ], 
    longSize,intAvailabelConnections ); 
    if 0 < > dwResult then 
    memo1.lines.add( '错误:' + inttostr( dwResult ) ) 
    else 
    begin 
    memo1.lines.add( '现有的活动连接有' + 
    IntToStr( intAvailabelConnections ) + '个'); 
    //显示所有活动的拨号连接的信息(设置信息和动态IP地址) 
    for intIndex := 0 to intAvailabelConnections - 1 do 
    begin 
    //显示一个活动的拨号连接的设置信息 
    strTemp := '连接名称:' 
    + StrPAS( connections[ intIndex ].szEntryName ) 
    + ',设备类型:' 
    + StrPAS( connections[ intIndex ].szDeviceType ) 
    + ',设备名称:' 
    + StrPAS( connections[ intIndex ].szDeviceName ); 
    memo1.lines.add( strTemp ); 
    //显示一个活动的拨号连接的动态IP地址 
    dwSize := SizeOf(RASpppIP); 
    RASpppIP.dwSize := dwSize; 
    dwResult := RASGetProjectionInfo 
    ( connections[ intIndex ].hRasConn, 
    RASP_PppIp,RasPPPIP,dwSize);//获取动态IP地址 
    if 0 < > dwResult then 
    memo1.lines.add( 
    '错误:' + inttostr( dwResult )) 
    else 
    memo1.lines.add( 
    '动态地址:' + StrPas(RASpppIP.szIPAddress)); 
    end; 
    end; 
      

  2.   

    function TwDlck.GetIP:String;
    //取IP
    type
      TaPInAddr = Array[0..10] of PInAddr;
      PaPInAddr = ^TaPInAddr;
    var
      phe: PHostEnt;
      pptr: PaPInAddr;
      Buffer: Array[0..63] of Char;
      I: Integer;
      GInitData: TWSAData;
      List:TStringList;
    begin
      Result:='';
      WSAStartup($101, GInitData);
      List:=TStringList.Create;
      List.Clear;
      GetHostName(Buffer, SizeOf(Buffer));
      phe := GetHostByName(buffer);
      if phe = nil then exit;  pPtr := PaPInAddr(phe^.h_addr_list);
      I := 0;
      while pPtr^[I] <> nil do
      begin
        List.Add(inet_ntoa(pptr^[I]^));
        Inc(I);
      end;
      WSACleanup;  if List.Count>0 then Result:=List.Strings[0];
    end;