ExternalFileServices という名前の再利用可能パーツを作成します。
この再利用可能パーツを変更して、以前定義した ExternalServiceBase を継承するようにします。
SetupUrlBuilder メソッドを再定義して、ファイル・サービスのパス・コンポーネントを追加します。
ファイルのコピー・サービスの URL を思い出してください。
http://localhost:8080/lansa-tutorial/files/copy
ファイル・サービスのパスに対するベース URL には追加のパス・コンポーネント'files' があります。ですから、ExternalFileServices の SetupUrlBuilder メソッドでは、URL に 'files' を付ける必要があります。
Mthroutine Name(SetupUrlBuilder) Options(*REDEFINE)
* 最初に祖先の SetupUrlBuilder を起動
#COM_ANCESTOR.SetupUrlBuilder UrlBuilder(#UrlBuilder)
* 次にこのクラスを実装
#UrlBuilder.AddPathComponent( 'files' )
Endroutine
次に RDMLX 再利用可能パーツに copy メソッドを実装してみましょう。
Mthroutine Name(Copy)
* パラメータ
Define_Map For(*INPUT) Class(#PRIM_DC.UnicodeString) Name(#SourcePath)
Define_Map For(*INPUT) Class(#PRIM_DC.UnicodeString) Name(#TargetPath)
* 変数
Define_Com Class(#XPRIM_UriBuilder) Name(#Url)
Define_Com Class(#XPRIM_HttpRequest) Name(#Request)
* URL のベース・プロパティ設定
#COM_SELF.SetupUrlBuilder Urlbuilder(#Url)
* 'copy' パス・コンポーネント追加
#Url.AddPathComponent Pathcomponent('copy')
* フォームのパラメータ追加
#Request.Content.AddUrlEncodedFormValue Name('sourcePath') Value(#SourcePath)
#Request.Content.AddUrlEncodedFormValue Name('targetPath') Value(#TargetPath)
* HTTP 要求の実行
#Request.DoPost Url(#Url)
Endroutine
