一、TC3鉴权单元

为了方便复用，写了一个TC3鉴权单元文件：TC3_Authorization.pas

{
2021-02-15
广西南宁
张旭州
腾讯云 TC3-HMAC-SHA256 生成鉴权数据
}unit TC3_Authorization;interfaceusesSystem.SysUtils, System.hash, System.NetEncoding, System.DateUtils;{ -------------------------------------------------------------------------------过程名:    genTC3Auth作者:      张旭州日期:      2021.02.15参数:      SecretKey, SecretId, sDomain, bodyJSON, Service: string参数说明： AccessKeyID，AccessKeySecret，域名, 待发送的数据主体JSON， 服务ocr, cvm返回值:    string参数参考如下：SecretKey := '您的腾讯云SecretKey';SecretId := '您的腾讯云SecretId';Service := 'sms'  //发送短信sDomain := 'sms.tencentcloudapi.com'   //短信发送的域名------------------------------------------------------------------------------- }
function genTC3Auth(SecretKey, SecretId, sDomain, bodyJSON, Service: string): string;implementationfunction DateTimeToUnix(const AValue: TDateTime): Int64;
// 日期转Unix时间戳
beginResult := System.DateUtils.DateTimeToUnix(AValue) - 8 * 60 * 60;
end;//腾讯云TC3 V3签名鉴权
function genTC3Auth(SecretKey, SecretId, sDomain, bodyJSON, Service: string): string;
varhttpRequestMethod: string; // = "POST";canonicalUri: string; //= "/";canonicalQueryString: string; //= "";canonicalHeaders: string; // = "content-type:application/json; charset=utf-8\n" + "host:" + host + "\n";signedHeaders: string; //= "content-type;host";SecretDate, SecretService, SecretSigning, Signature: TBytes;StringToSign, payload, CanonicalRequest, HashedRequestPayload, HashedCanonicalRequest: string;sDate,timestamp : string;Authorization, CredentialScope : string;
beginsDate := FormatDateTime('YYYY-MM-DD', now());timestamp := DateTimeToUnix(now).ToString;httpRequestMethod := 'POST';canonicalUri := '/';canonicalQueryString := '';canonicalHeaders := 'content-type:application/json' + #10+ 'host:' + sDomain + #10;signedHeaders := 'content-type;host';payload := bodyJSON;//待发送的数据的哈希值:HashedRequestPayload := THashSHA2.GetHashString(payload);//拼接规范请求串CanonicalRequest := httpRequestMethod + #10+ canonicalUri + #10+ canonicalQueryString + #10+ canonicalHeaders + #10+ signedHeaders + #10+ HashedRequestPayload;//计算派生签名密钥SecretDate := THashSHA2.GetHMACAsBytes(sDate, TEncoding.utf8.GetBytes('TC3' + SecretKey));SecretService := THashSHA2.GetHMACAsBytes(Service, SecretDate);SecretSigning := THashSHA2.GetHMACAsBytes('tc3_request', SecretService);//规范请求串的哈希值HashedCanonicalRequest := THashSHA2.GetHashString(CanonicalRequest);//组装待签名字符串StringToSign := 'TC3-HMAC-SHA256' + #10+ timestamp + #10+ sDate + '/' + Service + '/tc3_request' + #10+ HashedCanonicalRequest;//计算签名Signature := THashSHA2.GetHMACAsBytes(Bytesof(StringToSign), SecretSigning);
//  Application.MessageBox(PChar(THash.DigestAsString(Signature)),
//      '提示', MB_OK + MB_ICONINFORMATION + MB_TOPMOST);CredentialScope := sDate + '/' + Service + '/tc3_request';//拼接 AuthorizationAuthorization :='TC3-HMAC-SHA256' + ' ' +'Credential=' + SecretId + '/' + CredentialScope + ', ' +'SignedHeaders=' + SignedHeaders + ', ' +'Signature=' + StringReplace(PChar(THash.DigestAsString(Signature)), Chr(13) + Chr(10), '',[rfReplaceAll]);Result := Authorization;
end;end.

二、短信发送模块

在implementation下 uses
Unit2, TC3_Authorization;

procedure TForm1.btn_tc3_sendClick(Sender: TObject);
varstrMobile, SecretKey, SecretId,sdkappid,sign, params, tpl_id, strjson:string;tc3 : string;url : string;http : TIdHTTP;jsonToSend : TStringStream;Aresult:string;//申明变量Root:TJSONObject;    //uses System.JSON;jsonArray: TJSONArray; // JSON数组变量list : TStringList;i : Integer;phoneSet : string;beginlist := TStringList.Create;list.CommaText := edt_strMobile.Text;for i := 0 to list.Count -1  dobeginphoneSet := phoneSet + '"86' + list[i] + '",'end;strMobile := phoneSet.Remove(Length(phoneSet)-1);list.Free;SecretKey := '您的Key';SecretId := '您的ID';sdkappid := edt_sdkappid.Text;sign := edt_sign.Text;params := edt_params.Text;tpl_id := edt_tpl_id.Text;strjson := '{'+ '"PhoneNumberSet":['+ strMobile+ '],'+ '"TemplateParamSet":' + params+ ','+ '"TemplateID":"'+ tpl_id+ '",'+ '"SmsSdkAppid":"'+ sdkappid+ '",'+ '"Sign":"'+ sign+'"}';tc3 := TC3_Authorization.genTC3Auth(SecretKey, SecretId, 'sms.tencentcloudapi.com',strjson, 'sms');url := 'https://sms.tencentcloudapi.com/';http := TIdHttp.Create(nil);http.HandleRedirects := True;http.ReadTimeout := 3000;http.Request.ContentType := 'application/json';//设置内容类型为jsonjsonToSend := TStringStream.Create(strjson, TEncoding.UTF8);jsonToSend.Position := 0;//将流位置置为0http.Request.CustomHeaders.Clear;http.Request.CustomHeaders.AddValue('Authorization', ' ' + tc3);http.Request.CustomHeaders.AddValue('Content-Type', ' application/json');http.Request.CustomHeaders.AddValue('Host', ' sms.tencentcloudapi.com');http.Request.CustomHeaders.AddValue('X-TC-Action', ' SendSms');http.Request.CustomHeaders.AddValue('X-TC-Timestamp', ' ' + gwj_DateTimeToUnix(now).ToString);http.Request.CustomHeaders.AddValue('X-TC-Version', ' 2019-07-11');http.Request.AcceptCharSet := 'UTF-8';http.Request.AcceptEncoding := 'UTF-8';http.Request.AcceptLanguage := 'UTF-8';http.Request.CharSet := 'UTF-8';
//  http.HTTPOptions := IdHTTP.HTTPOptions + [hoKeepOrigProtocol];Aresult := http.Post(url, jsonToSend);//用MEMO控件接收POST后的数据返回Aresult := UnicodeToChinese(Aresult);Memo1.Text := Aresult;jsonToSend.free;http.free;//发送成功的示例//{"Response":{"SendStatusSet":[{"SerialNo":"2019:2892974270720676287","PhoneNumber":"+8613377131696","Fee":1,"SessionContext":"","Code":"Ok","Message":"send success","IsoCode":"CN"}],"RequestId":"b2e1fdcb-e877-4bbe-89cc-e7cae7cb567d"}}Root:= TJSONObject.ParseJSONValue(Trim(Aresult)) as TJSONObject;   //uses System.JSON;Root := Root.GetValue('Response') as TJSONObject;jsonArray := Root.GetValue('SendStatusSet') as TJSONArray ;Root := jsonArray.Get(0) as TJSONObject; //第一个号码结果edt_result.Text := Root.GetValue('Code').Value;edt_errmsg.Text := Root.GetValue('Message').Value;edt_ext.Text := Root.GetValue('SessionContext').Value;
end;

Delphi调用腾讯云最新签名方法v3 TC3-HMAC-SHA256发送短信相关推荐

delphi 调用腾讯云短信
{ 腾讯云短信demo berlin _20190626_012152 作者:高文杰 QQ:46140262 Tel: 13165191728 公司:山东易桥智能科技有限公司完整源码下载地址 ht ...
阿里云发送短信功能（环境搭建篇）
前言 1.阿里云的开发文档写的很详细,仔细阅读文档就可以啦. 步骤 (1)第一步,需要注册阿里云账号,并且完成实名注册,发送短信验证功能需要充值.这个不仔细展开讲 (2)第二步,点击开通短信功能并且 ...
短信发送:webservice调用第三方接口发送短信
1 原博客地址:http://blog.csdn.net/sxdtzhaoxinguo/article/details/34437591 2 demo地址:http://download.csdn.n ...
delphi腾讯云短信（签名方法v3（TC3-HMAC-SHA256））
作者QQ:(648437169) 下载链接:https://download.csdn.net/download/liushenglin123/15482757 [delphi腾讯云短信]使用腾讯云最 ...
普歌-腾讯云短信+使用node发送短信（3种方法API、SDK）、封装工具、搭建web服务、写接口、调用接口发送短信、时效性判断、验证验证码的正确性（下）
普歌-结合腾讯云短信服务+node搭建一个简单的发送短信web小项目涉及技术: 腾讯云服务后端服务:node+express 前端搭建:html+js 前言:本来这篇博客应该很早就发了,中间有一些 ...
C# 使用GET和POST（v1签名方式）以及SDK的方式调用腾讯云人像动漫化接口，包含设置代理
声明:此内容仅供学习交流使用,不用于商业用途,如果涉及侵权,联系作者删除. 最近在调用腾讯云的人像动漫化接口,感觉挺好玩的,自己去看文档写了一下,遇到了各种问题,最后都解决了 ,遇到最多的就是签名错误 ...
详解-java调用腾讯云的短信接口（从申请到测试完成）
首先我们去注册或登录腾讯云可以白嫖200条短信(反正也是自己玩玩,足够了) 在产品那里找到短信进入之后,看应用列表里面有没有创建过(如果没有就创建)这里有一个SDKAppID会要用到创建之后呢, ...
【SpringBoot深入浅出系列】SpringBoot之调用腾讯云短信接口发送短信
目录一.开发前准备 1.创建签名 2.创建正文模板管理 3.创建应用 4.创建secretId和secretKey 二.开发 1.创建 Spring Initializr 项目 tengxunsms ...
java调用腾讯云的短信接口
首先导入maven依赖 <dependency><groupId>com.tencentcloudapi</groupId><artifactId>te ...

Delphi调用腾讯云最新签名方法v3 TC3-HMAC-SHA256发送短信

一、TC3鉴权单元

二、短信发送模块

Delphi调用腾讯云最新签名方法v3 TC3-HMAC-SHA256发送短信相关推荐

最新文章

热门文章