From http://210.22.147.38/?p=60

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

2014年04月12日 BCB ⁄ 共 943字 ⁄ 字号 ⁄ 评论关闭
 

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"

posted on 2014-09-22 19:02  lypzxy  阅读(803)  评论(0编辑  收藏  举报