c++ builder FastReport TClientDataSet 内存模式 动态加入数据

使用 TClientDataSet 会提示‘error loading MIDAS.DLL’

使用 TClientDataSet时，在程序发布时需要同时打包MIDAS.DLL。  如果不想发布这个dll，就需要在每个使用的Unit里都要Uses MidasLib单元!  
（MidasLib单元是Lib目录下的一个dcu文件。引用了MidasLib单元，程序运行时就不再需要MIDAS.DLL文件。）  程序编译后大小会增加如果应用程序本身就包含多个DLL或BPL文件，还是建议直接发布MIDAS.DLL好些。

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路径里就行了！

	TfrxReport *frxReport = new TfrxReport(Application);

	frxReport->LoadFromFile("D://test.fr3");

	TClientDataSet *clientDataSet = new TClientDataSet(Application);
	clientDataSet->FieldDefs->Add("ID", TFieldType::ftString, 50, true);

	clientDataSet->CreateDataSet();
	clientDataSet->Open();
	clientDataSet->Insert();
	clientDataSet->FieldByName("ID")->AsString = "Example String1";
	clientDataSet->Post();

	clientDataSet->Insert();
	clientDataSet->FieldByName("ID")->AsString = "Example String2";
	clientDataSet->Post();

	TfrxDBDataset *frxDBDataset = new TfrxDBDataset(frxReport);
	frxDBDataset->UserName = "frxDBD";
	frxDBDataset->DataSet = clientDataSet;
	 TfrxMasterData* MasterData1 = (TfrxMasterData*)frxReport->FindObject("MasterData1");
	if( MasterData1 != NULL){
		MasterData1->DataSet = frxDBDataset;
		frxReport->DataSets->Add(frxDBDataset);
	}

	frxReport->PrepareReport();

	frxReport->ShowPreparedReport();