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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  百度AI接口实例应用求助  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=177865)

--  作者：zsxx999ja
--  发布时间：2022/6/7 21:35:00
--  百度AI接口实例应用求助
根据论坛的百度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"

--  作者：zsxx999ja
--  发布时间：2022/6/7 21:35:00
--

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

--  作者：zsxx999ja
--  发布时间：2022/6/7 21:36:00
--
上面的第二图是发错了的

--  作者：有点蓝
--  发布时间：2022/6/7 21:51:00
--
全局变量用法不正确：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
End If
Return AccessTocken

--  作者：zsxx999ja
--  发布时间：2022/6/7 22:16:00
--

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