2002-11-3 16:59:00 PCVC.NET 贾旭滨(译) 阅读次数: 4944 |
//原著:Zoran M.Todorovic //译者:重庆大学光电工程学院 贾旭滨 //欢迎大家批评指教,谢谢! 当你的应用程序要连接到一个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()/n")); 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()/n")); 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()/n")); 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")); ... ... 这样就可以了。其他还没有的地方自己加进去就行了。 |
一个装载DLL的类
最新推荐文章于 2023-10-05 10:31:16 发布