delphi 对接钉钉

 try
    lJson := TJsonObject.Create;
    lJson.S['wechatlinkname'] := self.WeChatLinkName;
    lJson.S['language'] := language;
    lJson.I['dept_id'] := dept_id;
    try
      self.FConnection.listsub(lJson.ToString, AErrMsg);
      lJson.FromJSON(AErrMsg);
      self.ErrorCode := lJson.I['ErrorCode'];
      self.ErrorMsg := lJson.S['ErrorMsg'];
      Result := AErrMsg;
    finally
      lJson.Free;
    end;
  except
    raise Exception.Create('服务器接口失败' + AErrMsg);
  end;

 

posted @   熊大熊二  阅读(429)  评论(0编辑  收藏  举报
编辑推荐:
· 一个奇形怪状的面试题:Bean中的CHM要不要加volatile?
· [.NET]调用本地 Deepseek 模型
· 一个费力不讨好的项目,让我损失了近一半的绩效!
· .NET Core 托管堆内存泄露/CPU异常的常见思路
· PostgreSQL 和 SQL Server 在统计信息维护中的关键差异
阅读排行:
· DeepSeek “源神”启动!「GitHub 热点速览」
· 微软正式发布.NET 10 Preview 1:开启下一代开发框架新篇章
· 我与微信审核的“相爱相杀”看个人小程序副业
· C# 集成 DeepSeek 模型实现 AI 私有化(本地部署与 API 调用教程)
· spring官宣接入deepseek,真的太香了~
点击右上角即可分享
微信分享提示