我本机上有多网卡(分配了3个IP:2个固定IP,1个局网IP).如果编程实现获得本机的多个IP?(我只能取得一个)(200分)

淡淡的笑 · 2001-08-22

我本机上有多网卡(分配了3个IP:2个固定IP,1个局网IP).如果编程实现获得本机的多个IP?(我只能取得一个) // 此function获得 192.168.0.1 function TForm1.LookupIP: String; type     TaPInAddr = array [0..10] of PInAddr;     PaPInAddr = ^TaPInAddr; var     phe  : PHostEnt;     pptr : PaPInAddr;     Buffer : array [0..63] of char;     I    : Integer;     GInitData      : TWSADATA; begin     WSAStartup($101, GInitData);     Result := '';     GetHostName(Buffer, SizeOf(Buffer));     phe :=GetHostByName(buffer);     if phe = nil then Exit;     pptr := PaPInAddr(Phe^.h_addr_list);     I := 0;     while pptr^ <> nil do begin       result:=StrPas(inet_ntoa(pptr^^));       Inc(I);     end;     WSACleanup; end; // 此function获得 211.163.117.xxx function TForm1.GetHostAddress: string; var   wd: TWSAData;   phe: PHostEnt; begin   if 0 <> WSAStartup(MakeWord(2, 0), wd) then     raise Exception.Create('初始化 WinSock 失败！')   else   try     SetLength(Result, 255);     if 0 <> gethostname(PChar(Result), 255) then       raise Exception.Create('无法取得本计算机名称！');     SetLength(Result, StrLen(PChar(Result)));     phe := gethostbyname(PChar(Result));     if nil = phe then       raise Exception.Create('无法解析本计算机名称到IP地址！');     //听资料说修改此处代码可适用于多个IP情况     Result := inet_ntoa(PInAddr(phe.h_addr^)^);   finally     WSACleanup;   end; end; 如题目,要如何取得所有IP(我是固定IP)? 请指教.谢谢!!!

ahxia · 2001-08-23

function TForm1.LookupIP: String; 改成 TStrings如何？ 那样就可以用 ...     while pptr^ <> nil do begin       result.add(inet_ntoa(pptr^^));       Inc(I);     end; ... 应该可以吧

bbkxjy · 2001-08-23

转贴: The following function returns all IP addresses on the local machine, separated by newline. So e. g. you can assign the result string to the Text property of any TStrings object. uses Winsock; function GetLocalIPs: String; type PPInAddr= ^PInAddr; var   wsaData: TWSAData;   HostInfo: PHostEnt;   HostName: Array[0..255] of Char;   Addr: PPInAddr; begin   Result:='';   if WSAStartup($0101, wsaData)<>0 then exit;   try     if gethostname(HostName, SizeOf(HostName)) <> 0 then exit;     HostInfo:= gethostbyname(HostName);     if HostInfo=nil then Exit;     Addr:=Pointer(HostInfo^.h_addr_list);     if (Addr=nil) or (Addr^=nil) then exit;     Result:=StrPas(inet_ntoa(Addr^^));     inc(Addr);     while Addr^<>nil do begin       Result:=Result+^M^J+StrPas(inet_ntoa(Addr^^));       inc(Addr);     end;   finally     WSACleanup;   end; end;

智利 · 2001-08-23

ahxia，你怎么和我想的一样。

淡淡的笑 · 2001-08-23

谢两位.试过之后马上给分.

jeffzxc · 2001-08-23

这是我写的获取第一个网卡上的所有IP地址,你只要稍家改动即可获得所有网卡的IP地址 Function gGetAllIP:TStringList; const IPAddress_Length = 100; //最多只取5个IP var   nret:integer;   hk: HKEY;   RootKey: HKEY;   SubKey: String;   IPDataBuf,MaskDataBuf,TBuf: Array [0 .. IPAddress_Length] Of Char;   ValueType, ValueSize: DWORD;   IpAddress,SubNetMask:String;   NetCardType:string;   i,m,j,k:integer;   IPList:TStringList; begin   //读取本机IP地址    RootKey:=HKEY_LOCAL_MACHINE;    SubKey := 'SOFTWARE/Microsoft/Windows NT/CurrentVersion/NetworkCards/1';    nRet := RegOpenKeyEx(RootKey, PChar(SubKey), 0, KEY_READ, hk);    If (nRet <> ERROR_SUCCESS) Then    Begin      Application.MessageBox('不能打开注册表: NetworkCards/1 ','', MB_ICONINFORMATION or MB_OK);      RegCloseKey(hk);      Result := nil;      HALT;    End;    ValueType := REG_SZ;    ValueSize := IPAddress_Length;    nret := RegQueryValueEx(hk, 'ServiceName', Nil, @ValueType, PBYTE(@IPDataBuf), @ValueSize);    If (nRet <> ERROR_SUCCESS) Then    Begin      Application.MessageBox('查询注册表ServiceName出错！','',MB_ICONINFORMATION or MB_OK);      RegCloseKey(hk);      Result := nil;      HALT;    End;    RegCloseKey(hk);    NetCardType:= IPDataBuf; //网卡类型    ValueType:=REG_BINARY;    ValueSize:=IPAddress_Length;    ZeroMemory(@IPDataBuf,ValueSize);    SubKey := 'SYSTEM/CurrentControlSet/Services/' + NetCardType + '/Parameters/Tcpip';    nRet := RegOpenKeyEx(RootKey, PChar(SubKey), 0, KEY_READ, hk);    If (nRet <> ERROR_SUCCESS) Then    Begin      Application.MessageBox('不能打开注册表: Tcpip ','智能网业务管理系统安装',MB_ICONINFORMATION or MB_OK);      Result := nil;      HALT;    End;    nret := RegQueryValueEx(hk, 'IPAddress', Nil, @ValueType, PBYTE(@IPDataBuf), @ValueSize);    If (nRet <> ERROR_SUCCESS) Then    Begin      Application.MessageBox('查询注册表IpAddress出错！','智能网业务管理系统安装',MB_ICONINFORMATION or MB_OK);      RegCloseKey(hk);      Result := nil;      HALT;    End;    RegCloseKey(hk);    IPList:=TStringList.Create;    ZeroMemory(@TBuf,ValueSize);    k:=0;    for i:=0 to ValueSize-1 do    begin       TBuf[k]:=IPDataBuf;       k:=k+1;       if Ord(IPDataBuf)=0 then       begin          IPList.Add(TBuf);          k:=0;          ZeroMemory(@TBuf,ValueSize);          if Ord(IPDataBuf[i+1])=0 then          begin             j:=i;             Break;          end;       end;    end;    Result:=IPList; end;

淡淡的笑 · 2001-08-23

多人接受答案了。

我本机上有多网卡(分配了3个IP:2个固定IP,1个局网IP).如果编程实现获得本机的多个IP?(我只能取得一个)(200分)

淡淡的笑

Unregistered / Unconfirmed

ahxia

Unregistered / Unconfirmed

bbkxjy

Unregistered / Unconfirmed

智利

Unregistered / Unconfirmed

淡淡的笑

Unregistered / Unconfirmed

jeffzxc

Unregistered / Unconfirmed

淡淡的笑

Unregistered / Unconfirmed

Similar threads