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;