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

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

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

有点甜

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

有点甜

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

有点甜

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

加好友

发短信

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

Post By：2018/12/4 18:07:00 [显示全部帖子]

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

有点甜

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

加好友

发短信

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

Post By：2018/12/5 9:37:00 [显示全部帖子]

function distance(la1, lo1, la2, lo2) {
var La1 = la1 * Math.PI / 180.0;
var La2 = la2 * Math.PI / 180.0;
var La3 = La1 - La2;
var Lb3 = lo1 * Math.PI / 180.0 - lo2 * Math.PI / 180.0;
var s = 2 * Math.asin(Math.sqrt(Math.pow(Math.sin(La3 / 2), 2) + Math.cos(La1) * Math.cos(La2) * Math.pow(Math.sin(Lb3 / 2), 2)));
s = s * 6378.137;//地球半径
s = Math.round(s * 10000) / 10000;
return s
}