HTTPS 客户端
1、使用HTTPS前,需要在系统 > 安全管理 > SSL/TLS 配置 添加客户端的凭据
2、代码
Set httprequest=##class(%Net.HttpRequest).%New()
set httprequest.SSLConfiguration="MySSLConfiguration"
set httprequest.Https=1
set httprequest.Server="things.icoldchain.cn"
set httprequest.Port=443
Do httprequest.InsertFormData("code","1520437297405")
Do httprequest.InsertFormData("deviceSN","B7ZAU040")
set tSc = httprequest.Post("/output/getDeviceProperties")
s strRes=""
do{
s res=httprequest.HttpResponse.Data.ReadLine()
s strRes=strRes_res
}
while(res'="")
s strRes=$ZCONVERT(strRes,"I","JSON")
quit strRes
Quit httprequest.HttpResponse