EsbGetApplicationInfoEx

ユーザーが構成不可能なアプリケーションのパラメータも含めて、複数のデータベースから情報を取得します。

構文

            EsbGetApplicationInfoEx
             (
            hCtx, AppName, pItems
            )
ByVal 
            hCtx
                As Long
ByVal 
            AppName
             As String
      
            pItems
              As Integer

パラメータ	説明
hCtx	VB APIコンテキスト・ハンドル(ログイン済)。
AppName	アプリケーション名。
pItems	戻されたデータベースのアイテムを受け取る変数のアドレス。

備考

この関数は、サーバー上のアプリケーションに対してのみ呼び出せます。
この関数の呼出し元は、EsbGetNextItemをESB_APPINFOEX_TYPEパラメータを指定して呼び出す必要があります。これにより構造体ESB_APPINFOEX_Tが戻されます。ESB_APPINFOEX_TとESB_APPINFO_Tは、ESB_APPINFOEX_がデータベース情報を含まないという点を除いて同じです。

戻り値

正常終了の場合は、アプリケーション情報構造体の配列がppAppInfoに戻されます。

アクセス

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

例

         Declare Function EsbGetApplicationInfoEx Lib "ESBAPIN" (ByVal hCtx As Long, ByVal AppName As String, pItems As Integer) As Long

Sub ESB_GetApplicationInfoEx() 
   Dim sts As Long
   Dim AppName As String
   Dim Items As Integer
   Dim AppInfoEx As ESB_APPINFOEX_T
   AppName = ""
   '***********************
   'Get application info Ex
   '***********************
   sts = EsbGetApplicationInfoEx(hCtx, AppName,
   Items)
   For n = 1 To Items
     '***********************************
     ' Get next Application Info item
     ' from the list
     '***********************************'
     sts = EsbGetNextItem(hCtx,ESB_APPINFOEX_TYPE,
     AppInfoEx)
   Next
End Sub