以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]按照论坛的帖子 引用金蝶cloud SDK失败  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=170483)

--  作者:laipiwen
--  发布时间: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
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2021/7/28 10:06:00
--  
用法没有问题的。建议咨询一下金蝶
--  作者:laipiwen
--  发布时间: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


如截图所示,先需要验证身份,再进行操作

此主题相关图片如下:qq图片20210728110209.png
按此在新窗口浏览图片

 不知道怎么处理了,请老师看看,指导一下
 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:金蝶云星空webapi接口说明书_v5.0.docx.zip
[此贴子已经被作者于2021/7/28 11:15:29编辑过]

--  作者:有点蓝
--  发布时间:2021/7/28 11:10:00
--  
开发文档?
--  作者:laipiwen
--  发布时间: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.FormData.Add("formid","xxxx")
……
jo  = Jobject.Parse(hc.GetData)
其它处理
end if

--  作者:laipiwen
--  发布时间: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

--  作者:laipiwen
--  发布时间: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
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