ファイルサービスの Copy メソッドを調整して HTTP 応答の呼び出しステータスを読み込む

現在地: Webサービス > Webサービスの利用 > チュートリアル 2 - Web サービス経由で Java コードを実行 > ファイル・サービスの Copy メソッドを調整して HTTP 応答の呼び出しステータスを読み込む

Copy メソッドに InvocationStatus という名前のパラメータを追加します。このパラメータは、前回定義したタイプ ExternalServiceInvocationStatus のオブジェクトを受け取ります。

Define_Map For(*INPUT) Class(#ExternalServiceInvocationStatus) Name(#InvocationStatus) Pass(*BY_REFERENCE) Mandatory(*NULL)

応答オブジェクトからステータスを読み込む次のコードを #Request.DoPost の後に追加します。

* 要求ステータス取得

If (#InvocationStatus *IsNot *Null)

#InvocationStatus.FromHttpResponse( #Request.Response )

Endif

(黄色でハイライトされた新規の行の) 調整を加えて、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_Map For(*INPUT) Class(#ExternalServiceInvocationStatus) Name(#InvocationStatus) Pass(*BY_REFERENCE) Mandatory(*NULL)

* 変数

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)

* 要求ステータス取得

If (#InvocationStatus *IsNot *Null)

#InvocationStatus.FromHttpResponse( #Request.Response )

Endif

Endroutine