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 system.sysutils.tmarshaller 与 system.tmarshal

Delphi 文件查找findfirst,findnext,findclose

Delphi getmimetypefromfile 获取文件mime类型

Delphi设置窗口透明

Delphi 如何确定windows安装的语言

Delphi 程序窗体及控件自适应分辨率

Delphi injectmemexe

Delphi一个基于wininet的http操作小函数

Delphi 字符串替换

tthread ―― 线程类详解

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

转载请注明出处：木庄网络博客 » delphi WINSOCK 域名获取远程服务器IP