如何在C++ Builder的DLL中使用数据库控件

使用方法与平常的使用办法一样，不过要注意几个地方：

1、TSession及TDatabase要加上或者是用new生成实例，平时可能不会加TSession，但在DLL中一定要这样做，不然在启动或者退出时会出错。

2、在导出DLL的函数中，一定生成DataModule的实例，不然连接数据库时会有问题的。

//---------------------------------------------------------------------------

#include
#include
#include "Unit2.h"
#include "Unit4.h"

#pragma hdrstop

#pragma argsused
BOOL WINAPI DllMain(HINSTANCE hinstDLL, DWORD fwdreason, LPVOID lpvReserved)
{
? return 1;
}
//---------------------------------------------------------------------------

extern "C"? __declspec(dllexport) void ShowForm();

void ShowForm()
{
???? TForm2 *aTForm2 = new TForm2(NULL);
???? TDataModule4 *aTDataModule4 = new TDataModule4(aTForm2);
???? aTForm2->ShowModal();
???? delete aTDataModule4;if(aTDataModule4) aTDataModule4 = NULL;
???? delete aTForm2; if (aTForm2) aTForm2 = NULL;
}

调用

void __fastcall TForm3::Button1Click(TObject *Sender)
{
? HINSTANCE Dll = LoadLibrary(".//Project1.dll");

???? if (Dll)
???? {
???????? LoadFunction = (ShowType *)GetProcAddress(Dll, "_ShowForm");
???????? if (LoadFunction)
???????????? LoadFunction();
???????? else
???????????? ShowMessage(SysErrorMessage(GetLastError()));
???????? FreeLibrary(Dll);
???? }

???? else
???? {
???????? ShowMessage(SysErrorMessage(GetLastError()));
???????? ShowMessage("Unable to load the Dll");
???? }

}
//---------------------------------------------------------------------------

不能上传zip文件，没有办法将整个工程传上。

USEFORM("Unit2.cpp", Form2);
USEFORM("Unit4.cpp", DataModule4); /* TDataModule: File Type */
//---------------------------------------------------------------------------

#include
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("Unit3.cpp", Form3);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
? try
? {
???? Application->Initialize();
???? Application->CreateForm(__classid(TForm3), &Form3);
???? Application->Run();
? }
? catch (Exception &exception)
? {
???? Application->ShowException(&exception);
? }
? catch (...)
? {
???? try
???? {
?????? throw Exception("");
???? }
???? catch (Exception &exception)
???? {
?????? Application->ShowException(&exception);
???? }
? }
? return 0;
}
//---------------------------------------------------------------------------
#------------------------------------------------------------------------------
VERSION &