delphi WINSOCK 域名获取远程服务器IP


本文整理自网络,侵删。

 
USES WINSOCK;

{$R *.dfm}

function GetIP(const HostName: string): string;
var
  WSAData: TWSAData;
  R: PHostEnt;
  A: TInAddr;
begin
  Result := ''; // '0.0.0.0'
  WSAStartup($101, WSAData);
  R := Winsock.GetHostByName(PAnsiChar(AnsiString(HostName)));
  if Assigned(R) then
  begin
    A := PInAddr(r^.h_Addr_List^)^;
    Result := WinSock.inet_ntoa(A);
  end;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
FORM1.Caption :=GetIP('www.baidu.com');
end;

相关阅读 >>

Delphi unicode转汉字 ,支持自动过滤非 unicode编码

Delphi 删除或清空一个目录(包含多级)

Delphi 字符串变形替换

Delphi 6句代码实现Delphi动态调用api函数

Delphi dbnavigator1 删除时弹出确认对话框

Delphi 获取文件所在路径

Delphi tadodataset 加载数据到fdmemtable1

Delphi datetime,date,time tdatetimepicker

Delphi enumwindows回调函数获取qq2009窗体句柄

delhi 获取进程图片

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...