DELPHI 根据URL获取IP, 如何利用ClientSocket模拟GET HTTP网站
DELPHI根据URL获取IP,如何利用ClientSocket模拟GETHTTP网站?麻烦帮写2个函数:getIPByURL(URL:ShortString):Shor...
DELPHI 根据URL获取IP, 如何利用ClientSocket模拟GET HTTP网站?
麻烦帮写2个函数:
getIPByURL(URL:ShortString) : ShortString ,
SendHttpWithGet() ; 展开
麻烦帮写2个函数:
getIPByURL(URL:ShortString) : ShortString ,
SendHttpWithGet() ; 展开
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;
或者我记得在Indy Clients组件中有 IdIcmpClient 控件,可以直接实现ping功能。你试试,函数如下(当然首先要在窗体上放置一个IdIcmpClient控件)
function GetIPByURL(URL: ShortString): ShortString;
begin
Result := '';
IdIcmpClient1.Host := URL;
IdIcmpClient1.Ping();
Application.ProcessMessages;
Result := IdIcmpClient1.ReplyStatus.FromIpAddress;
end;
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询