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


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

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

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


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

'Dim strbase64, shenfzbh ,shenfzxm As String
Dim body As String = "{""image"":""" & UrlEncode(strbase64) & """,""image_type"":1,""id_card_num"":""" & shenfzbh & """,""name"":""" & shenfzxm & """,""quality_control"":""NORMAL"",""liveness_control"":""HIGH""}"
'msgbox(body)


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


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

每次进入页面都提示config:invalid signature,然后在提示js里面的第2行:调用拍照

页面代码:
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:页面代码77676kkgrrde.txt

js代码:
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:js代码ljgfd7788.txt



图片点击可在新窗口打开查看此主题相关图片如下:qq图片20171817ii230000kk0000.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2018/12/7 18:33:52编辑过]

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


加好友 发短信
等级:超级版主 帖子:23878 积分:121800 威望:0 精华:7 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/12/7 20:23:00 [只看该作者]

提示是签名错误。
1、检查accestoken、Signature的获取是否过期了,或者接口调用次数满了

2、生成签名和生成按钮的条件不一致,可能会导致生成签名的地址和按钮点击的时候的当前地址不一致

Dim url As String  = e.Request.URL.ToString '当前页面地址

注意这个地址是含get参数的

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


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

楼上是api ticket的问题,解决了
下面是新的小问题
    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" '要保存为的本地文件
    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)  '显示错误信息
            Functions.Execute("LogText","下载验证男生到达图片错误" & jo.ToString)
            FileSys.DeleteFile(fl) '删除文件
            sucess = False
        Else
            If hc.ResponseContentType.contains("jpeg") Then
                Functions.Execute("LogText","下载验证男生到达图片,转换格式,记录f1=" & fl)
msgbox(1) ’1显示了
                FileSys.RenameFile(fl, FileSys.GetName(fl).replace(".jpeg", ".jpg"))
msgbox(2) ’2没有显示
            ElseIf hc.ResponseContentType.contains("gif") OrElse hc.ResponseContentType.contains("png") OrElse hc.ResponseContentType.contains("bmp") OrElse hc.ResponseContentType.contains("wmf") Then
                FileSys.DeleteFile(fl) '删除文件
                Functions.Execute("LogText","下载验证男生到达图片,格式错误,记录f1=" & fl)
                e.WriteString("验证照片格式错误!")
                Return ""
            End If
        End If
    Else
        sucess = False
    End If

服务器记录:
2018-12-08 11:11:08.8457
下载验证男生到达图片,转换格式,记录f1=e:\web\daod\201812\2018120811110851638.jpg
2018-12-08 11:11:16.1507
调用的目标发生了异常。
   在 System.RuntimeMethodHandle._InvokeMethodFast(Object target, Object[] arguments, SignatureStruct& sig, MethodAttributes methodAttributes, RuntimeTypeHandle typeOwner)
   在 System.RuntimeMethodHandle.InvokeMethodFast(Object target, Object[] arguments, Signature sig, MethodAttributes methodAttributes, RuntimeTypeHandle typeOwner)
   在 System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture, Boolean skipVisibilityChecks)
   在 System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture)
   在 Foxtable.UserFunctions.Execute(String Name, Object[] Args)
未能完成操作,因为此路径“e:\web\daod\201812\2018120811110851638.jpg”中已存在文件。
   在 Microsoft.VisualBasic.FileIO.FileSystem.EnsurePathNotExist(String Path)
   在 Microsoft.VisualBasic.FileIO.FileSystem.RenameFile(String file, String newName)
   在 Microsoft.VisualBasic.MyServices.FileSystemProxy.RenameFile(String file, String newName)
   在 UserCode.As3gQwU2XqdnlVJbl(Object[] Args)
[此贴子已经被作者于2018/12/8 11:22:39编辑过]

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


加好友 发短信
等级:超级版主 帖子:23878 积分:121800 威望:0 精华:7 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/12/8 11:26:00 [只看该作者]

提示很明显了。重命名的时候不能命名为其他已经存在的名称

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


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

之前的解决了

最近百度升级了,使用v3人脸识别身份验证,要完成企业实名认证,然后在人脸识别—采集SDK,然后就可以使用v3接口了。
https://aip.baidubce.com/rest/2.0/face/v3/person/verify?access_token=*****




[此贴子已经被作者于2018/12/8 15:39:43编辑过]

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


加好友 发短信
等级:超级版主 帖子:23878 积分:121800 威望:0 精华:7 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/12/8 15:01:00 [只看该作者]

这玩意请咨询百度客服。我没有用过

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


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

完成实名认证,默认就可以使用v3接口了。

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


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

v3身份验证,检查好几次了,身份证编号变量值:""id_card_num"":""" & shenfzbh & """,前面设置了判断,确实存在,但是报错说不存在;如果为空,根本执行不到报错的红色代码处;
2018-12-08 16:10:59.7065
男生确认到达审核result={
  "error_code": 222001,
  "error_msg": "param[id_card_number] is null",
  "log_id": 1368654442566580091,
  "timestamp": 1544256658,
  "cached": 0,
  "result": null
}

    Dim shenfzbh As String = e.PostValues("shenfzbh") '定义,身份证编号
    If shenfzbh = "" Then '定义,身份证号码
       Functions.Execute("LogText","已认证身份证会员,身份证编号为空!会员编号:" & cbianh)
       e.WriteString("身份证编号为空!")
       Return ""
    End If

****** ’之后shenfzbh,没有再赋值

                Dim bmp As new Bitmap("e:\web\daod\" & nianyue & "\" & NewName & ".jpg")
                Dim ms As new System.Io.MemoryStream()
                bmp.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
                Dim arr(ms.Length) As Byte
                ms.Position = 0
                ms.Read(arr, 0, ms.Length)
                ms.Close()
                Dim strbase64 As String = Convert.ToBase64String(arr)
                bmp.dispose
                'msgbox("读取图片完毕")
               'Dim body As String = "id_card_side=front&image=" & UrlEncode(strbase64) & ""
                Dim body As String = "{""image"":""" & UrlEncode(strbase64) & """,""image_type"":1,""id_card_num"":""" & shenfzbh & """,""name"":""" & shenfzxm & """,""quality_control"":""NORMAL"",""liveness_control"":""HIGH""}"
                Functions.Execute("logtext","男生确认到达body=" & body)  ’结果见后面
                'Dim token As String '定义,前面已经定义的内容
                Dim req = System.Net.WebRequest.Create("https://aip.baidubce.com/rest/2.0/face/v3/person/verify?access_token=" & token)
                req.Method = "POST"
                req.C
                Dim aryBuf As Byte() = Encoding.UTF8.GetBytes(body)
                req.ContentLength = aryBuf.Length
                Dim writer = req.GetRequestStream()
                writer.Write(aryBuf, 0, aryBuf.Length)
                writer.Close()
                writer.Dispose()
                Dim pos = req.GetResponse
                'msgbox("获取数据完毕")
                Dim stm As System.IO.Stream = pos.GetResponseStream()
                Dim reader As New System.IO.StreamReader(stm)
                Dim str As String = reader.ReadToEnd
                pos.Close
                stm.Close
                reader.close
                Dim jo As JObject = Jobject.Parse(str)
                msgbox(jo.ToString)
                Functions.Execute("logtext","男生确认到达审核result=" & jo.ToString) '这是所有结果

下面是body写出来的结果:
太多了,发个记事本,从后面向前看才行
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:body11.txt

[此贴子已经被作者于2018/12/8 16:55:03编辑过]

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


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

 

参数名改成【id_card_number】啊

 

 


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