pb9中COM的创建和调用

　　pb中不仅可以调用com（请参见http://blog.csdn.net/precipitant/archive/2007/09/05/1773126.aspx），也可以创建com。

　　创建方法：

　　1, 创建一个workspace

　　2, 在workspace下创建一个application ( 假设名字为：myapp)

　　3, 创建custom class,

在custom　class　中可以创建 function

　　4, 创建 project

　　　要选择 COM/MTS/COM+ Component Wizard

　　　填写 Project　名

　　　选择一个　custom class

　　　设置　Interface Name

　　　设置　Program ID string　

　　　默认是 PB90.[custom class 的名字]，我们可以修改（假设修改为PB90.cus_class7 ,这个名字就是在pb中调用时的类名）

　　　设置　Com Class Name

　　　默认为COClass_[custom class的名字]（假设为COClass_cus_class7 ,这个名字就是在vb中调用时的类名）

　　　将　Register Components Upon Successful build 选中

　　5, 生成dll

　　　选中新创建的project,点击右键，然后点击Deploy

　　这样就完成创建com的工作。

　　调用方法：

1,vb中

　　创建一个vb项目，添加引用　PB90 generated typelib for:myapp.dll

注意红字部分，为输出的dll文件名，一般和application名义相同。

　　写代码：

Dim a As new myapp.COClass_cus_class7
MsgBox a.dog

显然是通过 　　[application　name].[Com ClassName]　 来使用这个com。

2,pb中

int intValue
oleobjectobjOle
objOle = createOLEObject
intValue = objOle.connecttonewobject( " PB90.cus_class7 " )
if intValue = 0 then
string v
v = objOle.dog()
Messagebox( " ss " ,v)
end if

显然是通过 [Program ID String] 来使用这个com的。

通过测试发现在vb和在pb中的调用方法是不一样的。