在Visual Basic 中使用C++ 类
在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 中使用C++ 类相关推荐
- 在Visual Basic 中使用C++ 类 (转)
在Visual Basic 中使用C++ 类 (转)[@more@]在 Visual Basic 中使用C++ 类 用C++ Builder 创建可重用的OLE Automation 李国兴 我在Bo ...
- Visual Basic中实现带预览的对话框
Visual Basic中实现带预览的对话框 2007-05-04 07:00作者:出处:论坛整理责任编辑:卢林嘉 用户在图片框中选择图片时,希望预先对图片的轮廓及大小有初步了解,但是VB的通用对话框 ...
- 宏的录制以及在Visual Basic中显示代码
1.新建或者打开一个Excel工作簿,最好是新的 然后选择文件->选项 自定义功能区->勾选开发工具->确认 2.打开,找到开发工具->录制宏 3.写上名称 4.填写你要的内容 ...
- 解决Visual Studio中C++创建类时报错“未能返回新代码元素,可能是语法错误,新元素名:xxx”的问题
解决方法: 首先来到工程目录 找到.vs文件夹,如果像上图一样没有.vs文件夹,那么按下面方法操作: 进入选项 按下图取消勾选隐藏文件 这样就出现了.vs文件夹 找到这个并删除 如果无法删除那么关闭V ...
- 解决打开word时显示microsoft visual basic运行时错误没有注册类的问题
新安装office2019,出现这个问题,需要点击多次调试才能进去软件,用了百度上面的各种方法,最后,看了大佬的连接解决了 先找到C:\Users\你自己的用户\AppData\Roaming\Mic ...
- 打开word时显示microsoft visual basic运行时错误没有注册类怎么解决?
先找到C:\Users\你自己的用户\AppData\Roaming\Microsoft\Word\STARTUP文件夹下的模板文件NEWebWordAddin.dotm,删除. 第一步执行完之后没解 ...
- Visual Basic.NET中访问数据的方法(zz)
http://info.shangdu.com/new/2003-5-8/200358113624.htm Visual Basic.NET是微软对Visual Basic语言进行的升级 ...
- Visual Basic 2005 中的程式語言加強功能
Visual Basic 2005 中的程式語言加強功能 作者:Stan Schultes Microsoft MVP 2004 年 10 月 摘要:本文介紹許多 Visual Basic 2005 ...
- 使用 Visual Basic 通过 32 位 地址访问内存(中英对照)
使用 Visual Basic 通过 32 位 地址访问内存 2001年7月6日 马尼拉,菲律宾 作者:Chris Vega [gwapo@models.com] 当我们谈论"真的" ...
最新文章
- 重磅丨国资委下发通知,加快推进国有企业数字化转型
- 2017年卖掉全副身家买比特币,全家人一起游牧……这个企业家好疯狂!
- 数据结构源码笔记(C语言):快速排序
- [HOW TO]-下载android官方源码
- MySQL SELECT:数据表查询语句
- MySQL分组函数的介绍
- octave安装 缺java_Octave信号包安装
- 镜像VirtualBox 下安装 CentOS 7搭建python项目
- (17)System Verilog枚举类型enum详解
- 421. 数组中两个数的最大异或值
- “const char *“ 类型的实参与 “char *“ 类型的形参不兼容错误的解决方法
- 五子棋大在线对战 java_五子棋可蓝牙对战版
- 10个超实用的小程序,你一定用得到!
- AT4565 Beginning
- Tableau数据源(一)-引入数据源
- 51单片机学习:LED闪烁实验
- 会计电算化什么是计算机硬件,会计电算化考试计算机硬件、软件.doc
- 梁漱溟:年轻人的焦虑,在于把欲望当做志气
- 电商平台关键词监控价格API接口,店铺监控API接口调用展示
- 12.05计算机导论课后总结
热门文章
- 机器人运动控制-上位机通讯
- JS调用安卓手机摄像头扫描二维码并用JS解析二维码
- Java连接MySQL mysql-connector-java-bin.jar驱动包的下载与安装
- 数论+dfs+复数除法剪枝 Secret Code hdu1111
- _说明html_css_php_mysql_前台和后台的作用_前台如何实现与后台交互,以及如何快速建站!!!...
- Dynamic Wallpaper Mac(精美的动态壁纸)支持m1
- File.createTempFile报没有文件或目录
- ExtJs根据数据源Json数据来动态创建store与columnModel
- 江苏电信1元拿iPhone 6享百兆宽带
- Caffe的深度学习训练全过程