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