腾讯云 API 3.0（V3版签名）通用接口 Delphi 版-Toy模板网

这篇具有很好参考价值的文章主要介绍了腾讯云 API 3.0（V3版签名）通用接口 Delphi 版。希望对大家有所帮助。如果存在错误或未考虑完全的地方，请大家不吝赐教，您也可以点击"举报违法"按钮提交疑问。

腾讯云 API 3.0（V3版签名）通用接口 Delphi 版,Delphi,短信平台,微信开放平台,腾讯云,云计算

一、腾讯云API 3.0 简介：

二、Delphi 接口函数说明：

1. Delphi 接口包含的单元：

2. 同步调用和异步调用的区别：

3. 程序调用示例：

三、Delphi 版腾讯云API 3.0 版接口函数下载

四、演示程序录播

下载源程序以及Demo(收费)

一、腾讯云API 3.0 简介：

腾讯云 API 已全面升级到 API 3.0，实现多地域部署，支持就近接入，访问时延显著下降，接口设计标准规范，接口文档详细全面，开发者工具丰富易用，能让您方便快捷地使用腾讯云产品。

2023年1月1日起对于新增用户已停止旧版本API 2.0接口服务，对于存量用户预计2023年3月31日停止服务。

基于以上原因，我们将 Delphi 原来的API 2.0接口也同步更新升级到 API 3.0 版本，升级后的3.0版本，统一标准，整个腾讯云API使用统一的签名规则，只是不同的接口调用域名、action、version 有区别而已。

通讯云部分文档快捷链接：

序号	功能	腾讯云文档链接
1	API 中心总入口	云产品API中心_云API接口中心-腾讯云
2	API 3.0 V3签名方法	文字识别签名方法 v3-调用方式-API 中心-腾讯云
3	AI 会话 3.0 智能文生图	AI 绘画智能文生图-文生图相关接口-API 中心-腾讯云
4	AI 会话 3.0 智能图生图	AI 绘画智能图生图-图生图相关接口-API 中心-腾讯云
5	身份证OCR识别	文字识别身份证识别-卡证文字识别相关接口-API 中心-腾讯云

二、Delphi 接口函数说明：

完全实现V3签名，并实现HTTP-POST请求函数，调用腾讯API无需考虑签名等任何细节，只需要构造好每个函数的入口参数即可，非常简单，无需进行无聊费时的调试！可以实现全部腾讯云API 3.0的调用。

1. Delphi 接口包含的单元：

序号	单元	说明
1	uTencent_V3_Core.Pas	完成V3签名，并实现HTTP-POST通用请求。具体无需调用该单元函数。
2	uTencent_V3_Interface.Pas	实现了智能文生图、智能图生图同步和异步的调用接口以及身份证OCR识别同步调用接口，实际调用是这个单元，该单元又调用uTencent_V3_Core.Pas单元。

2. 同步调用和异步调用的区别：

由于所有的API需要和腾讯后台通信，因为网络等等原因，可能会造成收到结果又一定的延迟。这样如果是同步的话，表示函数一定要收到结果才退出，这就会出现程序在收到结果前UI不能动，程序像卡死了一样。异步的话就是调用后程序还可以流畅操作，UI不会锁定。等结果回来后会通过回调函数进行处理。

具体函数示例如下（Tencent_V3_Interface.Pas单元中定义）：

//1. AI 文生图函数
//1.1 异步调用
procedure Asyn_Text2Image(const requestStr : string; ResultCallBack : TResultCallBack1); overload;
procedure Asyn_Text2Image(const requestStr : string; ResultCallBack : TResultCallBack2); overload;
//1.2 同步调用
function Sync_Text2Image(const requestStr : string; var responseStr : string ) : Boolean;

//2. AI 图生图函数
//2.1 异步调用
procedure Asyn_Image2Image(const requestStr : string; ResultCallBack : TResultCallBack1); overload;
procedure Asyn_Image2Image(const requestStr : string; ResultCallBack : TResultCallBack2); overload;
//2.2 同步调用
function Sync_Image2Image(const requestStr : string; var responseStr : string ) : Boolean;


//3. 身份证识别，同步
function Sync_IDCardOCR(const requestStr : string; var responseStr : string ) : Boolean;

3. 程序调用示例：

同步调用文生图示例：

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  requestStr : string;
  responseStr: string;
  jo : TJSONObject;
  T  : TDateTime;
begin
  T := Now;
  //生成请求的JSON字符串，具体需要根据腾讯API文档实现，不同API，请求参数不一样
  requestStr := Build_Text2Picture_RequesteJSONStr;
  //同步发送请求到腾讯后台，签名等已经实现，无需考虑
  if not Sync_Text2Image(requestStr, responseStr) then
     begin
       ShowMessage(responseStr);
       Exit;
     end;
  //等待结果，结果返回后转换成图片显示出来
  Base64toImage(responseStr,'A1.jpg');
  Image1.Picture.LoadFromFile('A1.jpg');

  //花费时间
  Label_Time.Caption := SecondsBetween(Now,T).ToString + ' S';
end;

异步调用文生图示例：

procedure TForm1.SpeedButton5Click(Sender: TObject);
var
  requestStr : string;
  responseStr: string;
  jo : TJSONObject;
begin
  ActivityIndicator1.Animate := True;
  T2 := Now;
  requestStr := Build_Image2Image_RequesteJSONStr;
  //注意 ResultCallBackA 是一个回调函数，回调函数支持对象的方法，也支持独立的函数，通过重载实现
  Asyn_Image2Image(requestStr,ResultCallBackA);
end;

注意ResultCallBackA回调函数，这个回调函数是一个对象的方法，具体的就是主From的一个方法。

procedure TForm1.ResultCallBackA(ResultOK: Boolean; responseStr: string);
begin
  ActivityIndicator1.Animate := False;
  if not ResultOK then
     begin
       ShowMessage(responseStr);
       Exit;
     end;

  Base64toImage(responseStr,'A1.jpg');
  Image1.Picture.LoadFromFile('A1.jpg');
  //花费时间
  Label_Time.Caption := SecondsBetween(Now,T2).ToString + ' S';

end;