EsbListApplications

呼出し元がアクセスできる、すべてのアプリケーションをリストします。

構文

            EsbListApplications
             (
            hCtx, pItems
            )
ByVal 
            hCtx
               As Long
      
            pItems
             As Integer
         

戻り値

正常終了の場合、アクセス可能なアプリケーション数のアイテムがpItemsに戻され、EsbGetNextItem()を介してアクセス可能なアプリケーション名の文字列のリストが生成されます。リスト内のアイテムの「アイテム」数があります。

アクセス

この関数を使用するのに、特別な権限は必要ありません。ただし、呼出し元がアプリケーションにアクセスした場合、サーバー・アプリケーションのみがリストされることに注意してください。

例

         Declare Function EsbListApplications Lib "ESBAPIN" (ByVal hCtx As Long, Items As Integer) As Long

Sub ESB_ListApplications ()
   Dim sts As Long
   Dim Items As Integer
   Dim AppName As String * ESB_APPNAMELEN   '******************************
   ' Get List of Application names
   '******************************
   sts = EsbListApplications (hCtx, Items)   For n = 1 To Items     '*********************************
     ' Get next Application name string
     '********************************* 
     sts = EsbGetNextItem (hCtx, 
           ESB_APPNAME_TYPE, ByVal AppName)
   Next
End Sub
      

関連トピック

• EsbListDatabases
• EsbListObjects
• EsbGetNextItem