在Visual Basic 中使用C++ 类

原创 2001年05月30日 19:45:00
在Visual Basic 中使用C++ 类

            用C++ Builder 创建可重用的OLE Automation

             李国兴

我在Borland C++ For Windows 环境下编制工程辅肋设计程序时定义了一个生成AutoCAD DXF 图形交换文件的类,在后来用Visual Basic 编写另一辅肋设计程序时又需要生成DXF图形文件,为了利用已有的代码,我在Borland C++ Builder 3.0 中将普通的C++类转换成Automation Object 进程内服务器,供Visual basic 使用,成功地实现了不同语言源程序级的重用。现将转换方法简单地介绍给大家。供大家参考。

    原C++ 类声明如下: (为节约篇幅,进行了大量简化只实现基本功能)

class Dxf{

  private:

    HFILE handle;                          //DXF 文件头

    String  SecStart;                             //节头

    String  SecEnd;                   //节尾

    String  Tables;                                //表节串

    String  Blocks;                                //块节串

    String  Entities;                               //实体节串

  protected:

    bool WriteTitleSec();                         //写标题节

    bool WriteBlockSec();                  //写块节

    bool WriteEntitiesSec();                   //写实体节

  public:

    Dxf();

    bool SaveToFile(char *filename);          // 保存数据到文件

    void Dxf_Line(float x1,float y1,float x2,float y2,int Layer=0);      // 画直线

};

将C++类转换成进程内服务器的过程如下:

1.                打开BorLand C++ Builder 3.0 的集成开发环境,选择File菜单下的new 子菜单,C++ Builder 将打开项目选择窗口,选择ActiveX 页面,在Active 页面中选择Active Library。然后再选择File菜单下的new 子菜单,选择ActiveX 页面,在Active 页面中选择Automation object 打开Automation Object Wizard 对话框,在Class name 框中填入DxfCls 作为在VB中引用Dxf 类的类名,单点Ok 完成。C++ Builder 3.0 将建立类型库,完成工程的建立。并打开类型库编辑窗口。(一点说明,由于BorLand C++ Builder在建立Automation Object 时,缺省是建立进程外的自动化服务器,在此我仅需的是作为DLL的进程内的自动化服务器,因此要首先创造一外类型库,再把自动化服务器加到类型库中去。

2.                选择将工程以DxfCls 名存盘,并将unit1以Dxf存盘。

3.                在类型库编辑窗中的Attributes页中将Name 中的project1 改为Dxf,将Help组框中的Help string 改为dxf Library,此字符串将在VB 的引用选择窗中显示。其它不用修改。

4.                将原Dxf 类中的除构造和析构以外的函数暴露给VB,其方法是选择Idxfcls节点,单击工具栏上的Method,然后在Attributes 页上将name对话框中Method1修改为您所需要的函数名,再选择Parameters 页设置函数的返回数据类型和型参。在选择返回数据时,注意下拉列表框中不直接支持bool 作为返回类型,您可以选择short或者选择Varian_bool 作为返回类型,在这里我选择short来替代bool 作为返回类型。此外型参表中的前两项对应通常C函数中的数据名和数据类型,数据类型以下拉列表的型式选择。如果要设置函数的缺省形参可双击第三个参数,此时将弹出parameters Flags 编辑窗,在编辑窗中选中has default value ,在下面的编辑框中填入缺省数据。

5.                单击工具栏上的Refresh, 编辑器自动在您的Dxf.cpp和dxf.h中添加上您在类型库中设定的函数声明。

6.                打开dxf.cpp文件,您可在找到SaveToFile等函数的声明如下:

short STDMETHODCALLTYPE TDxfClsImpl::SaveToFile(LPSTR filename)

{

  try

  {

  }

  catch(Exception &e)

  {

  return Error(e.Message.c_str(), IID_IDxfCls);

  }

  return S_OK;

};

将原dxf.cpp中的已暴露的函数的实现部分粘贴到新的dxf.cpp 中的各函数的try 部分,并修改错误处理代码和返回数据。其它私有函数直接粘贴到新的文件中,仅修改函数名前的类名。

7.                打开原dxf.h文件,将类的声明部分中除已暴露的函数以外的其它部分粘贴到剪粘板,然后再打开当前工程的dxf.h窗口,将剪贴板的内容复制到TdxfClsImpl类中间。

8.                选择project菜单中的make dxfcls 将工程编译成DLL文件。至此完成了C++中的普通类到自动化服务器的迁移。

9.                选择Run 菜单下的Register ActiveX server, 对dxf 进行注册。以后就可以在VB中使用dxf 类了。

10.            在VB5.0中使用对象,在Visual Basic 项目中,选择工程|引用,打开引用窗口,选中dxf library 库,按确认后返回,然后打开视图|对象游览器,打开所有库下拉列表后选择dxf,再选择dxfcls就可以见到以上所暴露的SaveToFile和Dxf_line 函数。VB 工程中可以用Dim dxf as new dxfcls 创建引用了。新的dxf 实现类的声明和实现如下,头文件中的细体字是C++ Bulider 3.0 自动生成,粗体字是添加的。读者可与C++ Bulider 3.0 自动生成框架文件对照。 为了节约篇幅,自动生成的注释已去掉。

附一. Dxf.h 头文件

#ifndef dxfH

#define dxfH

  #include <fcntl.h>

#include<io.h>

//---------------------------------------------------------------------------

#include "Dxf_TLB.h"

#define LIBID_DxfCls LIBID_Dxf

class ATL_NO_VTABLE TDxfClsImpl:

  AUTOOBJECT_IMPL(TDxfClsImpl, DxfCls, IDxfCls)

{

public:

  TDxfClsImpl();

  

BEGIN_COM_MAP(TDxfClsImpl)

  AUTOOBJECT_COM_INTERFACE_ENTRIES(IDxfCls)

END_COM_MAP()

  DECLARE_TYPED_COMSERVER_REGISTRY("Dxf.DxfCls")

  private:

  HFILE  handle;                    

  int    Vports;                                      

  int    LayerNum;                                   

  String SecStart;                                          

  String SecEnd;

  String Tables;

  String Blocks;

  String Entities;

  void WriteTitleSec();

  void WriteBlockSec();

  void WriteEntitiesSec();

protected:

  short STDMETHODCALLTYPE SaveToFile(LPSTR filename);

  STDMETHOD(Dxf_Line(float x1, float y1, float x2, float y2, short Layer));

};

#endif

  附二. dxf.cpp文件

#include <vcl.h>

#pragma hdrstop

#include <stdio.h>

#include <atl/atlvcl.h>

#include "dxf.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

  

TDxfClsImpl::TDxfClsImpl()

{

  SecStart="  0/nSECTION/n";

  SecEnd="  0/nENDSEC/n";

  Vports=2;

  LayerNum=1;

  Tables="  2/n/TABLES/n  0/n/TABLE/n  2/n/VPORT/n/ 70/n";

  Blocks="  2/nBLOCKS/n";

  Entities="  2/n/ENTITIES/n";

}

void TDxfClsImpl::WriteTitleSec()

{

write(handle, SecStart.c_str(), SecStart.Length());                    // 写节头

write(handle,"  2/nHEADER/n",strlen("  2/nHEADER/n"));

write(handle, SecEnd.c_str(),SecEnd.Length());             // 写节尾

}

void TDxfClsImpl::WriteBlockSec()

{

write(handle,SecStart.c_str(), SecStart.Length());                     // 写节头

write(handle,Blocks.c_str(),Blocks.Length());

write(handle,SecEnd.c_str(),SecEnd.Length());                   // 写节尾

}

void TDxfClsImpl::WriteEntitiesSec()                                  // 写实体节

{

write(handle, SecStart.c_str(), SecStart.Length());

write(handle,Entities.c_str(),Entities.Length());

write(handle, SecEnd.c_str(),SecEnd.Length());

}

short STDMETHODCALLTYPE TDxfClsImpl::SaveToFile(LPSTR filename)

{

  int i;

  try  {

   if (FileExists(filename)){

     i=FileGetAttr(filename);

     if (i& faReadOnly)

        FileSetAttr(filename,i&0xFE);

     DeleteFile(filename);  }

   handle=open(filename,O_CREAT|O_TEXT|O_RDWR);

   if (handle==-1) return false;

   WriteTitleSec();                                  //写标题节

   WriteBlockSec();

   WriteEntitiesSec();

   write(handle,"  0/nEOF/n",strlen("  0/nEOF/n"));

   close(handle);

  }

  catch(Exception &e)

  {

  return false;

}

  return true;

};

//---------------------------------------------------------------------------

STDMETHODIMP TDxfClsImpl::Dxf_Line(float x1, float y1, float x2, float y2,

  short Layer)

{

  char buffer[16];

  try  {

   Entities+="  0/nLINE/n  8/n";

   Entities+=IntToStr(Layer);

   Entities+="/n  10/n";

   sprintf(buffer,"%6.1f",x1);

   Entities+=buffer;

   Entities+="/n  20/n";

   sprintf(buffer,"%6.1f",y1);

   Entities+=buffer;

   Entities+="/n  30/n 0.0/n  11/n";

   sprintf(buffer,"%6.1f",x2);

   Entities+=buffer;

   Entities+="/n  21/n";

   sprintf(buffer,"%6.1f",y2);

   Entities+=buffer;

   Entities+="/n  31/n 0.0/n";  }

  catch(Exception &e)  {

    return Error(e.Message.c_str(), IID_IDxfCls);

  }

  return S_OK;

};

附三 示例:

在VB 5 中建一新窗口,在窗口上放一CommandButton,命名为cmdCreate,然后输入以下代码,运行后,单击cmdCreate,就可生成基本的AutoCAD下使用的.DXF文件。

Private Sub cmdCreate_Click()

  Dim Dxf As New DxfCls

  Dxf.Dxf_Line 100, 100, 500, 100

  Dxf.SaveToFile App.Path & "/dxftest.dxf"

End Sub

以上程序分别在Borland C++ Builder 3 Server/Client suit  和VB 5.0 专业版下运行通过。生成的dxftest.dxf在AutoCAD for windows 12 下显示图形正常。

一点体会:现在各种语言都提供了创建OLE Automation 服务器的功能,为我们重用以前的代码和利用各种语言进行混合编程提供了方便。我们可利用各种语言的特点,快速地开发出高效的应用软件。    

参考:Borland C++ Builder 3 Server/Client suit 联机帮助文件。

Visual Basic快捷教程——函数与子程序

函数是结构化程序设计的基础。函数的本质就是为了把程序切分成若干个相对独立的模块各司其职,而各个函数的作用也就是仅仅专门负责自己份内的那份功能。在Visual Basic中,函数是一组以Function...
  • baimafujinji
  • baimafujinji
  • 2017年04月19日 22:30
  • 2908

Visual Basic快捷教程——流程控制

在顺序执行的过程中,有时希望计算机根据条件判断来选择性地执行(或者不执行)一些代码,这时就需要用到选择结构(或称分支结构)。另外一些时候,希望计算机能够(有条件地)重复地执行某一段代码,这时就需要用到...
  • baimafujinji
  • baimafujinji
  • 2017年04月04日 15:14
  • 3104

怎样解决无法初始化Visual Basic环境的问题

经常使用word软件,难免是遇到这样那样的问题,今天笔者在录制新宏时出现错误提示“无法初始化Visual Basic环境”,对于此问题我们该如何来解决。 工具/原料 ...
  • kyfvc
  • kyfvc
  • 2013年10月30日 09:57
  • 1536

【Visual Basic】计时器与窗体屏幕尺寸的取法

主要是利用一个小例子讲解VB中计时器Timer的运用。 如下图所示: 有一个显示当前时间,在屏幕的边缘不停地移动。 首先是窗体设置,直接从工具箱拖入Label与Timer控件。Timer...
  • yongh701
  • yongh701
  • 2015年08月06日 09:30
  • 1312

数据库——SQL server2008安装与visual basic连接

这是自己当时初始CSDN上写的第一篇博客,其中当时的心情依然记忆尤新,总之美美的。...
  • u013030601
  • u013030601
  • 2014年06月29日 11:32
  • 1491

Visual Basic快速入门

Basic语言的全名是Beginner’s All-purpose Symbolic Instruction Code(初学者通用的符号指令代码),是几十年前流行过的一门语言。我高中时候一门数学选修课...
  • u011054333
  • u011054333
  • 2018年01月05日 18:26
  • 54

Visual Basic快捷教程——异常处理机制

所谓“异常(Exception)”是指程序运行时所发生的不正常的情况。为了避免程序在运行时发生不正常的错误情况,就需要利用某种机制来捕捉到这些问题,并及时应对随之而来的麻烦,从而避免程序陷入无法继续执...
  • baimafujinji
  • baimafujinji
  • 2016年01月23日 19:12
  • 6271

常见语言的优缺点

汇编语言:         汇编是第一个计算机语言。汇编语言实际上是你计算机处理器实际运行的指令的命令形式表示法。这意味着你将与处理器的底层打交道,比如寄存器和堆栈。如果你要找的是类英语且有相关的自...
  • u013679128
  • u013679128
  • 2014年03月10日 19:25
  • 1619

Visual Basic快捷教程——变量、常量和运算符

程序中数据最基本的存储单位就是变量,程序执行时会在计算机内存中开辟空间存储变量。而计算机程序的执行基本就是通过读取或操作这些变量来实现的。此外,在某些时候,虽然声明了一个变量,但却不希望这个变量的数值...
  • baimafujinji
  • baimafujinji
  • 2017年07月25日 17:08
  • 1048

在Visual Studio中使用C++创建和使用DLL

什么是DLL(动态链接库)? DLL是一个包含可由多个程序同时使用的代码和数据的库。例如:在Windows操作系统中,Comdlg32 DLL执行与对话框有关的常见函数。因此,每个程序都可以使用该D...
  • thebirthgod
  • thebirthgod
  • 2015年03月11日 15:30
  • 1144
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:在Visual Basic 中使用C++ 类
举报原因:
原因补充:

(最多只允许输入30个字)