Opc data Access Automation Specification

4.1.5.6

 

QueryAvailableLocaleIDs  

Description 

Return the available LocaleIDs for this server/client session. The LocaleIDs are returned as an 

array of longs. 

Syntax 

QueryAvailableLocaleIDs () As Variant 

Example 

Dim LocaleID As Variant 

Dim AnOPCTextSting as String 

AnOPCServerLocaleID = AnOPCServer.QueryAvailableLocaleIDs() 

For i = LBound(LocaleID) To UBound(LocaleID) 

 

AnOPCTextSting = LocaleIDToString(LocaleID(i)) 

    listbox.AddItem AnOPCTextSting 

Next i 

4.1.5.7

 

QueryAvailableProperties  

Description 

Return a list of ID codes and Descriptions for the available properties for this ItemID. This list 

may differ for different ItemIDs. This list is expected to be relatively stable for a particular 

ItemID. That is, it could be affected from time to time by changes to the underlying system’s 

configuration.  

Syntax 

QueryAvailableProperties (ItemID As String, ByRef Count As Long, ByRef  PropertyIDs() as 

Long, ByRef Descriptions() As String, ByRef DataTypes() As Integer) 

 

Part Description 

ItemID 

The ItemID for which the caller wants to know the 

available properties 

Count 

The number of properties returned 

PropertyIDs 

DWORD ids for the returned properties. These IDs can 

25 

 

---

OPC Data Access Automation Specification2.02 

be passed to GetItemProperties or LookupItemIDs 

Descriptions 

A brief vendor supplied text Description of each 

Property. NOTE LocalID does not apply to 

Descriptions.  

DataTypes 

The datatype which will be returned for this Property by 

GetItemProperties. 

 

Example 

‘ Get the available properties 

Dim OPCItemID As String 

Dim ItemCount As Long 

Dim PropertyIDs() As Long 

Dim Descriptions() As String 

Dim DataTypes() As Integer 

Dim AnOPCTextSting As String 

OPCItemID = “SomeOPCDataAccessItem” 

AnOPCServer.QueryAvailableProperties (OPCItemID, ItemCount, PropertyIDs, Descriptions, 

DataTypes) 

For i = 1 To ItemCount 

 

AnOPCTextSting = Str(PropertyIDs(i) + “ “ + Descriptions(i) 

    listbox.AddItem AnOPCTextSting 

Next I