在ActiveX控件中如何动态调用DLL函数

核心提示： void CPosCtrl::InitDll(){DLLInst=LoadLibrary("police.dll");if(DLLInst!=NULL){Init_comm=(HANDLE(__stdcall *)(LPSTR))GetProcAddress(DLLIn

void CPosCtrl::InitDll()
{
DLLInst=LoadLibrary("police.dll");
if(DLLInst!=NULL)
{
Init_comm=(HANDLE(__stdcall *)(LPSTR))GetProcAddress(DLLInst,"Init_comm");
Exit=(BYTE(__stdcall *)(HANDLE))(GetProcAddress(DLLInst,"Exit"));
Protocol=(BYTE(__stdcall *)(HANDLE,BYTE,BYTE,BYTE *_dt,BYTE *prlen,BYTE *prdt))(GetProcAddress(DLLInst,"Protocol"));
Pipe_control=(BYTE(__stdcall *)(HANDLE,BYTE))(GetProcAddress(DLLInst,"Pipe_control"));
Dev_escape=(BYTE(__stdcall *)(HANDLE))(GetProcAddress(DLLInst,"Dev_escape"));
}
else
{
::MessageBox(NULL,"加载动态库失败！", "提示信息", MB_OK | MB_ICONINFORMATION);
exit(0);
}
}


//----------------------------------------------------------------------------//
// 功能：释放动态库
// 输入/输出参数：无
// 版本：1.0
// 修改：
//----------------------------------------------------------------------------//

void CPosCtrl::ExitDll()
{
if(DLLInst!=NULL)
FreeLibrary(DLLInst);
}


//----------------------------------------------------------------------------//
// 功能：控件接口方法，对外提供关闭串口，释放动态库。
// 输入/输出参数：无 // 版本：1.0
// 修改：
//----------------------------------------------------------------------------//