New post
AllAccepted answers
Bob Felbol · Apr 23, 2018

Size: 149

Set tJSON = "{""t"":""x"", ""page"": ""1"", ""onlyActives"": ""true"", ""userId"": ""838""}"
Set httprequest=##class(%Net.HttpRequest).%New()
Set httprequest.ContentType = "application/json" 
Do httprequest.SetHeader("ContentType","application/json")
set httprequest.SSLConfiguration="SSL"
set httprequest.Https=1
set httprequest.Server="server.com"
set httprequest.Port=443
set tSC = httprequest.EntityBody.Write(tJSON)
set tSc = httprequest.Post("/api/api/api/list",)
SET tText = httprequest.HttpResponse.Data.Read()
ZZDUMP tText
WRITE httprequest.HttpResponse.Data.Size

Bob Felbol · Apr 20, 2018

Set tHttpRequest = ##Class(%Net.HttpRequest).%New()

Set tHttpRequest.ContentType = "application/json" 

Set ..Adapter.HTTPServer = "url.example.com.br"

Set ..Adapter.SSLConfig  = "SSL"

Set ..Adapter.ProxyHTTPS = 1

Set ..Adapter.URL        = "/test/api/test/test"

Set tStringJSON = "{""t"":""IWESJ7/aZAurD2xnBALbQ4TAkZkitaw86mSEcOCoq2kFqdtPYBPbRjufNcT8YSmYmh6Riy9XlHUjX89RoIiqMxuUlPHeTloCpDULKrfybA3kcOiPmJn3Nc5y4IxODS+QA/qSs17iC7ts2cKorAY1jlDkLHYrep4cNXnvRNRoclu8cXWxtj8tE3ChrB4lDHmTwW6HZIUFSjphe4gCFF39jRB4VKFCLvtbT5MwvfVo2uNbHbJQGf+dSqRt/Tx7zFNmFlUi/vl0EuW6xCEWvsD85r9sApBbG8eX4axg1TcoeMV00FPjiRiGCn/NIdSMyNC/dIDbl69D9t1dgkhRtDY4ZA=="", ""page"": ""1"", ""onlyActives"": ""true"", ""userId"": ""838""}"

Set tData(1) = tStringJSON

Set tSC = ..Adapter.SendFormDataArray(.tHttpResponse,"POST",tHttpRequest,,.tData)

Set tText = tHttpResponse.Data.Read()