EsbGetApplicationInfo

ユーザーが構成不可能なアプリケーションのパラメータが含まれている、アプリケーションの情報構造体を取得します。

構文

            EsbGetApplicationInfo
             (
            hCtx, AppName, pAppInfo, pItems
            )
ByVal 
            hCtx
                 As Long
ByVal 
            AppName
              As String
ByVal 
            pAppInfo
             As ESB_APPINFO_T
      
            pItems
               As Integer
         

備考

この関数は、サーバー上のアプリケーションに対してのみ呼び出せます。

戻り値

正常終了の場合、アプリケーションの情報構造体がpAppInfoに戻され、データベースの数がpItemsに戻されて、EsbGetNextItem()を介してアクセス可能なデータベース名文字列のリストが生成されます。

アクセス

この関数を使用するには、指定されたアプリケーションに対して、呼出し元がアクセス権を持っている必要があります。

例

         Declare Function EsbGetApplicationInfo Lib "ESBAPIN" (ByVal hCtx As Long, ByVal AppName As String, AppInfo As ESB_APPINFO_T, Items As Integer) As Long

Sub ESB_GetApplicationInfo ()
   Dim Items As Integer
   Dim AppName As String
   Dim DbName As String * ESB_DBNAMELEN 
   Dim AppInfo As ESB_APPINFO_T
   Dim sts As Long   AppName = "Sample"   '*******************************
   ' Get Application info structure
   '*******************************
   sts = EsbGetApplicationInfo (hCtx, AppName,
   AppInfo, Items)   For n = 1 To Items       '******************************
      ' Get next Database name string
      ' from the list
      '******************************
      sts = EsbGetNextItem (hCtx, 
      ESB_DBNAME_TYPE, ByVal DbName)
   Next
End Sub
      

関連トピック

• EsbGetApplicationInfoEx
• EsbGetApplicationState
• EsbGetDatabaseInfo
• EsbGetNextItem