得到自己的ip地址 (2001年4月24日).txt

来自「自己对DELPHI学习的一点体会」· 文本 代码 · 共 33 行

得到自己的IP地址 (2001年4月24日) 

网友更新  分类:Internet   作者: zhuhongqing(推荐)  推荐:zhuhongqing   阅读次数:403  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
function GetIPAddress: string;
var
phoste:PHostEnt;
Buffer:array[0..100] of char;
WSAData:TWSADATA;
begin
result:='';
if WSASTartup($0101, WSAData) <> 0 then exit;
GetHostName(Buffer,Sizeof(Buffer));
phoste:=GetHostByName(buffer);
if phoste = nil then
begin
result:='127.0.0.1';
end
else
result:=StrPas(inet_ntoa(PInAddr(phoste^.h_addr_list^)^));
WSACleanup;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=GETIPAddress;
end;