主题：[原创]求助：如何在dephi中获得IP然后将IP显示是EDIT中
duck04551
[专家分：90] 发布于 2006-07-09 09:47:00
请问：在dephi中如何获得本机上的IP，然后将IP显示是EDIT中，要用什么控件吗？谁有代码呢？发给我啊？
谢谢！
回复列表 （共4个回复）
沙发
nepenthe [专家分：460] 发布于 2006-07-10 10:19:00
用这个就可以IP Helper Functions
msdn中有使用说明
板凳
jianfeihua [专家分：780] 发布于 2006-07-12 21:54:00
uses winsock;
//获取IP函数
Function GetIPAddr : 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;
3 楼
长尾兔 [专家分：3630] 发布于 2006-07-13 08:22:00
用IdIpWatch控件。
edit1.text:=idipwatch1.localip;
4 楼
LittleRay [专家分：0] 发布于 2006-07-29 13:37:00
切·！在网上多的是·
我来回复
您所在位置：