|
Syntax
COMREF = ComEnumNext(IDispatch obj)
Description
Enumerates a COM collection.
Parameters
obj - The Object returned by the COMENUMBEGIN command.
Return value
The next child object.
Remarks
The return value is an IDispatch object.
Example usage
IDispatch pEnum, pChild
pEnum = ComEnumBegin(xmlDoc, ".documentElement.childNodes")
do
pChild = ComEnumNext(pEnum)
if pChild <> NULL
GetComProperty(pChild, "%s", &_pTemp, ".childNodes.item(%d).text",0)
#_pData.author = #<string>_pTemp:FreeComString(_pTemp)
GetComProperty(pChild, "%s", &_pTemp, ".childNodes.item(%d).text",1)
#_pData.title = #<string>_pTemp:FreeComString(_pTemp)
GetComProperty(pChild, "%s", &_pTemp, ".childNodes.item(%d).text",2)
#_pData.publisher = #<string>_pTemp:FreeComString(_pTemp)
GetComProperty(pChild, "%s", &_pTemp, ".childNodes.item(%d).text",3)
#_pData.date = #<string>_pTemp:FreeComString(_pTemp)
pChild->Release()
endif
until pChild = NULL
pEnum->Release()
|