ObjectScript言語でイメージファイルをWEBサーバからダウンロードする方法

記事

Hiroshi Sato · 2022年3月23日 1m read

#セキュリティ #Caché #Ensemble #InterSystems IRIS #InterSystems IRIS for Health

以下のコードは、http://www.intersystems.com/images/intersystems-header-logo.gif をダウンロードし、c:\temp\test.jpgとしてファイルを保存する例になります。

Set httprequest=##class(%Net.HttpRequest).%New()
Set httprequest.Server="www.intersystems.com"
Do httprequest.Get("/images/intersystems-header-logo.gif")
Set httpresponse=httprequest.HttpResponse
Set file=##class(%File).%New("c:\temp\test.jpg")
Do file.Open("NWUK\BIN\")
Do file.CopyFrom(httpresponse.Data)
Do file.Close()