使用方法与平常的使用办法一样,不过要注意几个地方:
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 &