Lazarus怎么取得本机的IP号

yangyang848 · 发表于 2011-8-18 14:47:36

现在需要取得本机的IP 可以是局域网的，也可以是外网IP，求达人给出方法，不胜感激！

artpaper123 · 发表于 2011-8-18 15:56:20

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;

yangyang848 · 发表于 2011-9-15 14:31:21

好用谢谢

edimax · 发表于 2012-3-27 21:33:27

dff

bugxiong · 发表于 2012-3-27 22:49:46

Lazarus社区有你更精彩！

fatspider · 发表于 2012-5-26 12:40:26

呵呵~ 关注一下。

zanezwc · 发表于 2013-9-6 10:22:47

谢谢

terony · 发表于 2013-9-6 12:59:32

补充：一、要引用 Winsock 单元；
二、while pptr^[I] <> nil do begin 这句在Lazarus V1.0.10中无法编译通过；

		自动登录	找回密码
密码			立即注册（注册审核可向QQ群索取）

Lazarus怎么取得本机的IP号

回 1楼(artpaper123) 的帖子