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 android下拉刷新

Delphi获取系统电源状态的信息

Delphi sendmessage postmessage 原理和区别

Delphi 判断com端口是否存在

用Delphi实现百度地图经纬度与地址互转

Delphi 官方stylebook大全使用

Delphi 获取动态创建的image与scrollbox的相对位置

Delphi的判断文件和文件夹

Delphi外挂编写

Delphi中关于字符串的操作

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

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