在DEPHI中如何取得本机的IP？

solonet 2003-08-25 04:02:12

在DEPHI中如何取得本机的IP？

...全文

18 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

lzybfs 2003-08-29

打赏
举报

拿把大锤子冲着你的爱机说：“你的IP地址是多少，快点招，要不然我就要.....!!!!!!!!!!

boywu 2003-08-28

打赏
举报

uses ...,winsock,...
...
function GetLocalIp(var ALocalIp: String): Boolean;
var
HostEnt: PHostEnt;
Ip: string;
addr: pchar;
Buffer: array [0..63] of char;
GInitData: TWSADATA;
begin
Result := False;
try
WSAStartup(2, GInitData);
GetHostName(Buffer, SizeOf(Buffer));
HostEnt := GetHostByName(buffer);
if HostEnt = nil then Exit;
addr := HostEnt^.h_addr_list^;
ip := Format('%d.%d.%d.%d', [byte(addr [0]),
byte (addr [1]), byte (addr [2]), byte (addr [3])]);
ALocalIp := Ip;
Result := True;
finally
WSACleanup;
end;
end;

solonet 2003-08-25