ObjectScript言語でイメージファイルをWEBサーバからダウンロードする方法
これは InterSystems FAQ サイトの記事です。
以下のコードは、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()
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()