怎么获取com组件里成员函数列表?

popdes · 发表于 2017-10-18 16:46:48

如题:
对com组件的使用不熟悉.
最近用到一个dll是vb6写的com组件,要注册组件才能使用的那种.
求问,怎么实现获取到这个dll里面的所有对外函数?

首先: 我用com自带的,com.DumpTypeInfo(obj)是可以获取到所有函数,但是我想获取这个函数列表到一个listbox,或者edit中,不知道这个怎么做?
不知道DumpTypeInfo()这个函数是怎么执行输出到控制台的?

其次: 我下面实验了好多个com函数,都没发现这个函数列表应该怎么弄......

import win.ui;
/*DSG{{*/
mainForm = win.form(text="aardio form";right=759;bottom=469)
mainForm.add()
/*}}*/
import console;
import com;
import com.lite;
console.open();
var getString = function( tab ){
var strResult = ..table.tostring(tab);
strResult = string.replace(strResult,";",';\r\n');
strResult = string.replace(strResult,"\{ *",'{\r\n');
strResult = string.replace(strResult,"\}",'\r\n}');
strResult = string.trim(strResult,"{}");//去掉首尾的构造符
return strResult;
}
var obj = com.CreateObject("Z_WDM.WDM" );
assert(obj,"创建com对象失败");
//获取函数列表
com.DumpTypeInfo(obj)
var typeinfo = com.GetTypeInfo(obj)
//获取文档信息
console.varDump(
typeinfo.GetDocumentation()
)
//获取类型属性
console.varDump(
typeinfo.GetTypeAttr()
)
//获取类型库
console.varDump(
typeinfo.GetTypeLib()
)
//导出常量
console.varDump(
typeinfo.GetTypeLib().ExportConstants()
)
//导出全部迭代器
console.varDump(
typeinfo.GetTypeLib().ExportEnumerations()
)
//导出类型计数
console.varDump(
typeinfo.GetTypeLib().GetTypeInfoCount()
)
console.log(".............下面做一些直接操作组件变量的实验............")
//获取
console.log(obj.负限位)
console.varDump(
com.GetIUnknown(obj)
)
mainForm.enableDpiScaling();
mainForm.show();
return win.loopMessage();

复制代码

图中的编码是乱码, 貌似因为这个dll的函数中文名的原因,晕了.
附上工程打包: http://pan.baidu.com/s/1bpfJ8Bl

popdes · 发表于 2017-12-8 23:16:23

搞定了, 感谢群里: 王港 kio1 codex 阿法牛 indertust ...等人对我的指导!

我这里写了个简单的示例, 将com组价的函数直接输出到edit里:
其实,com库里已经封装了很完整的源码了, 只需要各种调用就可以了. 谢谢Jacen提供这么好的库.

import win.ui;
/*DSG{{*/
var winform = win.form(text="COM组件函数查看演示";right=759;bottom=455;border="dialog frame")
winform.add(
button={cls="button";text="查看该组件内置函数";left=566;top=419;right=756;bottom=450;z=3};
comEdit={cls="edit";text="ADODB.Connection";left=318;top=419;right=545;bottom=448;align="center";bgcolor=0;color=65280;edge=1;font=LOGFONT(h=-16);z=2};
funcEdit={cls="edit";left=5;top=4;right=756;bottom=416;bgcolor=0;color=65280;font=LOGFONT(name='微软雅黑';h=-14);hscroll=1;multiline=1;readonly=1;vscroll=1;z=1}
)
/*}}*/
var loadFunc = function( comMsg ){
import com;
//调用COM组件
obj = com.CreateObject( comMsg );
//获取COM组件类型库信息
var typeinfo = com.GetTypeInfo(obj)
//准备存储获取到的类型库信息
var funcTab = {};
//下面直接调用函数总数目不准确,因为有写com组件里有空函数
//winform.funcEdit.log("共有函数: "++typeinfo.GetTypeAttr().Funcs ++ " 个!",'\r\n');
for(i=0;typeinfo.GetTypeAttr().Funcs-1;1){
table.push(funcTab,table.clone(typeinfo.GetFuncDesc(i) ));
}
for(i=1;#funcTab;1){
var funcPara = null;//参数合成
if(funcTab[ i ].Params != null){
//console.dump(funcTab[ i ]);
//总共几个变量参数
for(j=1;funcTab[ i ].Params;1){
var parametersTab = (funcTab[ i ].parameters)[j];
if( parametersTab != null ){
//console.dump(parametersTab);
if(j==1){
funcPara = string.concat(funcPara,parametersTab._com_type," ",parametersTab.name);
}else {
funcPara = string.concat(funcPara,',',parametersTab._com_type," ",parametersTab.name);
}
}
}
//输出
winform.funcEdit.log(string.concat(funcTab[ i ]._com_type ," ",funcTab[ i ].name ,"( ",funcPara , " );"),'\r\n');
}
}
}
winform.button.oncommand = function(id,event){
winform.funcEdit.clear();
loadFunc(winform.comEdit.text);
}
winform.show();
win.loopMessage();

复制代码

popdes · 发表于 2017-10-18 16:50:26

本来用com.lite免注册调用的,发现貌似不行
后来直接手工注册的, 应该只注册Z_WDM.dll就可以了, 我手工所有的都注册了下..汗

JacenHe · 发表于 2017-10-18 16:59:21

popdes 发表于 2017-10-18 16:50
本来用com.lite免注册调用的,发现貌似不行
后来直接手工注册的, 应该只注册Z_WDM.dll就可以了, 我手工所有 ...

一般的控件用 com.activeX.regsvr32() 注册就可以，
有些需要管理权限的用 com.activeX.regsvr32As()

VB的控件可能有些麻烦，依赖的东西可能会很多，一个控件依赖另一个。
一般VB写的控件尽量不要用，用VC写的会好些。

		自动登录	找回密码
密码			注册会员