主题：有没有通过api识别身份证的例子？

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)