How to invoke web service

[win]

Thank you for your help 

---

@kevin

2.png is a multi-line text image, get the result using the following code,  ann The following code OK, But need ChilkatAx-9.5.0-win32.dll

j=js.ArrayOf("words_result")
 out js.StringOf("log_id")
 out js.StringOf("direction")
 out js.StringOf("words_result_num")
for int'i 0 j.Size
    jr=j.ObjectAt(i)
    str words_result=jr.StringOf("words")
    out words_result


Macro Macro3

Code:

Copy      Help

typelib WinHttp {662901FC-6951-4854-9EB2-D9A2570F2B2E} 5.1
WinHttp.WinHttpRequest r._create
r.Open("POST" F"https://aip.baidubce.com/rest/2.0/ocr/v1/general_basic")
r.setRequestHeader("content-type", "application/x-www-form-urlencoded")
r.SetRequestHeader("cache-control" , "no-cache")

str access= "access_token=24.b305c9822131e65eda05e29c157dd719.2592000.1559103982.282335-16139329&image="
str sFile.getfile("$desktop$\2.png");; change to file location
_s.encrypt(4 sFile "" 2)
_s.replacerx("\+" "%2B")
r.Send(F"{access}{_s}")
;out r.ResponseText

ARRAY(byte) a=r.ResponseBody
str s.fromn(&a[0] a.len)
;out s

IXml x=JsonToXml(s 1)
ARRAY(IXmlNode) a1
x.Path("root/words_result").GetAll(0 a1)
int i
for i 0 a1.len
,out "%s %s "a1[i].Name a1[i].Value