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 opendialog1 添加文件打开多选模式

Delphi sysutils.wraptext - 换行

Delphi中关键字inherited

Delphi d10.x 在android 9及更高版本下使用Delphi获取设备序列号？

Delphi做异型窗体png透明

Delphi playsound()函数应用

Delphi 取得桌面文件夹的路径和取得我的文档的路径

Delphi idhttp post

Delphi判断文件夹（目录）是否存在，不存在就创建的办法

Delphi xe6 使用intent启动活动并在android应用程序中获取返回值的示例

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

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