Foxtable(狐表)用户栏目专家坐堂 → 有没有通过api识别身份证的例子?


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

主题:有没有通过api识别身份证的例子?

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


加好友 发短信
等级:三尾狐 帖子:645 积分:5680 威望:0 精华:0 注册:2017/4/7 12:15:00
有没有通过api识别身份证的例子?  发帖心情 Post By:2017/8/3 15:31:00 [只看该作者]

现在api已经很流行很方便了,请教各位大神,狐表怎么对接各个api接口呢

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/8/3 15:39:00 [只看该作者]

 你指的识别身份证是什么意思?

 

https://www.baidu.com/baidu?wd=api+%E8%BA%AB%E4%BB%BD%E8%AF%81&tn=monline_dg&ie=utf-8

 

 每种api的调用方式都不同,具体你要去看人家调用的方式。

 

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

 


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


加好友 发短信
等级:三尾狐 帖子:645 积分:5680 威望:0 精华:0 注册:2017/4/7 12:15:00
  发帖心情 Post By:2017/8/3 17:37:00 [只看该作者]

帮助中的阿里云全国物流查询接口是get方式,有没有post方式的例子?比方说同样是阿里云的身份识别api如何调用呢?

https://market.aliyun.com/products/57124001/cmapi010401.html?spm=5176.730005.0.0.0EtpbN#sku=yuncode440100000

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/8/3 19:31:00 [只看该作者]

mark 识别身份证信息

 

Dim bmp As new Bitmap("d:\abc.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 = "{""inputs"": [{""image"": {""dataType"": 50,""dataValue"": """ & strbase64 & """},""configure"": {""dataType"": 50,""dataValue"": ""{\""side\"":\""face\""}"" }}]}"
Dim appcode As String = "278b315cabac4df9a39478de0a8321ad" '只有500次,改成自己的
Dim req = System.Net.WebRequest.Create("https://dm-51.data.aliyun.com/rest/160601/ocr/ocr_idcard.json")
req.Method = "POST"
req.ContentType = "application/json; charset=UTF-8"
req.Headers.Add("Authorization", "APPCODE " & appcode)
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)

[此贴子已经被作者于2019/1/21 10:08:28编辑过]

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


加好友 发短信
等级:三尾狐 帖子:645 积分:5680 威望:0 精华:0 注册:2017/4/7 12:15:00
  发帖心情 Post By:2017/8/4 16:39:00 [只看该作者]

请教老师:返回的结果如何解析呢?
jo("outputs")("outputValue")("dataValue")("name")不对


调用的目标发生了异常。
Accessed JArray values with invalid key value: "outputValue". Int32 array index expected.

{ "outputs": [ { "outputLabel": "ocr_id", "outputMulti": {}, "outputValue": { "dataType": 50, "dataValue": "{ \"address\" : \"浙江省杭州市余杭区文一西路969号\", #地址信息 \"config_str\" : \"{\\\"side\\\":\\\"face\\\"}\", #配置信息,同输入configure \"face_rect\":{ \"angle\": -90, \"center\":{ \"x\" : 952, \"y\" : 325.5 }, \"size\":{ \"height\":181.99, \"width\":164.99 } }, #人脸位置,center表示人脸矩形中心坐标,size表示人脸矩形长宽,angle表示矩形顺时针旋转的度数。 \"name\" : \"张三\", #姓名 \"nationality\": \"汉\", #民族 \"num\" : \"1234567890\", #身份证号 \"sex\" : \"男\", #性别 \"birth\" : \"20000101\", #出生日期 \"nationality\" : \"汉\", #民族 \"success\" : true #识别结果,true表示成功,false表示失败 }" } }] }


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


加好友 发短信
等级:三尾狐 帖子:645 积分:5680 威望:0 精华:0 注册:2017/4/7 12:15:00
  发帖心情 Post By:2017/8/4 16:44:00 [只看该作者]

调用的目标发生了异常。
Cannot access child value on Newtonsoft.Json.Linq.JValue.

改成这样还是不行:
output.show(jo.Tostring)
If jo("outputs") IsNot Nothing Then
    For Each jt As JToken In jo("outputs")
        dr("认购姓名")= jt("outputValue")("dataValue")("name\").ToString
        dr("身份证号码")= jt("outputValue")("dataValue")("num\").ToString
        dr.save
    Next

End If


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


加好友 发短信
等级:三尾狐 帖子:645 积分:5680 威望:0 精华:0 注册:2017/4/7 12:15:00
  发帖心情 Post By:2017/8/4 17:02:00 [只看该作者]

Dim s As String =jo.Tostring
s = s.Replace("\","")
Output.Show(s)
msgbox(s)
'output.show(jo.Tostring)
If jo("outputs") IsNot Nothing Then
    For Each jt As JToken In jo("outputs")
        dr("认购姓名")= jt("outputValue")("dataValue")("name").ToString
        dr("身份证号码")= jt("outputValue")("dataValue")("num").ToString
        dr.save
    Next

End If

这样还是不行

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/8/4 17:09:00 [只看该作者]

Dim jo As JObject = Jobject.Parse(str)
If jo("outputs") IsNot Nothing Then
    Dim json = jobject.parse(jo("outputs")(0)("outputValue")("dataValue"))
    msgbox(json.tostring)
    msgbox(json("address"))
    msgbox(json("name"))
    msgbox(json("num"))
End If

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


加好友 发短信
等级:三尾狐 帖子:645 积分:5680 威望:0 精华:0 注册:2017/4/7 12:15:00
  发帖心情 Post By:2017/8/4 17:21:00 [只看该作者]

OK了,谢谢老师。

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


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

mark

 回到顶部
总数 17 1 2 下一页