Dim Access,ulr
Access = Url.Get("https://aip.baidubce.com/oauth/2.0/token?grant_type=client_credentials&client_id=jgEUbHPK5taEEzjrcdcKEOCj&client_secret=Kg5yqIhj7TQ2fQIWoILAeOoEGuiTG9di")
TracePrint Access
ulr="https://aip.baidubce.com/rest/2.0/image-classify/v1/body_num?access_token="&Access
Import "zm.luae"
Dim base64内容
SnapShot "/sdcard/test1.jpg"
base64内容 = zm.FileReadBinaryBase64("/sdcard/test1.jpg")
Dim t={"header":{"Content-Type":"application/x-www-form-urlencoded"},"url":ulr,"image":base64内容}
Dim ret = zm.HttpPost(t)
TracePrint ret