delphi XE10.3 对接企业微信功能

 先在云服务器端设置好账号.

var
  Ajson:TJsonObject;
begin
  Ajson:=TJsonObject.Create; //构建json参数
  Ajson.S['APIURL']:='https://qyapi.weixin.qq.com/cgi-bin/department/list?access_token=%s'; //调用API
  Ajson.S['AJson']:='';
  Memo1.Lines.Add(FireQyWeiXin1.GetQyWeiXinApi(Ajson));

 别忘了在企业微信的后台加入IP白名单