百度云识别过“汽车”验证(获取汽车坐标源码)

对接文档链接:https://ai.baidu.com/tech/vehicle/detect

百度云识别过“汽车”验证(获取汽车坐标源码)
(一)新建一个应用获取key、Secret
(二)查看api文档

关于百度云识别的对接方法,看这篇文章《》

这次案例如下:本次只做汽车位置坐标的识别

测试雷电模拟器:540*960 dpi 240

①图片,找到图中所有的汽车

百度云识别过“汽车”验证(获取汽车坐标源码)

②对接api接口,获取坐标同时把汽车截图。

百度云识别过“汽车”验证(获取汽车坐标源码)

③源码分享:

Dim 路径=”/sdcard/pictures/a.png”
Dim 路径1=”/sdcard/pictures/”
SnapShot(路径,0,232,536,761)
Dim api=”W2wqjtX0mgMMmdwBoZNuOnEC”
Dim Secret=”GplUV14VBd1LLxb4geybhQyqqpYrRWCK”
Dim token=url.get(“https://aip.baidubce.com/oauth/2.0/token?grant_type=client_credentials&client_id=”&api&”&client_secret=”&secret)
TracePrint token
dim mytoken=Encode.JsonToTable(token)
TracePrint mytoken[“access_token”]
Import “shanhai.lua”
Dim base64=ShanHai.ReadFileBase(路径)
Dim 图片=shanhai.CharToUrl(base64)
Dim post内容=”access_token=”&mytoken[“access_token”]&”&Content-Type=application/x-www-form-urlencoded&image=”&图片
Dim myjson=url.post(“https://aip.baidubce.com/rest/2.0/image-classify/v1/vehicle_detect”,post内容)
TracePrint myjson
myjson = Encode.JsonToTable(myjson)

For i = 1 To ubound(myjson[“vehicle_info”])+1
TracePrint myjson[“vehicle_info”][i][“location”][“left”],myjson[“vehicle_info”][i][“location”][“top”]+232
Dim top=myjson[“vehicle_info”][i][“location”][“top”]+232
Dim _left=myjson[“vehicle_info”][i][“location”][“left”]
Dim down=top+myjson[“vehicle_info”][i][“location”][“height”]
Dim _right=_left+myjson[“vehicle_info”][i][“location”][“width”]
TracePrint _left,top,_right,down
SnapShot(路径1&”b”&i&”.png”,_left,top,_right,down)
Next

原文始发于微信公众号(3分钟学堂):

除特别注明外,本站文章均为原创,转载请注明出处和链接!
本文链接地址: https://pumpkinit.com/1000.html
Pumpkin  [https://pumpkinit.com]  感谢

发表评论

电子邮件地址不会被公开。 必填项已用*标注