- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]按照论坛的帖子 引用金蝶cloud SDK失败 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170483)
-- 发布时间：2021/7/28 9:57:00
-- [求助]按照论坛的帖子 引用金蝶cloud SDK失败
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=169576&skin=0
依旧报错为：
看论坛上有引用金蝶cloud的SDK报错处理的方法，我按照这个方法没有成功，请问大家有解决办法吗
此主题相关图片如下：qq图片20210728095141.png
？
看论坛上有引用金蝶cloud的SDK报错处理的方法，我按照这个方法没有成功，请问大家有解决办法吗
此主题相关图片如下：qq图片20210728095141.png？
-- 发布时间：2021/7/28 10:06:00
--
用法没有问题的。建议咨询一下金蝶
-- 发布时间：2021/7/28 11:05:00
--
按照接口说明
调整成不引用 dll 文件方式了
代码如下：
Dim hc As New HttpClient("http://ServerIp/k3cloud/Kingdee.BOS.WebApi.ServicesStub.AuthService.ValidateUser.common.kdsvc")
hc.FormData.Add("acctID","5cf5e9c5d1823a")
hc.FormData.Add("username","****")
hc.FormData.Add("password","****")
hc.FormData.Add("lcid",2052)
Dim jo As JObject = Jobject.Parse(hc.GetData)
Output.Show(jo.ToString)
Output.Show(jo("LoginResultType").ToString)
可以正常连接 LoginResultType 状态显示 为1
但是，具体的业务 操作 是另外一个 地址 http://ServerIp/K3Cloud/Kingdee.BOS.WebApi.ServicesStub.DynamicFormService.View.common.kdsvc
如截图所示，先需要验证身份，再进行操作
此主题相关图片如下：qq图片20210728110209.png
不知道怎么处理了，请老师看看，指导一下
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:金蝶云星空webapi接口说明书_v5.0.docx.zip |
[此贴子已经被作者于2021/7/28 11:15:29编辑过]
-- 发布时间：2021/7/28 11:10:00
--
开发文档？
-- 发布时间：2021/7/28 11:16:00
--
不好意思 操作没有传成功，补上了
[此贴子已经被作者于2021/7/28 11:17:09编辑过]
-- 发布时间：2021/7/28 11:47:00
--
同样的方法调用其它接口就行了
Dim hc As New HttpClient("http://ServerIp/k3cloud/Kingdee.BOS.WebApi.ServicesStub.AuthService.ValidateUser.common.kdsvc")
hc.FormData.Add("acctID","5cf5e9c5d1823a")
hc.FormData.Add("username","****")
hc.FormData.Add("password","****")
hc.FormData.Add("lcid",2052)
Dim jo As JObject = Jobject.Parse(hc.GetData)
if jo("LoginResultType").ToString = “1” then
hc = New HttpClient("http://ServerIp/K3Cloud/Kingdee.BOS.WebApi.ServicesStub.DynamicFormService.View.common.kdsvc")
hc.FormData.Add("formid","xxxx")
……
jo = Jobject.Parse(hc.GetData)
其它处理
end if
-- 发布时间：2021/7/28 12:04:00
--
这种方式 我测试过，会提示会话信息已丢失
{
"Result": {
"ResponseStatus": {
"ErrorCode": 500,
"IsSuccess": false,
"Errors": [
{
"FieldName": null,
"Message": "会话信息已丢失，请重新登录",
"DIndex": 0
}
],
"SuccessEntitys": [],
"SuccessMessages": [],
"MsgCode": 1
}
}
}
[此贴子已经被作者于2021/7/28 12:06:31编辑过]
-- 发布时间：2021/7/28 13:46:00
--
第一个接口返回后查看一下cookie值
Dim hc As New HttpClient("http://ServerIp/k3cloud/Kingdee.BOS.WebApi.ServicesStub.AuthService.ValidateUser.common.kdsvc")
hc.FormData.Add("acctID","5cf5e9c5d1823a")
hc.FormData.Add("username","****")
hc.FormData.Add("password","****")
hc.FormData.Add("lcid",2052)
Dim jo As JObject = Jobject.Parse(hc.GetData)
For Each s As String In hc.rCookies.Keys
Output.Show(s & "=" & hc.rCookies(s))
Next
-- 发布时间：2021/7/28 14:06:00
--
kdservice-sessionid=5ead4823-fd36-4c70-b9f9-61c467525e72
ASP.NET_SessionId=go4e30apyqn5ewrinnc1a2aq
-- 发布时间：2021/7/28 14:20:00
--
试试
Dim hc As New HttpClient("http://ServerIp/k3cloud/Kingdee.BOS.WebApi.ServicesStub.AuthService.ValidateUser.common.kdsvc")
hc.FormData.Add("acctID","5cf5e9c5d1823a")
hc.FormData.Add("username","****")
hc.FormData.Add("password","****")
hc.FormData.Add("lcid",2052)
Dim jo As JObject = Jobject.Parse(hc.GetData)
if jo("LoginResultType").ToString = “1” then
dim hc2 as New HttpClient("http://ServerIp/K3Cloud/Kingdee.BOS.WebApi.ServicesStub.DynamicFormService.View.common.kdsvc")
For Each s As String In hc.rCookies.Keys
Output.Show(hc2.sCookies.add(s,hc.rCookies(s)) )
Next
hc2.FormData.Add("formid","xxxx")
……
jo = Jobject.Parse(hc2.GetData)
其它处理
end if