Question

DELPHI 根据URL获取IP， 如何利用ClientSocket模拟GET HTTP网站

DELPHI 根据URL获取IP， 如何利用ClientSocket模拟GET HTTP网站？

麻烦帮写2个函数：
getIPByURL(URL:ShortString) : ShortString ,
SendHttpWithGet() ;

Answer 1

根据URL获取IP可以借鉴一下windows中的ping命令，调用并获取其返回信息。

或者我记得在Indy Clients组件中有 IdIcmpClient 控件，可以直接实现ping功能。你试试，函数如下（当然首先要在窗体上放置一个IdIcmpClient控件）

function GetIPByURL(URL: ShortString): ShortString;
begin
Result := '';
IdIcmpClient1.Host := URL;
IdIcmpClient1.Ping();
Application.ProcessMessages;
Result := IdIcmpClient1.ReplyStatus.FromIpAddress;
end;