THttpClient \u662f Delphi\/C++ Builder \u65b0\u5f15\u5165\u7684\u4e00\u4e2a HTTP\/HTTPS \u534f\u8bae\u5ba2\u6237\u7aef\u7684\u5c01\u88c5\uff0c\u76f8\u5f53\u597d\u7528\u3002\u6211\u73b0\u5728\u5df2\u7ecf\u57fa\u672c\u4e0a\u4e0d\u4f7f\u7528 libcurl \u4e86\uff0c\u5b83\u5df2\u7ecf\u80fd\u6ee1\u8db3\u6211\u7edd\u5927\u591a\u6570\u60c5\u51b5\u4e0b\u7684 HTTP \u64cd\u4f5c\u8bf7\u6c42\u3002<\/p>\n
\u4e0d\u8fc7\uff0c\u6700\u8fd1\u9047\u5230\u4e86\u4e00\u70b9\u5c0f\u95ee\u9898\uff0c\u6211\u4eec\u5148\u770b Post \u51fd\u6570\u7684\u58f0\u660e\uff1a<\/p>\n
\/\/\/ <summary>Post a raw file without multipart info<\/summary>\r\n function Post(const AURL: string; const ASourceFile: string; const AResponseContent: TStream = nil; const AHeaders: TNetHeaders = nil): IHTTPResponse; overload;\r\n \/\/\/ <summary>Post TStrings values adding multipart info<\/summary>\r\n function Post(const AURL: string; const ASource: TStrings; const AResponseContent: TStream = nil;\r\n const AEncoding: TEncoding = nil; const AHeaders: TNetHeaders = nil): IHTTPResponse; overload;\r\n \/\/\/ <summary>Post a stream without multipart info<\/summary>\r\n function Post(const AURL: string; const ASource: TStream; const AResponseContent: TStream = nil;\r\n const AHeaders: TNetHeaders = nil): IHTTPResponse; overload;\r\n \/\/\/ <summary>Post a multipart form data object<\/summary>\r\n function Post(const AURL: string; const ASource: TMultipartFormData; const AResponseContent: TStream = nil;\r\n const AHeaders: TNetHeaders = nil): IHTTPResponse; overload;<\/pre>\n\u8fd9\u662f THttpClient \u7684 Post \u7684\u51e0\u4e2a\u91cd\u8f7d\uff0c\u5982\u679c\u6211\u8981\u76f4\u63a5\u63d0\u4ea4\u4e00\u4e2a JSON \u6216 XML \u5b57\u7b26\u4e32\u5230\u670d\u52a1\u5668\u7aef\uff0c\u4e0a\u9762\u7684\u7b2c 1 \u79cd\u91cd\u8f7d\u8981\u6c42\u5148\u4fdd\u5b58\u5230\u6587\u4ef6\u518d\u63d0\u4ea4\uff0c\u7b2c 2 \u79cd\u91cd\u8f7d\u8981\u6c42\u7684\u662f\u4e00\u4e2a TStrings \u5bf9\u8c61\uff0c\u770b\u8d77\u6765\u5f88\u6709\u620f\uff0c\u7b2c\u4e09\u4e2a\u91cd\u8f7d\u662f\u6295\u5bc4\u4e00\u4e2a\u6d41\u8fdb\u53bb\uff0c\u770b\u8d77\u6765\u4e5f\u6709\u620f\uff0c\u7b2c\u56db\u79cd\u91cd\u8f7d\u660e\u663e\u5c31\u662f\u6211\u4eec\u9700\u8981\u7684\u4e86\u3002<\/p>\n
\u597d\u5427\uff0c\u7136\u540e\u6211\u4eec\u8fdb\u5165\u7b2c 2 \u79cd\u91cd\u8f7d\u7684\u6e90\u7801\uff0c\u53d1\u73b0\u4e86\u4ec0\u4e48\uff1f<\/p>\n
LParams := '';\r\n for I := 0 to ASource.Count - 1 do\r\n begin\r\n Pos := ASource[I].IndexOf('=');\r\n if Pos > 0 then\r\n LParams := LParams + ASource[I].Substring(0, Pos) + '=' + TURI.URLEncode(ASource[I].Substring(Pos + 1), True) + '&';\r\n end;\r\n LParams := LParams.Substring(0, LParams.Length - 1); \/\/ Remove last &\r\n<\/pre>\n\u4e5f\u5c31\u662f\u8bf4\uff0c\u5b83\u4f20\u9012\u7684\u662f\u5b9e\u9645\u4e0a\u662f Name -Value \u503c\u5bf9\uff0c\u6ca1\u914d\u5bf9\u7684\u76f4\u63a5\u5ffd\u7565\u6389\u4e86\u3002\u663e\u7136\u4e5f\u4e0d\u7b26\u5408\u6211\u4eec\u7684\u8981\u6c42\uff0c\u53ef\u4ee5\u88ab Pass \u6389\u4e86\u3002\u5269\u4e0b\u7684\u552f\u4e00\u9009\u62e9\u5c31\u662f\u4f20\u9012\u4e00\u4e2a\u6d41\u8fdb\u53bb\u3002<\/p>\n
\u597d\u4e86\uff0cQJSON \u548c QXML \u90fd\u63d0\u4f9b\u4e86\u4fdd\u5b58\u5230\u6d41\u91cc\u7684\u652f\u6301\uff0c\u6240\u4ee5\u521b\u5efa\u4e00\u4e2a\u4e34\u65f6\u7684\u5185\u5b58\u6d41\uff0c\u4fdd\u5b58\u4e0b\u6765\u540e\u505a\u4e3a\u53c2\u6570\u4f20\u9012\u8fdb\u53bb\uff0c\u7528\u5b8c\u91ca\u653e\u5c31 OK \u4e86\u3002\u5982\u679c\u5acc\u4e0d\u591f\u76f4\u89c2\uff0c\u8fd8\u53ef\u4ee5\u7528 QMacros \u6765\u7528\u6a21\u677f\u66ff\u6362\u7684\u65b9\u5f0f\u6765\u66ff\u6362\uff0c\u6548\u7387\u4e00\u6837\u6760\u6760\u7684\u3002\u4e0b\u9762\u662f\u4e00\u4e2a\u7b80\u5355\u7684\u4f8b\u5b50\uff08\u7528 THttpClient \u7528\u8f7b\u7801\u4e91\u53d1\u9001\u6a21\u677f\u77ed\u4fe1\uff09\uff1a<\/p>\n
var\r\n AResponse: IHttpResponse;\r\n AUrl: String;\r\n AMacros: TQMacroManager;\r\n AReply, AItem: TQJson;\r\n ATimeStamp: String;\r\n AStream: TStringStream;\r\nconst\r\n AVerifyUrl\r\n : String =\r\n '#protocol#:\/\/api.qingmayun.com\/#SoftVersion#\/accounts\/#accountSid#\/SMS\/templateSMS?'\r\n + 'sig=#sig#×tamp=#timestamp#';\r\n APostContent: String = '{'#13#10 + '\"templateSMS\": {'#13#10 +\r\n ' \"appId\": \"#appId#\",'#13#10 + ' \"templateId\": \"#templateId#\",'#13#10\r\n + ' \"to\": \"#to#\",'#13#10 + ' \"param\": \"#param#\"'#13#10 +\r\n ' }'#13#10 + '}';\r\n function CalcSign: String;\r\n var\r\n S: String;\r\n ADigest: TQMD5Digest;\r\n begin\r\n S := AccountId + AuthToken + ATimeStamp;\r\n ADigest := MD5Hash(S);\r\n Result := BinToHex(@ADigest, SizeOf(ADigest), true);\r\n end;\r\n\r\nbegin\r\n Result := False;\r\n AMacros := TQMacroManager.Create;\r\n AStream := TStringStream.Create('', TEncoding.UTF8, False);\r\n try\r\n ATimeStamp := FormatDateTime('yyyymmddhhnnss', Now);\r\n AMacros.Push('protocol', 'https');\r\n AMacros.Push('SoftVersion', '20141029');\r\n AMacros.Push('accountSid', AccountId);\r\n AMacros.Push('appId', AppId);\r\n AMacros.Push('templateId', TemplateId);\r\n AMacros.Push('to', APhoneNum);\r\n AMacros.Push('param', ACode + ',30');\r\n AMacros.Push('sig', CalcSign);\r\n AMacros.Push('timestamp', ATimeStamp);\r\n AUrl := AMacros.Replace(AVerifyUrl, '#', '#');\r\n FHttpClient.Accept := 'application\/json';\r\n FHttpClient.ContentType := 'application\/json;charset=utf-8';\r\n AStream.WriteString(AMacros.Replace(APostContent, '#', '#',\r\n MRF_IN_DBL_QUOTER));\r\n AStream.Position := 0;\r\n AResponse := FHttpClient.Post(AUrl, AStream);\r\n if Assigned(AResponse) then\r\n begin\r\n if AResponse.StatusCode = 200 then\r\n begin\r\n AReply := TQJson.Create;\r\n try\r\n if AReply.TryParse(AResponse.ContentAsString()) then\r\n begin\r\n FLastError := AReply.ValueByPath('result.respCode', '');\r\n if FLastError = '00000' then\r\n Result := true;\r\n end;\r\n finally\r\n FreeAndNil(AReply);\r\n end;\r\n end\r\n else\r\n FLastError := IntToStr(AResponse.StatusCode);\r\n end\r\n else\r\n FLastError := '-1';\r\n finally\r\n FreeAndNil(AMacros);\r\n end;<\/pre>\n<\/p>\n
<\/p>\n","protected":false},"excerpt":{"rendered":"
THttpClient \u662f Delphi […]<\/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,42,559,560,25],"class_list":["post-3580","post","type-post","status-publish","format-standard","hentry","category-c-builder","category-delphi","category-misc","tag-http","tag-json","tag-post","tag-xml","tag-25"],"views":6598,"_links":{"self":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/3580","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=3580"}],"version-history":[{"count":1,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/3580\/revisions"}],"predecessor-version":[{"id":3581,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/3580\/revisions\/3581"}],"wp:attachment":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=3580"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=3580"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=3580"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}