起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 84|回复: 2

【结】我想得到本机IP,请问可以使用什么函数?

[复制链接]
发表于 2008-4-25 09:13:51 | 显示全部楼层 |阅读模式
我想得到本机IP,请问可以使用什么函数?我声明了以下函数,但是不能编译通过.请问有什么别的好方法?

function GetLocalIP: 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^[I] <> nil do BEGIN
    result:=StrPas(inet_ntoa(pptr^[I]^));
    Inc(I);
  END;
  WSACleanup;
end;
回复

使用道具 举报

发表于 2008-4-25 09:28:26 | 显示全部楼层
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-4-25 09:47:56 | 显示全部楼层
谢谢.本贴已经结了.
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-12 01:31 , Processed in 0.044071 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表