delphi 对接钉钉
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;