用哪个api函数可得到本机IP地址！(40分)

杨虎 · 1999-06-01

如问题！ 抱歉我没分了！

wuyi · 1999-06-01

我是这样读的： procedure TForm1.ReadCurrentClick(Sender: TObject); var FIniFile : TRegistry;     pathstr : string; begin   FIniFile := TRegistry.Create();   FIniFile.RootKey := HKEY_LOCAL_MACHINE;   pathstr := '/System/CurrentControlSet/Services/';   FIniFile.OpenKey(pathstr+'Class/NetTrans/0000', false);   EDIT1.TEXT := FIniFile.READString('IPAddress');   FiniFile.free; end;

DNChen · 1999-06-01

function my_ip_address:longint; const   bufsize=255; var   buf: pointer;   RemoteHost : PHostEnt; (* No, don't free it! *) begin   buf:=NIL;   try     getmem(buf,bufsize);     winsock.gethostname(buf,bufsize);   (* this one maybe without domain *)     RemoteHost:=Winsock.GetHostByName(buf);     if RemoteHost=NIL then       my_ip_address:=winsock.htonl($07000001)  (* 127.0.0.1 *)     else       my_ip_address:=longint(pointer(RemoteHost^.h_addr_list^)^);   finally     if buf<>NIL then  freemem(buf,bufsize);   end;   result:=winsock.ntohl(result); end;

DNChen · 1999-06-01

我想如果你懂得IP地址应该对返回值是Longint不觉得奇怪吧

唐晓锋 · 1999-06-01

注册表中 HKEY_LOCAL_MACHINE/System/CurrentControlSet/ Services/Class/NetTrans/0000

李颖 · 1999-06-01

读注册表的方法不完全正确， 根据安装的网络协议不同， NetTrans/XXXX路径会不同， 我的机器上就是在NetTrans/0004下 应该用DNChen的方法， 使用WinSock函数

xiaowind · 1999-06-02

gethostbyname(''); 反回一个结构,在里面可得出本机ip

杨虎 · 1999-06-07

我现在有更好的办法。    有需要请来信，别客气。    写清楚！

D4 · 1999-06-07

我这儿有来自tqz的一份方法  uses Winsock; function LocalIP : 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; 试一下，效果真好！

dreamsoft · 1999-06-09

取得本地计算机的名字：GetComputerName  取得本地登录用户名：GetUserName 取得本地ip地址： function LocalIP : 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; 

Blade · 1999-06-09

(忘了从哪copy下的一段东西，没有实验，不知道好不好用) 取得本地计算机的名字：   Windows 95 API: GetComputerName   取得本地登录用户名：GetUserName 取得本地ip地址： function LocalIP : 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; 

杨虎 · 1999-06-10

多人接受答案了。

李颖 · 1999-06-14

看了前人的代码，我作了一些修改，如下： var   WSData:TWSAData;   Buffer:array[0..63]of Char;   HostEnt

HostEnt;   PPInAddr:^PInAddr;   //返回值   LocalIP

Word;   IPString:String; begin   LocalIP:=0;   IPString:='';   WSAStartUp($101,WSData);   try     GetHostName(Buffer,SizeOf(Buffer));     HostEnt:=GetHostByName(Buffer);     if Assigned(HostEnt) then     begin       PPInAddr:=@(PInAddr(HostEnt.H_Addr_List^));       while Assigned(PPInAddr^) do       begin         IPString:=StrPas(INet_NToA(PPInAddr^^));         LocalIP:=PPInAddr^^.S_Addr;         Inc(PPInAddr);       end;     end;   finally     WSACleanUp;   end; end; HostEnt.H_Addr_List是一个PInAddr指针列表 原始代码中将它转换为PInAddr数组(0..10) 我觉得不好：虽然等价，但与定义不符；而且 0..10显然是自己想象的结果，认为0..10足够了。 修改后的结果，取消了array of PInAddr的定义， 将HostEnt.H_Addr_List作为^PInAddr(指针的指针)， 保存在PPInAddr变量中，以Inc()过程指向下一个。 另外一些小的修改： 1、xxx<>Nil修改为Assigned(xxx) 2、主要操作放到try..finally中 大家也许嫌我罗嗦吧？

Thinboy · 1999-10-21

请教GetComputerName函数的用法， 当我打入： HostName:String; GetComputerName(pchar(HostName),Sizeof(HostName)); 的时候，编译器报告： Types of actual and formal var parameters must be identical 究竟是怎么一回事呢？ 谢谢！

用哪个api函数可得到本机IP地址！(40分)

杨虎

Unregistered / Unconfirmed

wuyi

Unregistered / Unconfirmed

DNChen

Unregistered / Unconfirmed

DNChen

Unregistered / Unconfirmed

唐晓锋

Unregistered / Unconfirmed

李颖

Unregistered / Unconfirmed

xiaowind

Unregistered / Unconfirmed

杨虎

Unregistered / Unconfirmed

D4

Unregistered / Unconfirmed

dreamsoft

Unregistered / Unconfirmed

Blade

Unregistered / Unconfirmed

杨虎

Unregistered / Unconfirmed

李颖

Unregistered / Unconfirmed

Thinboy

Unregistered / Unconfirmed

Similar threads