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));