本文整理自网络,侵删。
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);beginFORM1.Caption :=GetIP('www.baidu.com');end;
相关阅读 >>
Delphi unicode转汉字 ,支持自动过滤非 unicode编码
Delphi dbnavigator1 删除时弹出确认对话框
Delphi tadodataset 加载数据到fdmemtable1
Delphi datetime,date,time tdatetimepicker
Delphi enumwindows回调函数获取qq2009窗体句柄
更多相关阅读请进入《Delphi》频道 >>