[FAQ] Preguntas frecuentes de InterSystems
O seguinte código baixa https://www.intersystems.com/assets/intersystems-logo.png e salva o arquivo como c:\temp\test.png.
É necessário definir uma configuração SSL chamada SSLTEST antes de executar esse código
ClassMethod download() As %Status
{
Set sc = $$$OK
Set httprequest=##class(%Net.HttpRequest).%New()
set httprequest.Port = 443
set httprequest.Https = 1
set httprequest.SSLConfiguration = "SSLTEST"
Set httprequest.Server="www.intersystems.com"
Do httprequest.Get("/assets/intersystems-logo.png")
Set httpresponse=httprequest.HttpResponse
Set file=##class(%File).%New("c:\temp\test.png")
Do file.Open("NWUK\BIN\")
Do file.CopyFrom(httpresponse.Data)
Do file.Close()
Return sc
}