イメージファイルをFTPサーバからアップロード／ダウンロードする方法

これは、InterSystems FAQサイトの記事です。
 

FTPサーバから、アップロード／ダウンロードする方法は以下の通りです。

1. FTPサーバにイメージファイルをアップロードする

 set tmpfile="c:\temp\test.jpg"
 set ftp=##class(%Net.FtpSession).%New() 
 // ftp サーバへ接続する
 do ftp.Connect("","<ユーザ名>","<パスワード>")
 // 転送モードをBINARYに設定
 do ftp.Binary()
 // アップロードするディレクトリに移動
 do ftp.SetDirectory("/temp/upload")
 // アップロードするファイルのストリームを用意   
 set file=##class(%File).%New(tmpfile)
 do file.Open("UK\BIN\")
 // ファイルをアップロード
 // 第１引数： アップロード先に作成するファイル名
 // 第２引数： アップロードするファイル・ストリーム
 do ftp.Store("test.jpg",file)
 // ftp サーバからログアウト
 do ftp.Logout()
 // ファイルを閉じる
 do file.Close()
 // (オプション) アップロードしたファイルを削除する
 //do ##class(%File).Delete(tmpfile)

2. FTPサーバからイメージファイルをダウンロードする

   set ftp=##class(%Net.FtpSession).%New()     // ftp サーバへ接続する
    do ftp.Connect("","<ユーザ名>","<パスワード>")     // 転送モードをBINARYに設定
    do ftp.Binary()     // ダウンロードして格納するファイル・ストリームを用意
    set stream=##class(%FileBinaryStream).%New()
    do stream.LinkToFile("c:\temp\testdownload.jpg")
   // ダウンロードするディレクトリに移動
    do ftp.SetDirectory("/temp/download")     // ファイルをダウンロードしてストリームを閉じる
    do ftp.Retrieve("test.jpg",stream)
    do stream.SaveStream()
    Set stream=""     // ftp サーバからログアウト
    do ftp.Logout()