Delphi使用TNetHTTPClient:重定向后如何给出最终的URL?


本文整理自网络,侵删。

 uses System.Net.URLClient, System.Net.HttpClient, System.Net.HttpClientComponent;

似乎没有直接(公共)访问与响应关联的请求实例。hacky解决方案依赖于:

IHTTPResponse返回的实现方式THTTPResponse(实现细节)
受保护的FRequest领域的访问THTTPResponse
然后,您可以使用以下代码访问请求实例:

type
  THTTPResponseAccess = class(THTTPResponse);

procedure TForm2.Button1Click(Sender: TObject);
var
  Response: THTTPResponse;
  Request: IURLRequest;
begin
  Response := NetHTTPClient1.Get('http://delphitop.com') as THTTPResponse;
  Request := THTTPResponseAccess(Response).FRequest;
  ShowMessage(Request.URL.ToString);
end;
输出为:

http://www.delphitop.com/

相关阅读 >>

Delphi 禁止改变窗口大小和移动窗口

Delphi fmx 从app程序直接跳转到支付宝付款转帐页面

Delphi winapi: getwindowrect、getclientrect - 获取窗口的外部与内部矩形

Delphi application.messagebox 详解

Delphi xe 移动平台 showmodal 范例

Delphi 用wininet 单元实现 post提交数据

Delphi xe 安卓开发黑屏的另一种解决办法

Delphi 控制n个字符间距空格

Delphi中基于内容检测图片格式(非扩展名)

Delphi xe实现android 添加图片资源到应用并使用它

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...