Foxtable(狐表)用户栏目专家坐堂 → JAVA代码转VB代码


  共有6583人关注过本帖平板打印复制链接

主题:JAVA代码转VB代码

帅哥哟,离线,有人找我吗?
otterlike
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:103 积分:1228 威望:0 精华:0 注册:2017/5/16 22:42:00
JAVA代码转VB代码  发帖心情 Post By:2022/10/17 15:32:00 [只看该作者]

各位老师好!我在一个接口,对方要求:

//ContentBody传递,要求使用post方式进行调用

//如果需要传递请求参数 可以拼接到请求URL中,或者设置paramsMap参数由SDK内部进行拼接


我写得的代码如下:


Dim apiName As String = "TEST_SCM_CMS_querySitesService" 'api应用程序编程接口名称

Dim version As String = "1.0.0" '版本

Dim ak As String = "Z9SDJaqGJ9G/dobrE/N/MUDzuxA=" 'accessKey访问密钥

Dim sk As String = "bea1e13851cb4b5d95a42f059ed6ddbf" ' secret Key 密钥

 

Dim hc As New HttpClient("http://10.72.231.22:8086/lis/querysites") '如果需要传递请求参数 可以拼接到请求URL中

 

hc.Headers.Add("apiName", apiName)

hc.Headers.Add("version", version)

hc.Headers.Add("ak", ak)

hc.Headers.Add("sk", sk)

 

hc.C '业务数据封装成json格式包含在POST请求的请求体中

hc.Method = "post" '设置调用方式, 必须为 post

 

Dim jo As New JObject

jo("orderNo") = "TO20220926000004"

jo("pageNo") = 1

jo("pageSize") = 2000

hc.Content = jo.tostring

Output.Show(jo.ToString)

 

Dim ret As String = hc.GetData '接收反馈数据

Output.Show(ret)

 

执行结果提示:

.NET Framework 版本:4.0.30319.42000 Foxtable 版本:2022.8.18.1 错误所在事件: 详细错误信息: 远程服务器返回错误: (500) 内部服务器错误。

 

请老师帮忙看看问题出在哪儿?感激不尽!

 







[此贴子已经被作者于2022/10/17 15:48:15编辑过]

 回到顶部
总数 14 1 2 下一页