百度人脸识别api-v3，能弄个例子么？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 百度人脸识别api-v3，能弄个例子么？

共有11010人关注过本帖树形打印复制链接主题：百度人脸识别api-v3，能弄个例子么？

zhangjian222200

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

加好友

发短信

等级：七尾狐帖子：1521 积分：10727 威望：0 精华：0 注册：2016/9/12 11:18:00

Post By：2018/12/3 10:04:00 [只看该作者]

可以了

先显示456，然后显示123，再显示alert(serverId)

zhangjian222200

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

加好友

发短信

等级：七尾狐帖子：1521 积分：10727 威望：0 精华：0 注册：2016/9/12 11:18:00

Post By：2018/12/4 15:45:00 [只看该作者]

If annhm = 4 Then

//下载刚刚上传到腾讯服务器的图片失败

Dim serverId As String = e.PostValues("serverId") '图片的服务器端ID

Dim latitude As String = e.PostValues("latitude") '纬度

Dim longitude As String = e.PostValues("longitude") '经度

Dim speed As String = e.PostValues("speed") '速度

Dim accuracy As String = e.PostValues("accuracy") '位置精度

Dim AccessToken As String

Dim drr0 As DataRow = DataTables("列表").sqlFind("列名 = 'lyg'")

If drr0 IsNot Nothing Then

AccessToken = DecryptText(drr0("lin_at"),"jiang","su")

If AccessToken = "" Then

e.WriteString("获取AccessToken失败!") //没有提示

Return ""

End If

Else

e.WriteString("获取AccessToken资料行失败!") //没有提示

Return ""

End If

Dim url As String = "https://api.weixin.qq.com/cgi-bin/material/get_material?access_token={0}"

Dim hc As New HttpClient(CExp(url, AccessToken))

Dim sucess As Boolean = True '用于标记是否下载成功

Dim fl As String = "e:\web\yzsf\abc.jpg" '要保存为的本地文件

Dim jo As New JObject

jo("media_id") = serverId ‘这里获得了图片的服务器端serverId '要获取的图片素材ID

hc.Content = jo.ToString()

MessageBox.Show("jo.ToSTring=" & jo.ToSTring)

MessageBox.Show("图片的服务器端ID=" & serverId) '图片的服务器端ID

If hc.GetFile(fl) Then

Functions.Execute("LogText","获取的图片:" & fl)

If hc.ResponseContentType.StartsWith("text/plain") Then

jo = JObject.Parse(Filesys.ReadAllText(fl))

MessageBox.Show(jo.ToSTring) '显示错误

Functions.Execute("LogText","下载图片错误提示:" & jo.ToSTring)

FileSys.DeleteFile(fl) '删除文件

sucess = False

End If

Else

sucess = False

End If

If sucess Then

MessageBox.Show("图片素材下载成功!")

Else

MessageBox.Show("图片素材下载失败!") //这里显示了

End If

报错：

2018-12-04 15:15:49.6622

下载图片错误提示:{

"errcode": 40007,

"errmsg": "invalid media_id hint: [jLU2sa07433723]"

}

服务器logtext：

2018-12-04 15:33:44.7458

获取的图片:e:\web\yzsf\abc.jpg

2018-12-04 15:33:45.2389

下载图片错误提示:{

"errcode": 40007,

"errmsg": "invalid media_id hint: [P3e9Za08241491]"

}

[此贴子已经被作者于2018/12/4 15:49:10编辑过]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/12/4 15:54:00 [只看该作者]

下载临时素材参考这里

http://www.foxtable.com/mobilehelp/scr/0242.htm

zhangjian222200

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

加好友

发短信

等级：七尾狐帖子：1521 积分：10727 威望：0 精华：0 注册：2016/9/12 11:18:00

Post By：2018/12/4 16:24:00 [只看该作者]

给的例子是企业号的，换成公众号就可以了

[此贴子已经被作者于2018/12/4 17:28:19编辑过]

zhangjian222200

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

加好友

发短信

等级：七尾狐帖子：1521 积分：10727 威望：0 精华：0 注册：2016/9/12 11:18:00

Post By：2018/12/4 16:43:00 [只看该作者]

改用公众号的例子，下载成功

只是，

1.所有图片都保存为jpg，这样行吗？能判断照片后缀名么？

2.获取地理位置接口，正确获得了相应的数据，能不能使用这个网址的js，计算2点之间的距离？（https://blog.csdn.net/qq_33417035/article/details/78028461）

wx.getLocation({
type: 'wgs84', // 默认为wgs84的gps坐标，如果要返回直接给openLocation用的火星坐标，可传入'gcj02'
success: function (res) {
var latitude = res.latitude; // 纬度，浮点数，范围为90 ~ -90
var longitude = res.longitude; // 经度，浮点数，范围为180 ~ -180。
var speed = res.speed; // 速度，以米/每秒计
var accuracy = res.accuracy; // 位置精度
}
});

Dim fl As String = "c:\data\abc.jpg" '要保存为的本地文件
Dim sucess As Boolean = True '用于标记是否下载成功
Dim url As String = "https://api.weixin.qq.com/cgi-bin/media/get?access_token={0}&media_id={1}"
Dim mediaID As String = "qINAMviNpYpn5EcMwb2EmrsoCR6zUo8rJQplei1uyluhfbSVZ_esSva9NkuU8W1m" '要下载的素材ID
url = CExp(url, Functions.Execute("GetAccessToken"), mediaID)
Dim hc As New HttpClient(url)
If hc.GetFile(fl) Then
    If hc.ResponseContentType.StartsWith("text/plain") Then
        Dim jo As JObject = JObject.Parse(Filesys.ReadAllText(fl))
        MessageBox.Show(jo.ToString) '显示错误信息
        FileSys.DeleteFile(fl) '删除文件
        sucess = False
    End If
Else
    sucess = False
End If
If sucess Then
    MessageBox.Show("临时素材下载成功!")
Else
    MessageBox.Show("临时素材下载失败!")
End If

[此贴子已经被作者于2018/12/4 17:32:09编辑过]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/12/4 17:40:00 [只看该作者]

1、参考

Dim hc As new HttpClient("https://timgsa.baidu.com/timg?image&quality=80&size=b9999_10000&sec=1543925524638&di=d5cda6b5ffff094518c9148c5075a6df&imgtype=0&src=http%3A%2F%2Fcdn.dfile.cn%2Fen%2Fattach%2F201312%2F13%2F52aa759f6e970803cd00004a%2Fabacus.jpg")
Dim fl As String = "d:\aaa.png"
If hc.GetFile(fl) Then
    msgbox(hc.ResponseContentType)
    If hc.ResponseContentType.contains("jpeg") Then
        msgbox(123)
        FileSys.RenameFile(fl, FileSys.GetName(fl).replace(".png", ".jpg") )
    End If
End If

2、参考 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=127429&skin=0

zhangjian222200

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

加好友

发短信

等级：七尾狐帖子：1521 积分：10727 威望：0 精华：0 注册：2016/9/12 11:18:00

Post By：2018/12/4 18:01:00 [只看该作者]

楼上1，下面黑体字，是之前能正确下载图片的代码。下面这样用成吗？

Dim nianyue As String = Format(Date.Today, "yyyyMM") '定义,年月

Dim NewName As String = Format(Date.Now, "yyyyMMddHHmmss") & Rand.Next(10000,99999)

Dim fl As String = "e:\web\daod\" & nianyue & "\" & NewName & ".jpg" '要保存为的本地文件

If hc.GetFile(fl) Then
msgbox(hc.ResponseContentType)

If hc.ResponseContentType.contains("jpeg") Then

msgbox(123)

FileSys.RenameFile(fl, FileSys.GetName(fl).replace(".png", ".jpg") )

End If

Dim sucess As Boolean = True '用于标记是否下载成功

Dim url As String = "https://api.weixin.qq.com/cgi-bin/media/get?access_token={0}&media_id={1}"

Dim mediaID As String = serverId '"qINAMviNpYpn5EcMwb2EmrsoCR6zUo8rJQplei1uyluhfbSVZ_esSva9NkuU8W1m" '要下载的素材ID

url = CExp(url, AccessToken, mediaID)

Dim hc As New HttpClient(url)

If hc.GetFile(fl) Then

If hc.ResponseContentType.StartsWith("text/plain") Then

Dim jo As JObject = JObject.Parse(Filesys.ReadAllText(fl))

MessageBox.Show(jo.ToString) '显示错误信息

FileSys.DeleteFile(fl) '删除文件

sucess = False

End If

Else

sucess = False

End If

If sucess Then

MessageBox.Show("临时素材下载成功!")

Else

MessageBox.Show("临时素材下载失败!")

End If

[此贴子已经被作者于2018/12/4 18:04:02编辑过]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/12/4 18:07:00 [只看该作者]

这段只是例子，请看懂。红色代码不需要用到

zhangjian222200

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

加好友

发短信

等级：七尾狐帖子：1521 积分：10727 威望：0 精华：0 注册：2016/9/12 11:18:00

Post By：2018/12/4 18:22:00 [只看该作者]

其他明白了，但是，有2处，看不明白，还麻烦解释

Dim hc As new HttpClient("") ’1.这个网址是什么网址？是我服务器，图片的访问网址？还是微信服务器图片的访问网址？
Dim fl As String = "d:\aaa.png" ’2.判断后缀名的时候，图片是否已经下载到我的服务器？
If hc.GetFile(fl) Then
    msgbox(hc.ResponseContentType)
    If hc.ResponseContentType.contains("jpeg") Then
        msgbox(123)
        FileSys.RenameFile(fl, FileSys.GetName(fl).replace(".png", ".jpg") )
    End If
End If

[此贴子已经被作者于2018/12/4 18:27:22编辑过]

有点蓝

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

加好友

发短信

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

Post By：2018/12/4 20:23:00 [只看该作者]

1、微信服务器图片的访问网址，就是这种

Dim url As String = "https://api.weixin.qq.com/cgi-bin/media/get?access_token={0}&media_id={1}"

Dim mediaID As String = serverId '"qINAMviNpYpn5EcMwb2EmrsoCR6zUo8rJQplei1uyluhfbSVZ_esSva9NkuU8W1m" '要下载的素材ID

url = CExp(url, AccessToken, mediaID)

Dim hc As New HttpClient(url)

2、图片已经下载且已经保存到电脑，路径为"d:\aaa.png"

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

总数 101 上一页 1 2 3 4 5 6 7 8 9 10 下一页 ..11

主题：百度人脸识别api-v3，能弄个例子么？