Empty HTTP response
Hi Guys,
We use the below code to send JSON file to one of our clients and was working fine but I think lately they did a windows update and now whenever we send file we aren't getting any HTTP responses, success or Error, just empty response ()
nothing has change from our end so why we aren't getting any HTTP response as all (see below)?
s Token=GetToken()
S FilePath="D:\CollectionGood_10733899.json"
Set File = ##class(%File).%New(FilePath)
Do File.Open("R")
Set Httprequest=##class(%Net.HttpRequest).%New()
Set Httprequest.SSLConfiguration="RTLS"
Set Httprequest.Server="url"
Set Httprequest.Timeout=30
Set Httprequest.Https=1
set Httprequest.ContentType="application/json"
Do Httprequest.SetHeader("Accept","*/*")
Do Httprequest.SetHeader("Authorization","Bearer "_Token)
do Httprequest.EntityBody.CopyFrom(File)
Set tSc=Httprequest.Post("/api/sensors/vibration")
Set StateCode=Httprequest.HttpResponse.StatusCode
Set status=Httprequest.HttpResponse.StatusLine
Set Resp=Httprequest.HttpResponse.Data.Read()
Q
Thanks