Foxtable(狐表) → 用户栏目 → 专家坐堂 → 钉钉接口


  共有11740人关注过本帖树形打印复制链接

主题：钉钉接口
帅哥哟，离线，有人找我吗？
weibu
 小大  41楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：641 积分：5194 威望：0 精华：0 注册：2018/5/19 22:27:00 		  发帖心情 Post By：2021/2/26 7:11:00 [显示全部帖子]

谢谢，老师。其实我这边对71楼的代码反复调试已经有50多次了。
蓝色代码，我专门做了个按钮，去单独调取一个DeptId的详情，并更新到数据库。都是可以的；
71楼代码去掉蓝色代码，获取res的解密信息也是正常的；
但就是两个代码放到一起提升“未将对象引用设置到对象的实例 ”
通过几十次的调试定位，发现是  msgbox(rsp.result.DeptId) 、 msgbox(rsp.result.name)  的值不存在提示的报错。
但不知道为啥就rsp.result到了回调程序就没有值了？
或者说下面代码没有执行：
Dim client As DingTalk.Api.IDingTalkClient = New DingTalk.Api.DefaultDingTalkClient("https://oapi.dingtalk.com/topapi/v2/department/get")
Dim req As DingTalk.Api.Request.OapiV2DepartmentGetRequest = New DingTalk.Api.Request.OapiV2DepartmentGetRequest()
req.SetHttpMethod("POST")
req.DeptId = s
Dim rsp As DingTalk.Api.Response.OapiV2DepartmentGetResponse = client.Execute(req, access_token)   ‘msgbox(access_token）也是正常的
Dim t As String  = rsp.result.DeptId
 回到顶部
帅哥哟，离线，有人找我吗？
weibu
 小大  42楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：641 积分：5194 威望：0 精华：0 注册：2018/5/19 22:27:00 		  发帖心情 Post By：2021/2/26 7:46:00 [显示全部帖子]

老师：服务端发布后，单独下方代码，在我自己的电脑上，可以正常执行；同样的程序，放到服务器上，也用按钮更新，就报错“未将对象引用设置到对象的实例” ，不仅是这个代码，而且之前对人员等更新的按钮（钉钉服务端API做的接口）同样的问题；
Dim r As Row = Tables("conip").Rows(0)  
Dim access_token As String = Functions.Execute("access_token",r("appkey"),r("appsecret"))   
Dim client As DingTalk.Api.IDingTalkClient = New DingTalk.Api.DefaultDingTalkClient("https://oapi.dingtalk.com/topapi/v2/department/get")
Dim req As DingTalk.Api.Request.OapiV2DepartmentGetRequest = New DingTalk.Api.Request.OapiV2DepartmentGetRequest()
req.SetHttpMethod("POST")
req.DeptId = s
Dim rsp As DingTalk.Api.Response.OapiV2DepartmentGetResponse = client.Execute(req, access_token)
Dim t As String  = rsp.result.DeptId
Dim dt As DataRow = DataTables("department").SQLFind("outid =  '" & t & "' and companyid =  '" & r("companyid") & "'")
If dt IsNot Nothing Then
        dt("departname") = rsp.result.name
        dt("outparentid") = rsp.result.parentid
        dt("isohas") = True
        dt.Save
End If
老师是不是服务器端，什么端口或设置没开导致的？
[此贴子已经被作者于2021/2/26 7:47:55编辑过]
 回到顶部
总数 43 上一页 1 2 3 4 5
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询