セッションを終了 |
EndSession メソッドは、現在のセッションを終了するために使用されます。
Session （* Required） で定義された SrvRoutines はもはや実行できません。1つを実行しようとすると、 Failed イベントがクライアントで発生します。
この例では、サインオンとサインオフのためのルーチンを備えたシンプルなセッションサーバーモジュールを示します。
SessionIdentifier(PRIM_SRVM) は、そのサーバーモジュールが他のモジュールと組み合わせて使用することができ、共有できるデータを永続化に指定されています。
Begin_Com Role(*EXTENDS #PRIM_SRVM) SessionIdentifier(Personnel)
Define Field(#gUserID) Type(*Char) Length(40)
Persist Fields(#gUserID)
Srvroutine Name(Signin)
Field_Map For(*Input) Field(#User)
Field_Map For(*Output) Field(#Result)
If (#Com_owner.VerifyUser( #User ))
#Com_owner.StartSession Timeout(240)
#Result := OK
#gUserID := #User
Else
#Result := ER
Endif
Endroutine
Mthroutine Name(VerifyUser) Access(*Private)
Define_Map For(*Input) Class(#xDemoAlpha128) Name(#User)
Define_Map For(*Result) Class(#xDemoBoolean) Name(#Result)
* 有効ユーザーのテスト
Endroutine
Srvroutine Name(Signoff) Session(*Required)
#Com_owner.EndSession
Endroutine
End_Com