EsbSetApplicationState

アプリケーションの状態構造体を使用して、ユーザーが構成可能なアプリケーションのパラメータを設定します。

構文

            EsbSetApplicationState
             (
            hCtx, AppName, pAppState
            )
ByVal 
            hCtx
                  As Long
ByVal 
            AppName
               As String
ByVal 
            pAppState
             As ESB_PAPPSTATE_T

パラメータ	説明
hCtx	VB APIコンテキスト・ハンドル。
AppName	アプリケーション名。
pAppState	アプリケーション状態構造体へのポインタ。

備考

パラメータ値を変更するときは、最初にEsbGetApplicationState()を呼び出して、変更しないパラメータの正しい値を取得することをお薦めします。たとえば、次のようにして接続を使用不可にします:

                  Function ESB_DisableConnects(AppName As String) As Long
   Dim sts As Long
   Dim AppState As ESB_APPSTATE_T

   sts = EsbGetApplicationState(phCtx, AppName, AppState)
   
   If sts = 0 Then
       AppState.Connects = ESB_FALSE
       sts = EsbSetApplicationState(phCtx, AppName, AppState)
   End If
   ESB_SetApplicationState = sts
End Function

次のパラメータは集約ストレージ・データベースに適用されません:LockTimeoutおよびlroSizeLimit。

戻り値

なし。

アクセス

この関数を使用するには、指定したアプリケーションに対して、呼出し元がアプリケーション・マネージャ権限(ESB_PRIV_APPDESIGN)を持っている必要があります。

例

         Declare Function EsbSetApplicationState Lib "ESBAPIN" (ByVal hCtx As Long, ByVal AppName As String, AppState As ESB_APPSTATE_T) As Long

Sub ESB_SetApplicationState ()
   Dim sts As long
   Dim AppName As String
   Dim AppState As ESB_APPSTATE_T   AppName = "Sample"
   AppState.Description = "This is a test application" 
   AppState.Loadable = ESB_TRUE
   AppState.Autoload = ESB_TRUE
   AppState.Access = ESB_PRIV_APPCREATE 
   AppState.Connects = ESB_TRUE
   AppState.Commands = ESB_TRUE 
   AppState.Updates = ESB_TRUE
   AppState.Security = ESB_TRUE
   AppState.LockTimeout = 1000    '********************************
   ' Set Application State structure
   '********************************
   sts = EsbSetApplicationState (hCtx, AppName, AppState) 
End Sub