百度AI接口实例应用求助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

根据论坛的百度Ai接口应用案例，我下载了下来，在AI百度上申请了应用，并取得了AK，SK，access token 替换了函数中和全局中var变量中的值，却用不了。现在我将这些参数都发给你，看应用有没有问题。说明：我只申请和试用了ocr文字高精识别功能。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:百度ai接口实例.foxdb

此主题相关图片如下：1.jpg

此主题相关图片如下：2.jpg

我的百度云登陆账号：bdygjzsxx999,密码：zsxx999,.

AppID：26383110
API Key：u1qgdGGy6mBjrEesUagiDQEN
Secret Key：AYNVi3YYXGZp0L46S1r32iHf6KSRuIw8
"access_token": "24.f8b39d4f1714f1c72fe3d332b45a66af.2592000.1657163038.282335-26383110"

此主题相关图片如下：2.png

上面的第二图是发错了的

全局变量用法不正确：http://www.foxtable.com/webhelp/topics/0325.htm

基本上只需要改全局变量的密钥值即可，代码看不懂的就不要乱改

GetAccessToken函数

Static CreateTime As Date '记录最近一次生成access_token的时间

Static AccessTocken As String '记录最近一次生成的access_token

Dim tp As TimeSpan = Date.Now - CreateTime

If tp.TotalSeconds > 2500000 Then

Dim hc As New HttpClient("https://aip.baidubce.com/oauth/2.0/token")

hc.FormData.Add("grant_type","client_credentials")

hc.FormData.Add("client_id", Vars("APIKey"))

hc.FormData.Add("client_secret", Vars("SecretKey"))

Dim ret As String = hc.GetData()

If ret = "" Then '如果失败,再尝试一次

ret = hc.GetData()

End If

CreateTime = Date.Now()

Dim jo As JObject = JObject.Parse(ret)

If jo("access_token") IsNot Nothing Then

AccessTocken = jo("access_token")

Else

MessageBox.show("获取access_token失败,原因:" & vbcrlf & jo("error_description").ToString)

End If

Return AccessTocken

此主题相关图片如下：4.jpg

主题：百度AI接口实例应用求助