本文整理自网络,侵删。
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 fmx 从app程序直接跳转到支付宝付款转帐页面
Delphi winapi: getwindowrect、getclientrect - 获取窗口的外部与内部矩形
Delphi application.messagebox 详解
Delphi xe实现android 添加图片资源到应用并使用它
更多相关阅读请进入《Delphi》频道 >>