在ActiveX控件中如何动态调用DLL函数之准一体化方法

王朝vc·作者佚名  2006-01-17
窄屏简体版  字體: |||超大  

在ActiveX控件中如何动态调用DLL函数之"准"一体化方法

作者:马云冬(xacn)

下载本文配套源代码

从徐兄(徐景周)那里得到一段《如何直接运行一个资源中的程序》的小技巧,就想到把以前写的《在ActiveX控件中如何动态调用DLL函数》功能修改一下,由于前些时间有点事。所以一直到现在才写出来和大家讨论。

基本思路:

1、把DLL做为资源加入到ActiveX中。

2、在网页加载ActiveX时,先提取出资源,临时存在系统目录中(可能还有更好的方法,但我现在还没有找到)。

3、在用动态调用动态库的方法加载临时生成的动态库。

4、调用动态库中的函数。

5、当退出网页时,删除临时动态库。

其思路简单,但不知这样方法的用处大不大。因我不是做WEB方面开发的。

现在对关键地方进行少量说明:

一、提取资源内容生成临时文件:

HGLOBAL hRes;

HRSRC hResInfo;

//寻找EXE资源名

hResInfo = ::FindResource(g_hInstance,(LPCSTR)IDR_DLL1,"DLL");

hRes = ::LoadResource(g_hInstance,hResInfo ); // Load it

DWORD dFileLength = ::SizeofResource(g_hInstance, hResInfo );

//创建DLL文件

char pPath[MAX_PATH];

GetSystemDirectory(pPath, MAX_PATH);

strcpy(g_pFile, pPath);

strcat(g_pFile, "\\ExpDll1.Dll");

HANDLE hFile = CreateFile(g_pFile, GENERIC_WRITE | GENERIC_READ,

FILE_SHARE_READ | FILE_SHARE_WRITE, NULL, CREATE_NEW,

FILE_ATTRIBUTE_NORMAL,NULL);

DWORD dwNumberOfBytesWritten = 0;

if(hFile 0)

WriteFile(hFile, (LPCVOID)hRes, dFileLength, &dwNumberOfBytesWritten, NULL);

else

MessageBox("加载Res不成功","提示信息",MB_OK);

CloseHandle(hFile);

二、导入临时生成的DLL函数:

hDll = ::LoadLibrary(g_pFile);

if(hDll != NULL)

fun = (void(__stdcall *)(void))(GetProcAddress(hDll, "ExpShowMsg"));

else

MessageBox("加载DLL不成功","提示信息",MB_OK);

三、释放DLL并删除临时DLL文件:

//释放DLL

::FreeLibrary(hDll);

//删除DLL文件

::DeleteFile(g_pFile);

就这么容易。如果还有不清的地方,老兄你就看源程序吧!如果老兄有方法去掉那个“准”字,请给我说一下方法。在下在这里先谢了。

注:源程序中一个目录是Active源程序,另一个是DLL源程序。

要注册控件后方可运行. 环境:VC6 + Win2000+FrontPage2000

用regsvr32 ExpATL1.dll注册后才能运行

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航