通过域名或主机名得到ip

最新推荐文章于 2025-04-13 11:47:47 发布

stephenewong

最新推荐文章于 2025-04-13 11:47:47 发布

阅读量530

点赞数

CC 4.0 BY-SA版权

分类专栏： delphi-cxgrid 文章标签： byte list function string

本文链接：https://blog.youkuaiyun.com/stephenewong/article/details/1349257

delphi-cxgrid 专栏收录该内容

6 篇文章

订阅专栏

function hostnametoip(name:string;var ip:string):boolean;
var
wsdata:twsadata;
hostname:array [0..255] of char;
hostEnt:PHostEnt;
addr:pchar;
begin
WsaStartup($0101,wsdata);
try
     gethostname(hostname,sizeof(hostname));
     strpcopy(hostname,name);
     hostEnt:=gethostbyname(hostname);
     if Assigned(HostEnt) then
        if Assigned(HostEnt^.h_addr_list^) then
           begin
               addr:=hostEnt^.h_addr_list^;
            if Assigned(addr) then
               begin
                  ip:=Format('%d.%d.%d.%d',[byte(addr[0]),byte(addr[1]),byte(addr[2]),byte(addr[3])]);
                  result:=true;
               end
               else result:=false
            end else result:=false
   else result:=false;
finally
     wsacleanup;
end;
end;