From http://210.22.147.38/?p=60
BCB使用TClientDataSet,不带Midas.dll发布的方法
Delphi 使用TClientDataSet,不带Midas.dll发布,只要use midaslib;就可以了,但BCB没有这个文件,所以只能另想它法,偶尔在BCB2010的Source里看到了MidasLib的源码文件,里面也 很简单,一个声明(DllGetDataSnapClassObject),一个注册(RegisterMidasLib),于是,在自己的工程里 Link进了Midas.lib,并加了一个声明和注册,编译通过,再到没有安装过Midas.dll的机器上试了一下,没有问题,成功通过!
代码如下:
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路径里就行了!
#pragma link "Midas.lib"
#pragma link "Midas.lib"