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

'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)

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

页面代码：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:页面代码77676kkgrrde.txt

js代码：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:js代码ljgfd7788.txt

此主题相关图片如下：qq图片20171817ii230000kk0000.png

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

提示是签名错误。

1、检查accestoken、Signature的获取是否过期了，或者接口调用次数满了

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

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

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

楼上是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

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编辑过]

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

之前的解决了

最近百度升级了，使用v3人脸识别身份验证，要完成企业实名认证，然后在人脸识别—采集SDK，然后就可以使用v3接口了。

https://aip.baidubce.com/rest/2.0/face/v3/person/verify?access_token=*****

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

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

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

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编辑过]

参数名改成【id_card_number】啊

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