Extended Objects |
|
Extended objects complete the COM functionality and provide a mechanism for future enhancements. These pseudo objects are instantiated in the same way as all other COM objects within PxPlus, except for the fact that an * asterisk must preface the object name.
Example:
DEF OBJECT "*{extended name}"
It should be noted that while these objects appear identical to other COM objects, they are not COM-based in nature. This means that extended objects: do not expose events, do not expose controls, cannot have member information "described", and cannot be made global to other processes.
The currently supported (internal) extended objects are listed below:
Provides a mechanism for exposing all enumerated constant values from an object's type library. | |
Wrapper export for last error information. | |
Wrapper around an IEnumVariant interface, which is more commonly referred to as a "collection". PxPlus allows this wrapper to be created on both collection objects, as well as single dimension COM SafeArrays. Provides a means of iterating data without regards to the lower or upper bounds of the container. | |
Provides an enumerator for the system-wide list of objects exposed using PvxMakeGlobal. | |
Serves as a system object for the interop layer. Provides object iteration capabilities, version information, etc. | |
Allows the developer to expose instantiated PxPlus objects directly to the COM world. | |
Wrapper around an IRecordInfo interface, which is also referred to as a COM user-defined type (record structure). | |
Wrapper around an OLE safe array of variants. Provides a mechanism for COM array data handling. | |
Wrapper around an OLE variant data type. Provides a means for passing data by reference, as well as converting data from a PxPlus type to Automation types. |
Each of these extended objects is described in detail below.
The goal of the *CONSTANTS object is to expose all the enumerated constant values from an object's type library. For example, Microsoft Word exposes over 1100 constants from its type library. Attempting to use any of these values would require the developer to research the type library to locate the constant name in order to find its associated value. The developer would then be forced to code these constants into his/her program to use them.
Using the *CONSTANTS object provides the following benefits:
The following belongs to the *CONSTANTS object:
{CONSTANTNAME} |
Read-Only Property. All constant names from a type library are exposed as read-only properties. The return type for each constant value will be an integer. |
The following example demonstrates how to acquire an instance of a constants object and then utilize a constant value in code.
0010 DEF OBJECT WORD, "Word.Application;Finalize=Quit"
0020 LET WORD'VISIBLE = 1
0030 LET WORDCONSTS = WORD'PVXCONSTANTS
0040 LET KEYCODE = WORD'BUILDKEYCODE(WORDCONSTS'WDKEYALT, WORDCONSTS'WDKEYF1)
0050 WORDCONSTS'PVXFREE()
0060 ESCAPE
0070 DELETE OBJECT WORD
This static table is exposed as another internal object. It can be DEF'ed after an error has occurred and will still contain the last error information. One note in regards to this class: While multiple instances can be created, they all point to the same data block; i.e. clearing one *ERROR object will in effect clear all other instances.
The following members belong to the *ERROR object:
CLEAR( ) |
(Method Call) Clears the last error information. |
CODE(number) |
(Method Call) Returns the OLE code for the passed number, which is treated as an HRESULT to evaluate. If no parameter is passed, the code for the OLEERROR property is returned. |
DESCRIPTION$ |
(Read-Only Property) Contents depends on if the last error was DISP_E_EXCEPTION or not. If so, it returns the object-defined message. If not, it returns the string representation of the OLE HRESULT based on the OLEERROR property. |
FACILITY(number) |
(Method Call) Returns the OLE facility for the passed number, which is treated as an HRESULT to evaluate. If no parameter is passed, the facility for the OLEERROR property is returned. |
HELPCONTEXT |
(Read-Only Property) If last error code was DISP_E_EXCEPTION, then this property will return the associated help context number, if available. |
HELPFILE$ |
(Read-Only Property) If the last error code was DISP_E_EXCEPTION , then this property will return the associated help file name, if available. |
NUMBER |
(Read-Only/Default Property) Returns last object code set for a dispatch call that failed with DISP_E_EXCEPTION. |
OLEERROR |
(Read-Only Property) Returns the last OLE HRESULT code that was raised. |
SEVERITY(number) |
(Method Call) Returns the OLE severity for the passed number, which is treated as an HRESULT to evaluate. If no parameter is passed, the severity for the OLEERROR property is returned. |
SOURCE$ |
(Read-Only Property) If the last error code was DISP_E_EXCEPTION, this property will return a textual, human-readable name of the source of the exception, if available. |
When dealing with collections, one of the biggest pitfalls is determining if the collection index is zero or one based. To aid the developer, an enumerator object of *FOREACH is made available from all collection objects (that expose the IEnumVariant interface).
To access this object, the PVXFOREACH property must be queried:
FOREACHOBJ=OBJECT'PVXFOREACH
Once returned, the *FOREACH object can be used to access each element in the collection. In addition to collections, the interop layer also allows the developer to obtain a *FOREACH object from an instance of a *VARARRAY object, providing the underlying COM SafeArray only contains a single dimension.
The following members belong to the *FOREACH object:
DATA[$] |
(Read Only/Default Property) Returns the item data that was returned from a call to NEXT( ). The actual data type depends on the collection or array item being enumerated. |
NEXT( ) |
(Method Call) This method reads the next available collection or array item into the DATA property and returns true on success. If no further items exist, false will be returned. This method must be called (and return success) before accessing the DATA property. |
RESET( ) |
(Method Call) Resets the "for each" enumerator and clears the DATA property. This allows item enumeration to start from the first item. Only required if a second (or more) iteration is desired. |
Example:
The following example demonstrates how to acquire an instance of a *FOREACH object and then enumerate all items in a collection:
0010 DEF OBJECT WMI, "[GetObject]winmgmts:\\.\root\cimv2"
0020 LET ITEMS = WMI'EXECQUERY("Select * from WIN32_NetworkAdapterConfiguration where IPEnabled = True")
0030 LET ITER = ITEMS'PVXFOREACH
0040 WHILE ITER'NEXT()
0050 PRINT ITER'DATA'PROPERTIES_("MACAddress")'VALUE$
0060 LET IPITER = ITER'DATA'PROPERTIES_("IPAddress")'VALUE'PVXFOREACH
0070 WHILE IPITER'NEXT()
0080 PRINT IPITER'DATA$
0090 WEND
0100 IPITER'PVXFREE()
0110 WEND
0120 ITER'PVXFREE()
0130 ESCAPE
0140 DELETE OBJECT WMI
The purpose of the *GLOBAL object is to provide an enumerator for the system-wide list of objects exposed using PvxMakeGlobal. With this enumerator, a developer can quickly determine the available global objects and can bind to any object within this list.
The following members belong to the *GLOBAL object:
BINDTO(index/name$) |
(Method Call) Returns a reference to the global object specified by either name or index of item in the global list. |
COUNT |
(Read-Only Property) Returns the count of objects in the system-wide list. |
ITEM$(index) |
(Method Call) Returns the name of the global object at the specified index. Note: |
REFRESH( ) |
(Method Call) Rfreshes the system-wide list of global objects. |
The *MASTER object provides direct access to the object list maintained by the interop layer, as well as any future global settings that may be introduced. With this access, a developer can quickly determine the number of objects in use, which is essential when tracking down code that may not be handling sub-object references properly.
The following members belong to the *MASTER object:
CALLCOUNT |
(Read-Only Property) Returns the number of command call executions since the interop library was initialized. |
COUNT |
(Read-Only Property) Returns the number of objects being managed by the interop layer (includes the master object in this count). |
ITEM(index) |
(Method Call) Returns the interop handle for the object at the specified index. See PVXID. Note: |
LISTPVXMETHODS |
(Read/Write Property) Determines if the internal PVX methods should be listed when the '* property of an object is queried. Defaults to true (-1). |
VERSION$ |
(Read-Only Property) Returns the file version number for the interop library PVXOCX32. |
The *PROXY object allows the developer to expose instantiated PxPlus objects directly to the COM world. A good example of this would be to a hosted scripting language. To use the proxy, a binding to a PxPlus object must first be established. This is done using the ON EVENT FROM syntax:
Example:
0010 oCol = NEW("*obj/Collection")
0020 DEF OBJECT colProxy, "*PROXY"
0030 ON EVENT FROM colProxy PROCESS oCol
The following members belong to the *PROXY object:
ASOBJECT(objid) |
(Method Call) Allows the COM client to wrap a (PxPlus) object handle. If the objid represents a valid PxPlus object handle, an internal proxy wrapper will be created and the dispatch interface will be returned. |
INVOKE(name, flag [, parameters …]) |
(Method Call) Executes the property or method name specified by the name parameter. |
EVALUATE(statement) |
(Method Call) Passes the statement string parameter to the PxPlus interpreter for evaluation. |
EXECUTE(statement) |
(Method Call) Passes the statement string parameter to the PxPlus interpreter for execution. |
COM user-defined types (UDT) or records are handled using this object type. A record object may be returned as a result of a method or property call, or can be directly created using the PVXALLOCRECORD method. Each field in the record will be handled as a read/write property and will be displayed when the '* listing is queried.
The following is a predefined member in the record object:
PASSBYREF |
Read/Write/Default Property. Determines if the IRecordInfo interface will be passed by reference. Setting the property to zero indicates false, any other value indicates true. The default setting for this property is true. |
Being a wrapper around an OLE variant, this object can store any data type, including other objects. It also provides a means for converting data in place and handling data types that are not directly supported by PxPlus. Its primary purpose is for method calls that expect data to be passed by reference, but it is also useful when a COM object will only handle data of a specific type.
The following members belong to the *VARIANT object:
ADD(data [$]) |
(Method Call) Adds the value of the data parameter to the currently held variant data. Logical use is for building strings greater than 32K in length but can be used to add numbers, etc. Calling this method will perform an implicit conversion to the data type of the passed parameter. | |||||||||||||||||||||||||||||||||||||||||||||
ADDB(data [$]) |
(Method Call) Adds the string data parameter to the currently held variant string data. No conversion to Unicode is performed. Requires the passed data parameter to be a either a string or a variant object that contains a string. Also requires the current data to be a string type. | |||||||||||||||||||||||||||||||||||||||||||||
CLEAR( ) |
(Method Call) Clears the contents of the variant. After the CLEAR finishes, the data type for the variant will be set to E(mpty). If the variant contained an object or array reference, the object will be released. | |||||||||||||||||||||||||||||||||||||||||||||
EXPLICITBYREF |
(Read/Write Property) Determines how the variant will be passed if PASSBYREF is set to true. When this property is set to false (zero), a pointer to the variant will be passed to the COM method. When set to true (non-zero), a pointer to the actual data will be passed. The default setting for this property is false. | |||||||||||||||||||||||||||||||||||||||||||||
LEN |
(Read-Only Property) Returns the length of the data held by the variant. Logical use is primarily for string data. | |||||||||||||||||||||||||||||||||||||||||||||
LENB |
(Read-Only Property) Returns the length of the data held by the variant. This is identical to the LEN property except when the variant contains string data. For strings, the actual byte count is returned, which is not the same as the character count when dealing with Unicode strings. | |||||||||||||||||||||||||||||||||||||||||||||
PASSBYREF |
(Read/Write Property) Determines if the variant will be passed by reference. Setting the property to zero indicates false; any other value indicates true. The default setting for this property is true. See EXPLICITBYREF above. | |||||||||||||||||||||||||||||||||||||||||||||
TYPE$ |
(Read/Write Property) Returns the data type for the data being held in the variant. When set, will attempt to convert the data to the requested data type. An error will occur if the conversion fails. Valid types are:
| |||||||||||||||||||||||||||||||||||||||||||||
VAL[$] |
(Read/Write Property) Used to get/set the data held by the variant. It should be noted that setting the data may cause an implicit conversion. For example, if the current data type is B, setting the VAL property to 0 will cause a conversion to data type I. When assigning an object to the VAL property, the following notation must be used: object' VAL.PUT(*otherobject). | |||||||||||||||||||||||||||||||||||||||||||||
VALB[$] |
(Read/Write Property) Used to get/set the string data held by the variant. The difference between this property and the VAL property is that the data is assigned "as is". No conversion from Unicode to ANSI is performed on the data. |
Example:
The following example helps to illustrate the difference between the default string handling versus byte handling properties and methods:
0010 DEF OBJECT V, "*VARIANT"
0020 LET V'VAL$ = "Hello World"
0030 PRINT V'LEN, ",", V'LENB$
0040 PRINT V'VAL$
0050 PRINT V'VALB$
0060 ESCAPE
0070 DELETE OBJECT V
If an object's documentation indicates that a parameter for a method call is "by reference", then *VARIANT must be used. The *VARIANT object is always passed "by reference" to the object, thus allowing the developer to retrieve the new value after method execution.
0010 DEF OBJECT V, "*VARIANT"
0020 DEF OBJECT X, "MSScriptControl.ScriptControl"
0030 V'VAL=10
0040 Z=X'RUN("MySub", *V)
0050 ! Pretend that the object X has set the data for V to "Hello World"
0060 ?V'VAL$ ! Will print "Hello World"
The data for V was set to 10 and then passed as a parameter to the object's method call. Because it was passed "by reference", the method call can change the data to anything or any type it wishes. If you are unsure of the data type returned in the *VARIANT object, then check the 'TYPE$ property.
Instances of this object type are used to facilitate methods that either accept or return COM arrays. What distinguishes this object from PxPlus arrays is the fact that each element can accept data of any type. For example, element 1 may hold a string value, element 2 an object, element 3 an integer, etc. It should also be noted that this object is always passed by reference. The *VARARRAY wrapper is also able to return a *FOREACH enumerator when the COM array contains a single dimension.
When an array is assigned to a *VARIANT, it is important to remember that the *VARIANT will end up with a copy of the array, not the actual array itself. Any changes, even releasing the array, will not affect the array held by the *VARIANT.
The following is a list of members in the Variant array object:
ARRAYTYPE$ |
(Read-Only Property) Returns the array type. Valid types are:
| ||||||||||||||||||||||||
CLEAR(index [, index]) |
(Method Call) Clears the data being held in the variant array element. It is legal to call this method without passing in the element index, in which case the index will default to zero. After the clear completes, the element data type is set to E(mpty). | ||||||||||||||||||||||||
COPY |
(Read-Only Property) Returns a variant array object that contains an exact copy of the contents of the current variant array. | ||||||||||||||||||||||||
CREATE(elements [, elements]) |
(Method Call) Initializes the variant array to the dimension count and element count for each dimension. This method must be passed at least one element count (to create a single dimensioned array) and can accept a maximum of 20 element counts. 10 ! Create 1 dim array with 10 elements | ||||||||||||||||||||||||
CREATEBYTEARRAY (data [$]) |
(Method Call) Requires the passed data parameter to be a either a string or a variant object that contains a string. Initializes the array as a single dimension array of byte (ArrayType = "C"), with the element count of the array equal to the length of the data string. For string data, a conversion to Unicode is performed, resulting in an element count that is 2x the length of the string. If byte handling is desired then, a *VARIANT object should be used. 10 DEF OBJECT V, "*VARIANT" | ||||||||||||||||||||||||
CREATEEX(type$, elements [, elements]) |
(Method Call) Initializes an array of the type specified by type$, where type$ is one of the valid characters from ARRAYTYPE$. See ARRAYTYPE$ above. | ||||||||||||||||||||||||
CREATEVECTOR(data [, data]) |
(Method Call) Initializes the array as a single dimension variant array with the element count equal to the number of parameters passed in. Each element in the array will be assigned the contents of the corresponding data parameter. OBJECT'CREATEVECTOR("John", "Smith", 31, 150.3) | ||||||||||||||||||||||||
DIMENSIONS |
(Read-Only Property) Returns the number of dimensions in the variant array. | ||||||||||||||||||||||||
GETDATA[$](index [, index]) |
(Method Call) Returns the data being held in the variant array element. It is legal to call this method without passing in the element index, in which case the index will default to zero. | ||||||||||||||||||||||||
GETDATAEX(index [, index]) |
(Method Call) Returns the data being held in the variant array element as a variant object. It is legal to call this method without passing in the element index, in which case the index will default to zero. | ||||||||||||||||||||||||
LBOUND(dimension) |
(Method Call) Returns the lower boundary for the dimension in the array. Note that this will always be zero for a valid dimension. When passing dimension, the value should be an integer between 1 and the number of valid dimensions; otherwise, an error occurs. | ||||||||||||||||||||||||
OLEARRAY |
(Read-Only Property) Returns a variant array copy of the current array. If the current ARRAYTYPE$ property is "V", then no conversion is required. | ||||||||||||||||||||||||
PASSBYREF |
(Read/Write Property) Determines if the array will be passed by reference. Setting the property to zero indicates false, any other value indicates true. The default setting for this property is true. | ||||||||||||||||||||||||
SETDATA(index [, index], data [$]) |
(Method Call) Assigns the contents of data to the variant array element. It is legal to call this method without passing in the element index, in which case the index will default to zero. For variant arrays, the data parameter can be any valid data type, including variant and variant array objects. For all other arrays, the data parameter must be convertible to the array type. | ||||||||||||||||||||||||
TYPE$(index [, index]) |
(Method Call) Returns the data type for the data being held in the variant array element. It is legal to call this method without passing in the element index, in which case the index will default to zero. The following is identical for a two-dimension array: | ||||||||||||||||||||||||
UBOUND(dimension) |
(Method Call) Returns the upper boundary for the dimension in the array. This will be one number less than the total count of elements in the dimension: Example: |
Example:
The following is an example of initializing an array using all the valid array types:
0010 ! Set array types to create
0020 DEF OBJECT A, "*VARARRAY"
0030 LET TYPES$ = "VBCMDRNIOFS"
0040 FOR I = 1 TO LEN(TYPES$)
0050 A'CREATEEX(TYPES$(I,1),10)
0060 PRINT "ARRAY TYPE:", A'ARRAYTYPE$
0070 PRINT "ARRAY DIMENSIONS:", A'DIMENSIONS
0080 PRINT "ARRAY LBOUND:", A'LBOUND(1)
0090 PRINT "ARRAY UBOUND:", A'UBOUND(1)
0100 FOR X = A'LBOUND(1) TO A'UBOUND(1)
0110 PRINT A'GETDATA$(X)
0120 NEXT X
0130 ESCAPE
0140 NEXT I