通过机器名得到ip地址 (2001年5月9日).txt

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

通过机器名得到IP地址 (2001年5月9日) 

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

--------------------------------------------------------------------------------
通过机器名得到IP地址

function procedure TForm1.nametoip(name:string):string;
var
WSAData: TWSAData;
HostEnt: PHostEnt;
begin
result:='';
WSAStartup(2, WSAData);
HostEnt := gethostbyname(PChar(name));
if HostEnt <> nil then
begin
with HostEnt^ do
result:= Format('%d.%d.%d.%d', [Byte(h_addr^[0]), Byte(h_addr^[1]), Byte(h_addr^[2]), Byte(h_addr^[3])]);
end;
WSACleanup;
end;