{"id":3663,"date":"2016-03-21T10:18:38","date_gmt":"2016-03-21T02:18:38","guid":{"rendered":"http:\/\/blog.qdac.cc\/?p=3663"},"modified":"2018-09-03T14:55:16","modified_gmt":"2018-09-03T06:55:16","slug":"%e6%8a%80%e5%b7%a7-%e4%bd%bf%e7%94%a8-thttpclient-%e6%97%b6%e8%8e%b7%e5%8f%96%e8%b7%b3%e8%bd%ac%e5%90%8e%e7%9a%84-url","status":"publish","type":"post","link":"https:\/\/blog.qdac.cc\/?p=3663","title":{"rendered":"[\u6280\u5de7] \u4f7f\u7528 THttpClient \u65f6\u83b7\u53d6\u8df3\u8f6c\u540e\u7684 URL"},"content":{"rendered":"<p>Delphi \u81ea\u5e26\u7684 THttpClient \u662f\u4e00\u4e2a\u5f88\u597d\u7684 Http\/Https \u534f\u8bae\u7684\u8de8\u5e73\u53f0\u5b9e\u73b0\uff0c\u4e0d\u8fc7\uff0c\u73b0\u5728\u7684\u7248\u672c\u529f\u80fd\u6709\u4e9b\u5730\u65b9\u5c01\u88c5\u7684\u8fd8\u662f\u4e0d\u592a\u5408\u7406\uff0c\u9020\u6210\u4f7f\u7528\u4e2d\u5b58\u5728\u4e00\u4e9b\u4e0d\u4fbf\u3002\u6bd4\u5982\uff0c\u6211\u4eec\u4ece\u4e00\u4e2a\u7f51\u5740\u901a\u8fc7 HTTP 302 \u7b49\u8df3\u8f6c\u5230\u53e6\u4e00\u4e2a\u7f51\u5740\u65f6\uff0c\u65e0\u6cd5\u5bf9\u8df3\u8f6c\u7684\u8fc7\u7a0b\u8fdb\u884c\u7cbe\u7ec6\u63a7\u5236\uff0c\u4e5f\u65e0\u6cd5\u83b7\u53d6\u5230\u8df3\u8f6c\u540e\u7684\u76ee\u6807\u5730\u5740\u3002\u672c\u6587\u7ed9\u5927\u5bb6\u63d0\u4f9b\u4e00\u79cd\u65b9\u6cd5\u6765\u5904\u7406\u8fd9\u4e2a\u8df3\u8f6c\u7684\u95ee\u9898\uff0c\u76f4\u63a5\u770b\u4ee3\u7801\uff1a<\/p>\n<pre class=\"lang:delphi decode:true \">procedure TForm1.Button1Click(Sender: TObject);\r\nvar\r\n  AHttp: THttpClient;\r\n  AResp: IHttpResponse;\r\n  I, AMaxRedirectTimes: Integer;\r\n  AUrl: String;\r\nbegin\r\n  AHttp := THttpClient.Create;\r\n  AHttp.HandleRedirects := False;\r\n  AUrl := 'http:\/\/www.csdn.com';\r\n  AMaxRedirectTimes := 10;\r\n  I := 0;\r\n  repeat\r\n    AResp := AHttp.Get(AUrl);\r\n    if Assigned(AResp) then\r\n    begin\r\n      if ((AResp.StatusCode &gt;= 301) and (AResp.StatusCode &lt;= 304)) or\r\n        (AResp.StatusCode = 307) then\r\n      begin\r\n        AUrl := TURI.PathRelativeToAbs(AResp.GetHeaderValue('Location'), TURI.Create(AUrl));\r\n        Inc(I);\r\n        if I &lt; AMaxRedirectTimes then\r\n          continue;\r\n      end\r\n      else\r\n        Break;\r\n    end\r\n    else\r\n      Break;\r\n  until 1 &gt; 2;\r\n  ShowMessage(AUrl);\r\n  FreeAndNil(AHttp);\r\nend;<\/pre>\n<p>\u4e0a\u9762\u7684\u4ee3\u7801\u7684\u6838\u5fc3\u4e0d\u8ba9 THttpClient \u81ea\u52a8\u5904\u7406\u8df3\u8f6c\uff0c\u6539\u7531\u6211\u4eec\u6355\u83b7 30x \u8df3\u8f6c\u4ee3\u7801\u6765\u63a7\u5236\u8df3\u8f6c\u7684\u8fc7\u7a0b\uff0c\u901a\u8fc7 AMaxRedirectTimes \u6765\u63a7\u5236\u6700\u591a\u8df3\u8f6c\u7684\u6b21\u6570\uff0c\u9632\u6b62\u9875\u9762\u4e0d\u505c\u7684\u8df3\u6765\u8df3\u53bb\uff0c\u9677\u5165\u6b7b\u5faa\u73af\u3002\u4e0a\u9762\u7684\u4ee3\u7801\u7684\u7ed3\u679c AUrl \u7684\u503c\u4f1a\u662f http:\/\/www.csdn.net\uff0c\u7b26\u5408\u5b9e\u9645\u7684\u8df3\u8f6c\u7ed3\u679c\u3002\u5269\u4e0b\u7684\u5927\u5bb6\u770b\u4ee3\u7801\u5427\uff0c\u770b\u4e0d\u61c2\u7684\u5728\u7fa4\u91cc\u95ee\u3002<\/p>\n<h3>\u3010\u8865\u5145\u3011<\/h3>\n<p>\u7fa4\u53cb dragOn \u63d0\u4f9b\u4e86\u4e00\u4e2a\u66f4\u597d\u7684\u89e3\u51b3\u529e\u6cd5\uff0c\u901a\u8fc7 IHttpRequest \u5bf9\u8c61\u6765\u83b7\u53d6\u5230\u76f8\u5173\u7684\u4fe1\u606f\uff0c\u611f\u8c22 dragOn\uff1a<\/p>\n<pre class=\"lang:delphi decode:true \">var\r\n  Http: THttpClient;\r\n  Request: IHTTPRequest;\r\nbegin\r\n  Http := THTTPClient.Create;\r\n  try\r\n    Request := Http.GetRequest(sHTTPMethodHead, 'http:\/\/pro.25pp.com\/download\/25pp_wdjgw\/8009');\r\n    Http.Execute(Request, nil, nil);\r\n    ShowMessage(Request.URL.ToString);\r\n  finally\r\n    Http.Free;\r\n  end;\r\nend;<\/pre>\n<p>&nbsp;<\/p>\n","protected":false},"excerpt":{"rendered":"<p>Delphi \u81ea\u5e26\u7684 THttpClie [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"site-sidebar-layout":"default","site-content-layout":"","ast-site-content-layout":"default","site-content-style":"default","site-sidebar-style":"default","ast-global-header-display":"","ast-banner-title-visibility":"","ast-main-header-display":"","ast-hfb-above-header-display":"","ast-hfb-below-header-display":"","ast-hfb-mobile-header-display":"","site-post-title":"","ast-breadcrumbs-content":"","ast-featured-img":"","footer-sml-layout":"","ast-disable-related-posts":"","theme-transparent-header-meta":"","adv-header-id-meta":"","stick-header-meta":"","header-above-stick-meta":"","header-main-stick-meta":"","header-below-stick-meta":"","astra-migrate-meta-layouts":"default","ast-page-background-enabled":"default","ast-page-background-meta":{"desktop":{"background-color":"var(--ast-global-color-4)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"tablet":{"background-color":"","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"mobile":{"background-color":"","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""}},"ast-content-background-meta":{"desktop":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"tablet":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"mobile":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""}},"footnotes":""},"categories":[8,21],"tags":[425,571],"class_list":["post-3663","post","type-post","status-publish","format-standard","hentry","category-delphi","category-misc","tag-url","tag-571"],"views":4249,"_links":{"self":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/3663","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=3663"}],"version-history":[{"count":2,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/3663\/revisions"}],"predecessor-version":[{"id":4956,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/3663\/revisions\/4956"}],"wp:attachment":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=3663"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=3663"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=3663"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}