tcomadmincatalogcollection这个变量保存的是一个集合(collection),变量通过getcollection函数来赋值,msdn中有对这些集合的说明,找到了一个propertyinfo集合(看着像),于是把它取了出来,用for循环进行遍历,就可以得到相应的属性名了,代码如下:
catacoll := catacoll.getcollection(&propertyinfo&,cataobj.get_key);
catacoll.populate;
for j := 0 to catacoll.count - 1 do
begin
cataobj := catacoll.get_item(j);
self.memo1.lines.add(cataobj.name);
end;
从memo中就可以读出各个属性值了。对com+目录的操作就是一个取集合和遍历集合的过程,大家自己去举一反三吧^_^
以下是propertyinfo集合的各个属性名称,也就是set_value方法的第一个参数bstrpropname的值:
name
id
description
issystem
authentication
shutdownafter
runforever
identity
password
activation
changeable
deleteable
createdby
accesscheckslevel
applicationaccesschecksenabled
commandline
impersonationlevel
crmenabled
authenticationcapability
3gigsupportenabled
queuingenabled
queuelistenerenabled
eventsenabled
applicationproxy
applicationproxyservername