foxtable调用这个接口代码需要怎么写 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → foxtable调用这个接口代码需要怎么写

共有2980人关注过本帖树形打印复制链接主题：foxtable调用这个接口代码需要怎么写

yuweijie

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：188 积分：1904 威望：0 精华：0 注册：2017/12/20 20:41:00

foxtable调用这个接口代码需要怎么写 发帖心情

Post By：2024/3/28 12:42:00 [只看该作者]

POST /v1/oauth/accessToken HTTP/1.1
Host:10.1.1.110
Content-Type:application/json

{
	"appKey" : "String",
	"appSecret" : "String"
}

myjht

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：257 积分：1649 威望：0 精华：0 注册：2017/4/14 15:58:00

Post By：2024/3/28 13:34:00 [只看该作者]

Sub CallAPI()

Dim url As String

Dim req As Object

Dim jsonStr As String

'定义URL和JSON字符串

url = "http://10.1.1.110/v1/oauth/accessToken"

js"appKey"": ""YourAppKey"", ""appSecret"": ""YourAppSecret""}"

'创建WinHttpRequest对象

Set req = CreateObject("WinHttp.WinHttpRequest.5.1")

'打开连接

req.Open "POST", url, False

'设置请求头

req.SetRequestHeader "Content-Type", "application/json"

'发送POST数据

req.Send (jsonStr)

'获取返回内容

If req.Status = 200 Then

MsgBox req.ResponseText

Else

MsgBox "请求失败：" & req.Status & " " & req.StatusText

End If

'释放对象

Set req = Nothing

End Sub

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112364 积分：572076 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/3/28 13:50:00 [只看该作者]

Dim hc As New HttpClient("http://10.1.1.110/v1/oauth/accessToken")

hc.ContentType = "application/json"
Dim jo As New JObject
jo("appKey") = "appKey"
jo("appSecret") = "appSecret"
hc.Content = jo.ToString
Dim ret As String = hc.GetData()
MessageBox.Show(ret)

yuweijie

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：188 积分：1904 威望：0 精华：0 注册：2017/12/20 20:41:00

Post By：2024/3/28 17:10:00 [只看该作者]

hc.ContentType = "application/json"提示出错。Unable to cast object of type 'System.String

改成hc.Headers.Add("Content-Type", "application/json")

获取不到值。The remote server returned an error: (401) Unauthorized.

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112364 积分：572076 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/3/28 17:30:00 [只看该作者]

这句代码没有问题，应该是给json对象赋值出错了

yuweijie

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：188 积分：1904 威望：0 精华：0 注册：2017/12/20 20:41:00

Post By：2024/3/28 18:11:00 [只看该作者]

hc.ContentType = "application/json"

和

hc.Headers.Add("Content-Type", "application/json")

两句有区别吗？

有点蓝

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112364 积分：572076 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/3/28 20:14:00 [只看该作者]

有的。如果接口文档不指定在头部添加，建议使用第一种用法

yuweijie

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：188 积分：1904 威望：0 精华：0 注册：2017/12/20 20:41:00

Post By：2024/3/29 17:20:00 [只看该作者]

System.Net.WebException: The remote server returned an error: (401) Unauthorized.

at System.Net.HttpWebRequest.GetResponse()

at Foxtable.HttpClient.GetData(Boolean SkipError2)

提示出错，是什么问题

有点蓝

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112364 积分：572076 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/3/29 17:35:00 [只看该作者]

没有权限使用，提交的appKey和appSecret有问题，或者使用的accessToken有问题

yuweijie

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：188 积分：1904 威望：0 精华：0 注册：2017/12/20 20:41:00

Post By：2024/3/29 20:31:00 [只看该作者]

你这个要import啥吧

下一主题 >> << 上一主题

总数 17 1 2 下一页

主题：foxtable调用这个接口代码需要怎么写