一个装载DLL的类

当你的应用程序要连接到一个DLL的时候，你可以用静态连接或者是动态连接。静态连接比较容易，但是如果你的DLL文件不存在的话，你的应用程序就不能运行了。而动态连接比较难，但却提供了更好的灵活性，如果DLL文件没有找到的话，你可以显示一个对话框来说明要用的DLL文件不存在，但是你的应用程序却由于要使用丢失的DLL文件，而使得有些功能不能用了，但这不会终止你的应用程序的。下面这个类就提供了一个动态加载DLL文件和使用的方法。以下是步骤：

第1步：

类TBaseModule是一个基类。它的子类必须与DLL协调。代码如下：

#define BM_OK 0
#define BM_DLLNOTFOUND 1
#define BM_INVALIDEXPORT 2
class TBaseModule {
protected:
int ErrorCode; // One of BM_xxx defines
int FunctionErrorCode;
CString DLLName;
HINSTANCE DLLHandle;
public:
TBaseModule(CString name);
virtual ~TBaseModule();
virtual BOOL Create(void);
virtual void Destroy(void);
int GetErrorCode(void) { return ErrorCode; }
int GetFunctionErrorCode(void) { return FunctionErrorCode; }
CString& GetDLLName(void) { return DLLName; }
};

第2步：

以下是类定义的一部分。代码如下：

TBaseModule::TBaseModule(CString name)
{
DLLName = name;
DLLHandle = NULL;
ErrorCode = BM_OK;
FunctionErrorCode = BM_OK;
}
TBaseModule::~TBaseModule()
{
Destroy();
}
BOOL TBaseModule::Create(void)
{
DLLHandle = ::LoadLibrary(DLLName);
if (DLLHandle == NULL) {
ErrorCode = BM_DLLNOTFOUND;
return FALSE;
}
return TRUE;
}
void TBaseModule::Destroy(void)
{
if (DLLHandle) {
::FreeLibrary(DLLHandle);
DLLHandle = NULL;
}
}

第3步：

现在，我们可以假设我们要动态的加载一个DLL，并且DLL会输出一些函数，DLL文件的名字是TEST.DLL。
(DLL的调用有个标准的规定)：

void ExportedFunction1(int code, const char *str);
WORD ExportedFunction2(DWORD *data);
char *ExportedFunction3(int code);

第4步：

你必须给每个出口函数定义一个类型，在建一个以TBaseModule为基类的类TTestModule。代码如下：

typedef void (__stdcall *FExportedFunction1)(int code, const char *str);
typedef WORD (__stdcall *FExportedFunction2)(DWORD data);
typedef char * (__stdcall FExportedFunction3)(int code);
class TTestModule : public TBaseModule {
private:
FExportedFunction1 FunctionExportedFunction1;
FExportedFunction2 FunctionExportedFunction2;
FExportedFunction3 FunctionExportedFunction3;
public:
TTestModule(CString dllname);
virtual BOOL Create(void);
virtual void Destroy(void);
void Function1(int code, const char *str);
WORD Function2(DWORD data);
char *Function3(int code);
};

第5步：

定义类。代码如下：

TTestModule::TTestModule(CString dllname)
:TBaseModule(dllname)
{
FunctionExportedFunction1 = NULL;
FunctionExportedFunction2 = NULL;
FunctionExportedFunction3 = NULL;
}
BOOL TTestModule::Create(void)
{
if (TBaseModule::Create()) {
FunctionExportedFunction1 = (FExportedFunction1)::GetProcAddress(DLLHandle,_T"ExportedFunction1");
FunctionExportedFunction2 = (FExportedFunction2)::GetProcAddress(DLLHandle,_T"ExportedFunction2");
FunctionExportedFunction3 = (FExportedFunction3)::GetProcAddress(DLLHandle,_T"ExportedFunction3");
if (FunctionExportedFunction1 && FunctionExportedFunction2 && FunctionExportedFunction3)
return TRUE;
ErrorCode = BM_INVALID_EXPORT;
return FALSE;
}
return FALSE;
}
void TTestModule::Destroy(void)
{
TBaseModule::Destroy();
FunctionExportedFunction1 = NULL;
FunctionExportedFunction2 = NULL;
FunctionExportedFunction3 = NULL;
}
void TTestModule::Function1(int code, const char *str)
{
if (DLLHandle == NULL)
TRACE0(_T("TEST.DLL is not loaded - Use Create() "));
FunctionErrorCode = BM_OK;
if (FunctionExportedFunction1)
FunctionExportedFunction1(code,str);
else
FunctionErrorCode = BM_INVALIDEXPORT;
}
WORD TTestModule::Function2(DWORD data)
{
if (DLLHandle == NULL)
TRACE0(_T("TEST.DLL is not loaded - Use Create() "));
FunctionErrorCode = BM_OK;
if (FunctionExportedFunction2)
return FunctionExportedFunction1(data);
FunctionErrorCode = BM_INVALIDEXPORT;
return 0;
}
char *TTestModule::Function3(int code)
{
if (DLLHandle == NULL)
TRACE0(_T("TEST.DLL is not loaded - Use Create() "));
FunctionErrorCode = BM_OK;
if (FunctionExportedFunction3)
return FunctionExportedFunction3(code);
FunctionErrorCode = BM_INVALIDEXPORT;
return NULL;
}

第6步：

接下来你要做的就是声明它。(有几种方法)

1.作为CWinApp的一个数据成员。
2.作为函数内的一个局部对象。
3.作为一个全局变量。
4.作为其它类的数据成员。

不过你必须调用Create()函数，并且返回一个BOOL值，如果是FALSE，你应该检查错误代码，然后决定放弃使用DLL还是使用它。

TTestModule testDll(_T("TEST.DLL"));
... ...
BOOL retcode = testDll.Create();
if (retcode == FALSE) {
if (testDll.GetErrorCode() == BM_INVALIDEXPORT)
::AfxMessageBox(_T("TEST.DLL does not contain all functions"));
else if (testDll.GetErrorCode() == BM_DLLNOTFOUND)
::AfxMessageBox(_T("TEST.DLL is not found"));
}
... ...
testDll.Function1(0,NULL);
if (testDll.GetFunctionErrorCode() == BM_INVALIDEXPORT)
::AfxMessageBox(_T("ExportedFunction1 does not exist in a TEST.DLL"));
... ...

这样就可以了。其他还没有的地方自己加进去就行了。