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中判断是否是64位操作系统

Delphi 能否把.txt文件的数据导入到access数据库中

Delphi中禁止webbrowser右键的方法

Delphi getcurrentdir 获取当前文件夹

Delphi twebbrowser与嵌入youtube视频崩溃

Delphi 判断字符串是否为纯字母组合

Delphi判断程序是否无响应

Delphi f1026 file not found: ''quickrpt.dcu''解决方法

Delphi 搜索指定目录下的文件

Delphi打印timage图片

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

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