pb9中COM的创建和调用-CFANZ编程社区

　　pb中不仅可以调用com（请参见），也可以创建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中

myapp.dll

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

　　写代码：

Dim 
   a  
  As 
    
  new 
   myapp.COClass_cus_class7
   
  MsgBox 
   a.dog

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

2,pb中

int      intValue   
oleobject   objOle   
objOle   = 
  create   OLEObject   
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中的调用方法是不一样的。