ExternalWindowsUserServices という名前の再利用可能パーツを作成します。

この再利用可能パーツを変更して、以前定義した ExternalWindowsServiceBase を継承するようにします。

SetupUrlBuilder メソッドを再定義して、ユーザー・サービスのパス・コンポーネントを追加します。

ユーザー・サービスの URL を思い出してください。

http://localhost:9001/user/

ユーザー・サービスのパスに対するベース URL に追加のパス・コンポーネント'user'があります。ですから、ExternalWindowsUserServices の SetupUrlBuilder メソッドでは、URL に 'user を付ける必要があります。

Mthroutine Name(SetupUrlBuilder) Options(*REDEFINE)
   * 最初に祖先の SetupUrlBuilder を起動
   #COM_ANCESTOR.SetupUrlBuilder UrlBuilder(#UrlBuilder)
   * 次にこのクラスを実装
   #UrlBuilder.AddPathComponent( 'user' )
Endroutine

次に RDMLX 再利用可能パーツに Authenticate メソッドを実装してみましょう。

Mthroutine Name(Authenticate)
   * パラメータ
   Define_Map For(*INPUT) Class(#PRIM_DC.UnicodeString) Name(#Domain)
   Define_Map For(*INPUT) Class(#PRIM_DC.UnicodeString) Name(#UserName)
   Define_Map For(*INPUT) Class(#PRIM_DC.UnicodeString) Name(#Password)
   Define_Map For(*RESULT) Class(#PRIM_DC.UnicodeString) Name(#Result)
   * 変数
   Define_Com Class(#XPRIM_UriBuilder) Name(#Url)
   Define_Com Class(#XPRIM_HttpRequest) Name(#Request)
   Define_Com Class(#XPRIM_RandomAccessJsonReader) Name(#Json)
   * URL のベース・プロパティ設定
   #COM_SELF.SetupUrlBuilder Urlbuilder(#Url)
   * ''authenticate' パス・コンポーネント追加
   #Url.AddPathComponent Pathcomponent('authenticate')
   * フォームのパラメータ追加
   #Url.AddQueryString( 'domain' 'syd' )
   #Url.AddQueryString( 'username' 'tony' )
   #Url.AddQueryString( 'password' 'test' )
   * HTTP 要求の実行
   #Request.DoGet Url(#Url)
   * 認証結果を取得
   #Json.SetSourceHttpResponse( #Request.Response )
   #Result := #Json.ReadStringWithName( 'result' )
Endroutine

次は: サービス呼び出し後のエラー・メッセージを取得