delphi中用socket解析域名获得IP地址

本文整理自网络，侵删。

 
需引用WinSock单元
 
 
var  
    WSAData:TWSAData;  
    Socket1:TSocket;  
    Addr:TSockAddr;  
    Re:Integer;  
begin  
    //初始化WinSock   
    if (WSAStartup(MakeWord(2,0), WSAData) <> 0) then  
    begin  
        mmo1.Lines.Add('WinSock初始化失败！');  
        Exit;  
    end  
    else  
    mmo1.Lines.Add('WinSock开始运行……');  
    mmo1.Lines.Add(inet_ntoa(PInAddr(gethostbyname('www.hao828.com')^.h_addr_list^)^));   

相关阅读 >>

Delphi firedac fdconnection 事务

Delphi 获取本地计算机上的com口列表

Delphi 颜色转换成 html 颜色代码

Delphi 替换其他程序里面的函数为自己的函数

Delphi二值图像除杂点（噪点）

Delphi mailurlmaybeinvalid 检测邮箱地址有效性

Delphi百度地图经纬度与地址互转

Delphi richedit 的scrollbar自动向下滚动

Delphi controls 属性与继承 tshape 类的小练习

Delphi 查询当前目录下文件名是否存在

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi中用socket解析域名获得IP地址