{"id":2601,"date":"2015-06-20T12:21:27","date_gmt":"2015-06-20T04:21:27","guid":{"rendered":"http:\/\/blog.qdac.cc\/?p=2601"},"modified":"2015-06-20T12:21:27","modified_gmt":"2015-06-20T04:21:27","slug":"%e4%b8%80%e4%b8%aa-http-url-%e8%a7%a3%e6%9e%90%e5%92%8c%e7%bc%96%e7%a0%81%e7%9a%84%e8%be%85%e5%8a%a9%e5%ae%9e%e7%8e%b0","status":"publish","type":"post","link":"https:\/\/blog.qdac.cc\/?p=2601","title":{"rendered":"\u4e00\u4e2a HTTP URL \u89e3\u6790\u548c\u7f16\u7801\u7684\u8f85\u52a9\u5b9e\u73b0"},"content":{"rendered":"<p>\u9996\u5148\uff0c\u4e00\u4e2a HTTP \u7684 URL \u6709\u4e0b\u9762\u51e0\u4e2a\u90e8\u5206\u7ec4\u6210\uff1a<\/p>\n<ul>\n<li>\u534f\u8bae\u7c7b\u578b\u3002\u662f HTTP \u8fd8\u662f HTTPS \u534f\u8bae\uff0c\u5206\u522b\u5bf9\u5e94\u4e8e http:\/\/ \u548c https:\/\/\uff1b<\/li>\n<li>\u7528\u6237\u540d\u548c\u5bc6\u7801\u3002\u8fd9\u4e2a\u4f4d\u4e8e\u534f\u8bae\u7c7b\u578b\u7684\u540e\u9762\uff0c\u7528\u6237\u540d\u548c\u5bc6\u7801\u4e4b\u95f4\u91c7\u7528 \u201c:\u201d \u8fdb\u884c\u5206\u9694\uff0c\u8ddf\u4e3b\u673a\u7684\u57df\u540d\u6216IP\u90e8\u5206\u7528 &#8216;@&#8217; \u7b26\u53f7\u8fdb\u884c\u5206\u9694\uff1b<\/li>\n<li>\u57df\u540d\u6216IP\u5730\u5740\uff1b<\/li>\n<li>\u8981\u8bbf\u95ee\u7684\u8d44\u6e90\u5730\u5740\uff08URI\uff09\uff0c\u4ee5 \u201c\/\u201d \u5f00\u59cb\uff1b<\/li>\n<li>\u9644\u52a0\u7684\u989d\u5916\u53c2\u6570\uff0c\u4e0e URI \u4e4b\u95f4\u4ee5 \u201c?\u201d \u8fdb\u884c\u5206\u9694\uff0c\u591a\u4e2a\u53c2\u6570\u4e4b\u524d\u7528 \u201c&amp;\u201d \u8fdb\u884c\u5206\u9694\u3002\u6bcf\u4e2a\u53c2\u6570\u5982\u679c\u5206\u6210\u540d\u79f0\u548c\u53c2\u6570\u90e8\u5206\uff0c\u5219\u540d\u79f0\u548c\u53c2\u6570\u90e8\u5206\u91c7\u7528 \u201c=\u201d \u5206\u9694<\/li>\n<\/ul>\n<p>\u4e00\u4e2a\u5178\u578b\u7684 URL \u5982\u4e0b\u6240\u793a \uff1a<\/p>\n<blockquote><p>http:\/\/www.baidu.com\/s?wd=abcd&amp;tag=qdac<\/p><\/blockquote>\n<p>\u5206\u522b\u5bf9\u5e94\u4e0b\uff1a\u534f\u8bae\u4e3a HTTP \uff0c\u7528\u6237\u540d\u548c\u5bc6\u7801\u6ca1\u6709\uff0c\u57df\u540d\u4e3a www.baidu.com\uff0cURI \u4e3a \/s \uff0c\u53c2\u6570\u6709\u4e24\u4e2a\uff0c\u5206\u522b\u4e3a wd \u548c tag\uff0c\u5b83\u4eec\u7684\u503c\u5206\u522b\u4e3a abcd \u548c qdac\u3002<\/p>\n<p>\u6839\u636e\u4e0a\u9762\u7684\u89c4\u5219\uff0c\u6211\u4eec\u5b9a\u4e49\u4e86\u4e00\u4e2a\u4e0b\u9762\u7684\u7ed3\u6784\uff1a<\/p>\n<pre class=\"lang:delphi decode:true \">  THttpParam = record\r\n    Name, Value: String;\r\n  end;\r\n\r\n  THttpUrl = record\r\n    Host, URI, UserName, Password: QStringW;\r\n    Params: array of THttpParam;\r\n    Port: Word;\r\n    Https: Boolean;\r\n  private\r\n  public\r\n    function Encode(AUseUtf8: Boolean): QStringW;\r\n    function Decode(const AUrl: QStringW): Boolean;\r\n    class function Escape(const AURI: QStringW; AUseUtf8: Boolean)\r\n      : QStringW; static;\r\n    class function Unescape(const S: QStringW): QStringW; static;\r\n  end;<\/pre>\n<p>\u53ea\u6240\u4ee5\u7528\u8bb0\u5f55\uff08\u7ed3\u6784\u4f53\uff09\u800c\u4e0d\u662f\u7c7b\uff0c\u662f\u56e0\u4e3a\u5b83\u53ef\u4ee5\u5728\u6808\u4e0a\u8fd0\u884c\uff0c\u53ef\u4ee5\u7b80\u5316\u7f16\u7801\u3002<\/p>\n<p>\u4e0a\u9762\u7684\u5b9a\u4e49\u5b9e\u73b0\u4e86\u51e0\u4e2a\u51fd\u6570\uff1a<\/p>\n<ul>\n<li>Encode \u51fd\u6570\u7528\u4e8e\u5c06\u5404\u4e2a\u90e8\u5206\u7ec4\u5408\u6210\u4e00\u4e2a\u6709\u6548\u7684 URL \uff1b<\/li>\n<li>Decode \u51fd\u6570\u7528\u4e8e\u89e3\u6790\u4e00\u4e2a URL \uff0c\u5e76\u5c06\u5176\u5404\u90e8\u5206\u7684\u503c\uff0c\u4fdd\u5b58\u5230\u76f8\u5e94\u7684\u6210\u5458\u4e2d\uff1b<\/li>\n<li>Escape \u51fd\u6570\u7528\u4e8e\u5c06\u4e00\u4e2a\u5b57\u7b26\u4e32\u6309\u7167 URL \u7f16\u7801\u89c4\u5219\u8fdb\u884c\u8f6c\u4e49\uff0c\u4e3b\u8981\u7528\u4e8e\u4e2d\u6587\u548c\u7279\u6b8a\u5b57\u7b26\u7684\u5904\u7406\uff1b<\/li>\n<li>Unescape \u51fd\u6570\u7528\u4e8e\u5c06\u4e00\u4e2a\u4f7f\u7528 URL \u7f16\u7801\u89c4\u5219\u7684\u5b57\u7b26\u4e32\u53cd\u8f6c\u4e3a\u6b63\u5e38\u7684\u5b57\u7b26\u4e32\uff0c\u6ce8\u610f\u8fd9\u4e2a\u5b57\u7b26\u4e32\u5e94\u8be5\u662f\u8f6c\u4e49\u8fc7\u7684\u5b57\u7b26\u4e32\uff0c\u5426\u5219\u53ef\u80fd\u51fa\u73b0\u4e71\u7801<\/li>\n<\/ul>\n<p>\u597d\u4e86\uff0c\u4e0b\u9762\u770b\u5177\u4f53\u7684\u5b9e\u73b0\uff1a<\/p>\n<pre class=\"lang:delphi decode:true \">{ THttpUrl }\r\n\r\nfunction THttpUrl.Decode(const AUrl: QStringW): Boolean;\r\nvar\r\n  p, ps: PWideChar;\r\n  i: Integer;\r\nbegin\r\n  Result := true;\r\n  p := PWideChar(AUrl);\r\n  if StartWithW(p, 'https:\/\/', true) then\r\n  begin\r\n    Https := true;\r\n    Inc(p, 8);\r\n    Port := 443;\r\n  end\r\n  else\r\n  begin\r\n    Https := False;\r\n    if StartWithW(p, 'http:\/\/', true) then\r\n      Inc(p, 7);\r\n    Port := 80;\r\n  end;\r\n  if StrStrW(p, '@') &lt;&gt; nil then \/\/ http:\/\/username:password@host\r\n  begin\r\n    UserName := DecodeTokenW(p, ':@', #0, False, False);\r\n    if p^ = ':' then\r\n      Inc(p);\r\n    Password := DecodeTokenW(p, '@', #0, False, true);\r\n  end;\r\n  Host := DecodeTokenW(p, ':\/', #0, False, False);\r\n  if p^ = ':' then\r\n  begin\r\n    Inc(p);\r\n    ps := p;\r\n    SkipUntilW(p, '\/');\r\n    if TryStrToInt(StrDupX(ps, p - ps), i) then\r\n      Port := i\r\n    else\r\n      Result := False;\r\n  end;\r\n  URI := DecodeTokenW(p, '?', #0, False, False);\r\n  if Length(URI) = 0 then\r\n    URI := '\/';\r\n  if p^ = '?' then\r\n  begin\r\n    Inc(p);\r\n    SetLength(Params, 16);\r\n    i := 0;\r\n    repeat\r\n      if i = Length(Params) then\r\n        SetLength(Params, i + 16);\r\n      Params[i].Name := Unescape(DecodeTokenW(p, '=', #0, False, False));\r\n      if p^ = '=' then\r\n        Inc(p);\r\n      Params[i].Value := Unescape(DecodeTokenW(p, '&amp;', #0, False, False));\r\n      Inc(i);\r\n    until p^ = #0;\r\n    SetLength(Params, i);\r\n  end\r\n  else\r\n    SetLength(Params, 0);\r\nend;\r\n\r\nfunction THttpUrl.Encode(AUseUtf8: Boolean): QStringW;\r\nvar\r\n  i: Integer;\r\n  ADefPort: Boolean;\r\nbegin\r\n  if Https then\r\n  begin\r\n    Result := 'https:\/\/';\r\n    ADefPort := Port = 443;\r\n  end\r\n  else\r\n  begin\r\n    Result := 'http:\/\/';\r\n    ADefPort := Port = 80;\r\n  end;\r\n  if Length(UserName) &gt; 0 then\r\n  begin\r\n    Result := Result + Escape(UserName, AUseUtf8);\r\n    if Length(Password) &gt; 0 then\r\n      Result := Result + ':' + Escape(Password, AUseUtf8);\r\n    Result := Result + '@';\r\n  end;\r\n  Result := Result + Host;\r\n  if not ADefPort then\r\n    Result := Result + ':' + IntToStr(Port);\r\n  if Length(URI) &gt; 0 then\r\n  begin\r\n    if PWideChar(URI)^ &lt;&gt; '\/' then\r\n      URI := '\/' + URI;\r\n  end\r\n  else\r\n    URI := '\/';\r\n  Result := Result + URI;\r\n  if Length(Params) &gt; 0 then\r\n  begin\r\n    Result := Result + '?';\r\n    for i := 0 to High(Params) do\r\n    begin\r\n      if i &lt;&gt; 0 then\r\n        Result := Result + '&amp;';\r\n      Result := Result + Escape(Params[i].Name, AUseUtf8);\r\n      if Length(Params[i].Value) &gt; 0 then\r\n        Result := Result + '=' + Escape(Params[i].Value, AUseUtf8);\r\n    end;\r\n  end;\r\nend;\r\n\r\nclass function THttpUrl.Escape(const AURI: QStringW; AUseUtf8: Boolean)\r\n  : QStringW;\r\nvar\r\n  S: QStringA;\r\n  p: PQCharA;\r\n  i, L: Integer;\r\n  pd: PWideChar;\r\nbegin\r\n  if AUseUtf8 then\r\n    S := qstring.Utf8Encode(AURI)\r\n  else\r\n    S := qstring.AnsiEncode(AURI);\r\n  p := PQCharA(S);\r\n  SetLength(Result, S.Length * 3);\r\n  pd := PWideChar(Result);\r\n  while p^ &lt;&gt; 0 do\r\n  begin\r\n    if p^ in [$30 .. $39, $41 .. $5A, $61 .. $7A] then\r\n      pd^ := WideChar(p^)\r\n    else\r\n    begin\r\n      pd^ := '%';\r\n      Inc(pd);\r\n      pd^ := HexChar(p^ shr 4);\r\n      Inc(pd);\r\n      pd^ := HexChar(p^ and $F);\r\n    end;\r\n    Inc(pd);\r\n    Inc(p);\r\n  end;\r\n  SetLength(Result, pd - PWideChar(Result));\r\nend;\r\n\r\nclass function THttpUrl.Unescape(const S: QStringW): QStringW;\r\nvar\r\n  ATemp: TBytes;\r\n  p: PWideChar;\r\n  i: Integer;\r\n  ABom: Boolean;\r\nbegin\r\n  if Pos(S, '%') = 0 then\r\n    Result := S\r\n  else\r\n  begin\r\n    SetLength(ATemp, Length(S) shl 1);\r\n    p := PWideChar(S);\r\n    i := 0;\r\n    while p^ &lt;&gt; #0 do\r\n    begin\r\n      if p^ = '%' then\r\n      begin\r\n        Inc(p);\r\n        ATemp[i] := HexValue(p^) shl 4;\r\n        Inc(p);\r\n        ATemp[i] := ATemp[i] + HexValue(p^);\r\n      end\r\n      else if Ord(p^) &lt;= $FF then\r\n        ATemp[i] := Ord(p^)\r\n      else\r\n      begin\r\n        ATemp[i] := Ord(p^) shr 8;\r\n        Inc(i);\r\n        ATemp[i] := Ord(p^) and $FF;\r\n      end;\r\n      Inc(i);\r\n      Inc(p);\r\n    end;\r\n    case DetectTextEncoding(@ATemp[0], i, ABom) of\r\n      teUtf8:\r\n        Result := qstring.Utf8Decode(@ATemp[0], i)\r\n    else\r\n      Result := qstring.AnsiDecode(@ATemp[0], i);\r\n    end;\r\n  end;\r\nend;<\/pre>\n<p>\u5f53\u7136\u4e86\uff0c\u8fd9\u4e2a\u4ee3\u7801\u5f15\u7528\u4e86 QString.pas \u4e2d\u7684\u51e0\u4e2a\u51fd\u6570\uff0c\u6240\u4ee5\u4f60\u8981\u7528\u7684\u8bdd\uff0c\u4e00\u6837\u9700\u8981\u5f15\u5165 QString \u5355\u5143\u3002<\/p>\n<p>\u81f3\u4e8e\u7597\u6548\u561b\uff0c\u6682\u7565\u5427\u3002\u5957\u7528\u4e00\u53e5\u8bdd\uff0c\u8c01\u7528\u8c01\u77e5\u9053\uff01<\/p>\n<p>&nbsp;<\/p>\n<p>&nbsp;<\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u9996\u5148\uff0c\u4e00\u4e2a HTTP \u7684 URL \u6709\u4e0b\u9762 [&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":[69,8,21],"tags":[424,425,78],"class_list":["post-2601","post","type-post","status-publish","format-standard","hentry","category-c-builder","category-delphi","category-misc","tag-http","tag-url","tag-78"],"views":5476,"_links":{"self":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/2601","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=2601"}],"version-history":[{"count":1,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/2601\/revisions"}],"predecessor-version":[{"id":2602,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/2601\/revisions\/2602"}],"wp:attachment":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=2601"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=2601"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=2601"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}