Lists all objects of the specified types on the server or locally on the client.
Syntax
EsbListObjects (hCtx, ObjType, AppName, DbName, pItems) ByVal hCtx As Long ByVal ObjType As Long ByVal AppName As String ByVal DbName As String pItems As Integer
| Parameter | Description |
|---|---|
hCtx | VB API context handle. Can be local context handle returned from EsbCreateLocalContext(). |
ObjType | Object type (may be multiple types). Refer to "Bitmask Types" for a list of possible values. |
AppName | Application name. |
DbName | Database name. If an empty string, lists objects in the application sub-directory. |
pItems | Address of variable to receive the Items of objects of the appropriate type(s). |
Return Value
If successful, returns a Items of the number of objects of the appropriate type(s) in pItems, and generates an array of matching object structures accessible via EsbGetNextItem().
Access
This function requires no special privileges; note however that server objects will only be listed if the caller has the appropriate level of access to the application and/or database (depending on the object type).
Example
Declare Function EsbListObjects Lib "ESBAPIN" (ByVal hCtx As Long, ByVal ObjType As Integer, ByVal AppName As String, ByVal DbName As String, Items As Integer) As Long
Sub ESB_ListObjects ()
Dim Items As Integer
Dim AppName As String
Dim DbName As String
Dim ObjType As Integer
Dim ObjInfo As ESB_OBJINFO_T
Dim sts As Long Appname = "Sample"
DbName = "Basic"
ObjType = ESB_OBJTYPE_OUTLINE '*********************
' List Outline Objects
'*********************
sts = EsbListObjects (hCtx, ObjType,
AppName, DbName, Items) For n = 1 To Items '**************************
' Get next Object Structure
' from the list
'**************************
sts = EsbGetNextItem (hCtx,
ESB_OBJINFO_TYPE, ObjInfo)
Next
End SubSee Also