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^)^));   

相关阅读 >>

paramstr返回运行当行程序的某个参数

Delphi 分割文件合并文件的函数

删除Delphi组件tstringlist中的重复项目

Delphi清除右下角的托盘上无用的托盘图标(刷新托盘)

Delphi android 关闭应用程序对话框询问

Delphi 删除字符串重复的符号只保留一个

Delphi 中的颜色

Delphi中sendmessage给一个edit控件发送wm_settext消息

Delphi 判断端口(port)是否被占用

Delphi关于小数位精度的问题

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

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