PB中如何编写COM和COM+程序.
COM/COM+作为取代OLE的一种新技术,问世已经很久了,PB7中也早已提供了对它的支持,不过从现实情况上看,似乎大家使用到的不是很多,其实对于新一代的互联网应用,它还是能够发挥很大作用.下面我将从COM/COM+组件的生成,调用,以及应用范围上谈谈我的看法和心得.
我将用PB10为开发工具做说明.假设要做一个表达式计算的COM组件,我想这个例子比较典型,用到了datastore,datawindowobject,用户对象等,既不会太简单,也不会太复杂(代码不多).
首先最基本的操作,必须先有个WorkSpace,然后打开COM/COM+创建向导:
选中项目后,直接下一步,基本上不用改动,就完成了.
创建完成后,系统就有了一些基本对象:
下面建立一个extend形式的datawindowobject,主要用于计算表达式用的,只要满足有一个列就行了.保存其名字为calc
然后在n_genapp对象中建立一个计算表达式的函数:
public function string of_calc (string as_expression);
datastore lds_calc
string ls_rtn
lds_calc=create datastore
lds_calc.dataobject="calc"
lds_calc.insertrow(0)
ls_rtn=lds_calc.describe("evaluate('" + as_expression + "', 1)")
destroy lds_calc
return ls_rtn
end function
下面就打开project对象p_genapp_commts,进行发布.
注意,发布的project对象属性中,需要修改为将整个pbl的对象一起发布.
发布完成后,就可以调用了.先试试用pb程序调用:
新建一个程序,和窗口:
窗口上放置一个按钮,按钮中写入代码:
OLEObject OleObj
Integer li_rc
OleObj = CREATE OLEObject
li_rc = OleObj.ConnectToNewObject("PB100.n_genapp.1.0")
IF li_rc < 0 THEN
DESTROY OleObj
MessageBox("Connecting to COM Object Failed", "Error: " + String(li_rc))
Return
END IF
sle_2.text=string(OleObj.of_calc(sle_1.text))
OleObj.DisconnectObject()
DESTROY OleObj
执行后,就可以看到计算结果了.
下面我们看看,在其他开发工具中如何调用此COM组件,以BCB6为例:
首先将genapp.dll导入类型库:
执行安装,将COM组件安装到控件面板,然后建立一个窗口,放置几个控件:
在"调用PBCOM"按钮中Clicked事件写代码:
WideString ls_express;
ls_express=Edit1->Text;
Edit2->Text = COClass_n_genapp1->of_calc(ls_express);
点击按钮,就可以看到计算结果了.
用VB调用也比较简单,VC调用稍微复杂点,这里就不缀述了.