function LookupName(const Name: string): string; var HostEnt: PHostEnt; begin HostEnt := gethostbyname(PChar(Name)); if HostEnt <> nil then begin with HostEnt^ do begin Result:=Format('%d.%d.%d.%d', [Ord(h_addr^[0]), Ord(h_addr^[1]),Ord( h_addr^[2]), Ord(h_addr^[3])]); end; end; end;
根据计算机名称获得ip地址
最新推荐文章于 2023-05-19 13:28:17 发布