本文共 4450 字,大约阅读时间需要 14 分钟。
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 2class 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"));... ... 这样就可以了。其他还没有的地方自己加进去就行了。 |
转载地址:http://nedqi.baihongyu.com/