通过域名获得IP

最新推荐文章于 2024-09-20 21:32:51 发布

JJNW

最新推荐文章于 2024-09-20 21:32:51 发布

阅读量1k

点赞数

分类专栏： Delphi 文章标签： byte list 数据结构 struct tcp

本文链接：https://blog.csdn.net/jjnw/article/details/331272

版权

Delphi 专栏收录该内容

3 篇文章 0 订阅

订阅专栏

use winsock;

数据结构定义：（msdn 2004Jan）

typedef struct hostent {
char FAR* h_name;//域名
char FAR FAR** h_aliases;//别名
short h_addrtype;//地址类型，tcp、udp是2
short h_length;//地址长度，ip是4，即4个byte型数字
char FAR FAR** h_addr_list;//数字队列，不过是以Char形式存的，Asc码值就是ip值了
} hostent;

procedure TForm1.Button2Click(Sender: TObject);
var
pho:PHostEnt;
begin
pho:=gethostbyname(PChar('im.wxbpvii.cn'));
ShowMessage(IntToStr(Byte(pho.h_addr_list^[0]))+'.'
    +IntToStr(Byte(pho.h_addr_list^[1]))+'.'
    +IntToStr(Byte(pho.h_addr_list^[2]))+'.'
    +IntToStr(Byte(pho.h_addr_list^[3])));
end;