delphi 三层源码中间件框架【企业微信】

ETU中间件(delphi源码框架)

已于 2024-04-11 14:14:06 修改

阅读量833

点赞数 1

CC 4.0 BY-SA版权

分类专栏： ETU中间件教程文章标签：数据库开源软件开源中间件

于 2023-03-13 12:05:08 首次发布

本文链接：https://blog.csdn.net/dgthm/article/details/129426272

ETU中间件教程专栏收录该内容

15 篇文章

订阅专栏

1，封装了一个企业微信API调用函数【ExeQywxapi】，服务端添加好需要用的到URL,设置企业微信后端的2个密码；前端只要传入相应的参数即可，access_token 秘钥后端自动生成刷新。

2，前端参数：

【url里面的参数】若有，则名称与后端url地址里的参数一致（json格式）；

【data 参数】若有，则赋值给SendData 变量（data格式可参考企业微信开发文档）；

【Url】就是后端定义的 url ID 名称；

【Token】后端自定调用此api接口的权限秘钥；

【sErrorMsg】后端返回的错误代码信息；

3，范例：

var
  Url,  sErrorMsg, empcode, stremp, Token: string;
  json: ISuperObject;
begin
  if messagedlg('提示:你确定要发送此消息?', mtWarning, [mbyes, mbNo], 0) = mrno then
    exit;
  empcode := '';
  if empid.text <> '' then
    empcode := empid.text;
  //消息封装格式（请看官网文档）
  stremp:= '{' + ' "touser" : "' + empcode +
    + ' "msgtype" : "text",' + ' "agentid" : 1000002,'
    + ' "text" : {'
    +'  "content" : "请点击核对 你的2021-01月工资'
    +'<a href=\"http://work.weixin.qq.com\"></a>" },'
    + ' "safe":0,' + ' "enable_id_trans": 0,' + ' "enable_duplicate_check": 0,' + '} ';
  json := TSuperObject.Create(stObject);
  try
    Url := 'SendMessage';
    Token:=123456;  
    json.S['SendData']:= stremp;
    if not dm.ExeQywxapi(vdata, Url,Token ,json.AsString,sErrorMsg) then
    begin
      json.Clear(true);
      json := SO(vdata);
      sErrorMsg := json.S['errcode'];
      showmessage('发送失败:' + sErrorMsg);
      exit；
    end;
      showmessage('消息发送成功...')

  finally
    json := nil;
  end;

4，后端界面：