[翻译]在VB中调用VC中创建的自动化服务器,使用语法OBJ1.OBJ2.Property

[入库:2005年8月19日] [更新:2007年3月25日]

本文简介:选择自 huyoo 的 blog

信息: vb automation of visual c++ server using obj1.obj2.prop syntax
文章 id : 137343
最后评论 : december 1, 2003
修正版本 : 1.0
本文章先前在知识库 q137343 条发表

本页来源(英文查看):http://support.microsoft.com/default.aspx?scid=kb;en-us;137343

翻译:huyoo,胡子,来自: http://blog.csdn.net/huyoo [--转载请不要删除此信息--]


本页目录
摘要
更多信息

摘要
编程中非常必要访问ole automation 服务器暴露的嵌套对象的属性.
visual basic 语法是:    obj1.obj2.property
    
这篇文章示范了怎样在viusal c++环境下创建一个简单ole automation服务器,然后在visual basic中调用服务器的嵌套对象访问属性.

更多信息
下面的步骤示范了怎样在vc++中创建一个 ole automation 服务器,它允许在 visual basic 中 使用 obj1.obj2.property 这样的语法访问.

在vc++中创建ole automation 服务器的步骤:
1. 使用appwizard创建一个名字为 autoserv 的工程,单文档结构的,选中 automation 这一项.
2. appwizard创建完成之后,查看 classwizard.
3. 单击选中 automation 标签.
4. 单击 add class 按钮, 输入下面的值, 创建下面这个类:   
   class name:    nested
   class type:    ccmdtarget
   选中 automation 这一项
       
 
5. 单击 classwizard 的 automation 标签. 把 class name 选择为 nested, 单击 add property 按钮, 输入下面的值,然后单击 ok:
   external name: value
   type:          long
       
 
6. 在classwizard 中把类名(classname)改变为 cautoservdoc. 这时,将可能弹出是否保存改变,单击是.然后单击 add method 按钮输入下面的值,单击ok.
   external name: nested
   return type:   lpdispatch
       
 
7. 点ok 以接受这些由 classwizard 添加的部分.

8. 打开 project的 autoservdoc.h 文件, 在文件的头部加入下面这行:
    #include "nested.h"
       
 
9. 在同一个文件中,添加一个公共成员变量( public member variable) m_nested ,类型为 nested . 一个转撤机构会被用来维持这个 nested 类; 不过在此例中, 所选的方法将会分别随着documents的构造和析构,而自动构造和析构对象nested(它变成了文档的子类)

10. 打开 project的nested.h 文件, 并且修改这个nested 类的构造和析构函数的访问权限为 public ,以便document调用.

11. 打开 project 的autoservdoc.cpp 文件, 并且修改 nested method 如下:

    lpdispatch cautoservdoc::nested()
    {
       //todo: add your dispatch handler code here
       return m_nested.getidispatch(true);
    }
       
 
12. 编译工程, 然后运行 autoserv.exe ,以注册这个服务器到注册表.

在 visual basic 中测试这个服务器程序.

1. 启动一个新的工程在visual basic中,用来测试这个 ole automation 服务器.
2. 切换到代码编辑模式.
3. 在对象选择的复合下拉框中,选 general .
4. 输入下面的代码:
    dim server as object
       
 
5. 在对象选择的复合下拉框中,选择form. 修改 sub 过程如下:
   sub form_load ()
      set server = createobject("autoserv.document")
      debug.print server.nested.value '我添加的
      server.nested.value = 10 
      x = server.nested.value    '我添加的
      debug.print x
   end sub
       
 
6. 添加 x 和 server.nested.value到 visual basic watch窗口, 这样当你单步调试的时候,你就可以观察它们的值的改变.

----------------------------------------------------------
我已经测试过代码,在vc6.0的环境下编译成功,在vb6.0中成功实现了调用.

第六步实际上已经不需要了.

参考资料:   

gui大夫和com自动化,第一部分   http://www.microsoft.com/china/msdn/library/archives/techvoice/10.asp

自动化对象  http://blog.csdn.net/wingforward/archive/2005/01/12/250539.aspx

automation in c++ builder  http://blog.csdn.net/kingcaiyao/archive/2003/02/24/15200.aspx

本文关键:[翻译]在VB中调用VC中创建的自动化服务器,使用语法OBJ1.OBJ2.Property
 

本站最佳浏览方式为 分辨率 1024x768 IE 6.0(或更高版本的 IE浏览器)

go top