Delphi Xe 10.3 钉钉SDK开发——审批流接口(获取表单ProcessCode)

开发钉钉审批流时,需要用到钉钉表单的Processcode,有两种方法 :

一、手动获取:

管理员后台------审批------找到对应的表单:如图:

ProcessCode后面就是了!

二、接口获取:今天的重点,不说了,直接上代码。

复制代码
function TDingtalkNew.GetProcessCode(ProcessName: string): string;
const
  ProcessCodeAPI: string = 'https://oapi.dingtalk.com/topapi/process/get_by_name';
var
  HttpClient: TNetHTTPClient;
  Params: TStringList;
  Response: TStringStream;
var
  JO: TJSONObject;
  errcode: string; //返回代码
begin
  HttpClient := TNetHTTPClient.Create(nil);
  Params := TStringList.Create();
  Response := TStringStream.Create('', 65001);
  try
    Params.Add('access_token=' + Token);
    Params.Add('name=' + ProcessName);
    HttpClient.post(ProcessCodeAPI, Params, Response);
    JO := TJSONObject.ParseJSONValue(Response.DataString) as TJSONObject;
    try
      if JO <> nil then
      begin
        JO.TryGetValue<string>('errcode', errcode);
        if errcode.ToInteger = 0 then
        begin
//          Result := Response.DataString;
          JO.TryGetValue<string>('process_code', Result);
        end
        else
        begin
          JO.TryGetValue<string>('errmsg', Result);
          //这里最好做日志记录错误信息
        end;
      end;
    finally
      JO.Free;
    end;
  finally
    HttpClient.Free;
    Params.Free;
    Response.Free;
  end;

end;

下面就是调用了:

复制代码
procedure TMainForm.ToolButton6Click(Sender: TObject);
var
  dk: TDingtalkNew;
begin
  dk := TDingtalkNew.Create;
  try
    dk.Getappid := '你企业钉钉的APPID';
    dk.Getappsecret := '你企业钉钉的Appsecret';
    Log.Debug(dk.GetProcessCode('ERP客户订单'),'debug');
  finally
    dk.Free;
  end;
end;

中年大叔学Delphi

相关推荐
yidiancaijing5 天前
钉钉换帅后,先砍自己人
钉钉
Wezzer5 天前
Zabbix告警系统集成指南:从钉钉机器人到网易邮件的全流程配置
运维·钉钉·zabbix·触发器·网易邮箱
Better Rose5 天前
2025年“创新杯”(原钉钉杯) A题 建模思路
人工智能·数学建模·钉钉
钉钉开发者社区5 天前
AI开放课堂:钉钉MCP开发实战
人工智能·钉钉
热心网友俣先生5 天前
20255年第四届创新杯(原钉钉杯)参考论文+标准答案发布
钉钉
CZZDg5 天前
zabbix自动发现、自动注册、及自动预警到邮箱
钉钉·zabbix
Layux5 天前
使用钉钉开源api发送钉钉工作消息
java·spring boot·钉钉
yuzx20087 天前
ubuntu 24.04 xfce4 钉钉输入抢焦点问题
linux·ubuntu·钉钉
产业家11 天前
AI生态,钉钉再「出招」
人工智能·钉钉
脑袋大大的11 天前
每日钉钉API探索:createDing一键发起DING消息
钉钉