在Visual Basic 中使用C++ 类 (转)[@more@]在 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++ Bul ider 3.0 自动生成，粗体字是添加的。读者可与C++ Bulider 3.0 自动生成 框架文件对照。 为了节约篇幅，自动生成的注释已去掉。

附一. Dxf.h 头文件

#ifndef dxfH

#define dxfH

#include

#include

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

#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

#pragma hdrstop

#include

#include

#include "dxf.h"

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

#pragma package(smart_init)

TDxfClsImpl::TDxfClsImpl()

{

SecStart=" 0nSECTIONn";

SecEnd=" 0nENDSECn";

Vports=2;

LayerNum=1;

Tables=" 2nTABLESn 0nTABLEn 2nVPORTn 70n";

Blocks=" 2nBLOCKSn";

Entities=" 2nENTITIESn";

}

void TDxfClsImpl::WriteTitleSec()

{

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

write(handle," 2nHEADERn",strlen(" 2nHEADERn"));

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," 0nEOFn",strlen(" 0nEOFn"));

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+=" 0nLINEn 8n";

Entities+=IntToStr(Layer);

Entities+="n 10n";

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

Entities+=buffer;

Entities+="n 20n";

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

Entities+=buffer;

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

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

Entities+=buffer;

Entities+="n 21n";

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

Entities+=buffer;

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

catch(Exception &e) {

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

}

return S_OK;

};

附三 示例：

在VB 5 中建一新窗口，在窗口上放一Comman dbutton，命名为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 联机帮助文件。

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10748419/viewspace-1000361/，如需转载，请注明出处，否则将追究法律责任。