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() ; 展开
展开全部
根据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;
Storm代理
2023-07-25 广告
2023-07-25 广告
StormProxies是一家国内优质海外HTTP代理商,拥有一个庞大的IP资源池,覆盖200多个地区,IP数量大且匿名度高。其优点还包括超高并发、稳定高效、技术服务等特点,同时提供HTTP、HTTPS以及SOCKS5协议支持。此外,Sto...
点击进入详情页
本回答由Storm代理提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询