BCB使用TClientDataSet,不带Midas.dll发布的方法

来源:互联网 发布:mac玩梦幻西游快捷键 编辑:程序博客网 时间:2024/05/17 04:10

Note:经过本人在 C++ Builder XE2下实测,CPP中不包含vcl.h的情况下,#pragma link "Midas.lib" 时,debug下无法编译通过,Release无问题。

Delphi使用TClientDataSet,不带Midas.dll发布,只要use midaslib;就可以了,但BCB没有这个文件,所以只能另想它法,偶尔在BCB2010的Source里看到了MidasLib的源码文件,里面也很简单,一个声明(DllGetDataSnapClassObject),一个注册(RegisterMidasLib),于是,在自己的工程里Link进了Midas.lib,并加了一个声明和注册,编译通过,再到没有安装过Midas.dll的机器上试了一下,没有问题,成功通过!
代码如下:

#include <DSIntf.hpp> //---使用 RegisterMidasLib 需要

#pragma link "Midas.lib"

#pragma link "dsnap.lib"

extern "C" __stdcall DllGetDataSnapClassObject (REFCLSID rclsid, REFIID riid, void** ppv);
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
RegisterMidasLib(DllGetDataSnapClassObject);
}
//---------------------------------------------------------------------------

如果是EXE+多个BPL发布怎么办呢,还能在每个BPL里都这么搞一下?其实不用的,只要建一个共用的BPL(如果已经有的,不用新建),在这个BPL里Link进Midas.lib,再在共用BPL的H里加上声明DllGetDataSnapClassObject,在其他的BPL、EXE里加上注册RegisterMidasLib就行了。

ps:如果动态建TClientDataSet的,如果报错,要Link上dsnap.lib,因为这个控件在这个Lib里(非动态建TClientDataSet时,系统会自动Link这个Lib的);
如果报不能打开FileCtrl.obj,则可以新建个工程,把BCB的Source里的FileCtrl.pas加入工程,编译,就会自成FileCtrl.obj,把这些文件Copy到Lib路径里就行了!

0 0
原创粉丝点击