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


  共有936人关注过本帖树形打印复制链接

主题:百度人脸识别api-v3,能弄个例子么?

帅哥哟,离线,有人找我吗?
zhangjian222200
  31楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1063 积分:7190 威望:0 精华:0 注册:2016/9/12 11:18:00
  发帖心情 Post By:2018/12/3 10:04:00 [只看该作者]

可以了
先显示456,然后显示123,再显示alert(serverId)

 回到顶部
帅哥哟,离线,有人找我吗?
zhangjian222200
  32楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1063 积分:7190 威望: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
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


加好友 发短信
等级:版主 帖子:74211 积分:372183 威望: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


加好友 发短信
等级:五尾狐 帖子:1063 积分:7190 威望: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


加好友 发短信
等级:五尾狐 帖子:1063 积分:7190 威望: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


加好友 发短信
等级:版主 帖子:74211 积分:372183 威望: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


加好友 发短信
等级:五尾狐 帖子:1063 积分:7190 威望:0 精华:0 注册:2016/9/12 11:18:00
  发帖心情 Post By:2018/12/4 18:01: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 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
    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


加好友 发短信
等级:版主 帖子:74211 积分:372183 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/4 18:07:00 [只看该作者]

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

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
zhangjian222200
  39楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1063 积分:7190 威望: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


加好友 发短信
等级:超级版主 帖子:23878 积分:121800 威望:0 精华:7 注册: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"

 回到顶部
总数 77 上一页 1 2 3 4 5 6 7 8 下一页