装载dll文件提示“LoadLibrary失败”怎么解决?一用户在开发程序时写了一个dll文件,但是在调用dll文件时出错了,提示“LoadLibrary failed with error126:找不到指定的模块。”,这是怎么回事呢?下面小编给大家分析出现LoadLibrary失败的原因及解决办法。
一、出现LoadLibrary失败的原因
通常LoadLibrary失败的原因大多是代码书写不规范,编写dll文件一般不是很难,但关键是在写dll的时候代码不规范,这样在调用时就有可可能出现这样那样的问题,出现LoadLibrary失败也就不足为怪了,为了保证你使用正确的调用规范,要通知编译器使用stdcall规范和/或使用在windows.h(及相关文件)中定义的常量,如WINAPI等。通常DLL的代码如下:
- 01WORD WINAPI vbShiftRight(WORD nValue, WORD nBits)
- 02{
- 03return (nValue >> nBits);
- 04}
复制代码
WORD WINAPI vbShiftRight(WORD nValue, WORD nBits)
{
return (nValue >> nBits);
}
下一步是与你在微软文档中读到的内容相反。你需要创建一个DEF文件。这是你防止输出函数名不出现乱字符的唯一方式(如_vbShiftRight@1)。DEF文件的形式如下:
- 01EXPORTS
- 02vbShiftRight
复制代码
EXPORTS
vbShiftRight
下一步是在VB中调用这个函数,使用以下声明:
- 01Declare Function vbShiftRight Lib "MYDLL.DLL" (ByVal nValue As Integer,
- 02ByVal nBits As Integer)
- 03As Integer
- 04Sub Test()
- 05Dim i As Integer
- 06i = vbShiftRight(4, 2)
- 07Debug.Assert i = 1
- 08End Sub
复制代码
Declare Function vbShiftRight Lib "MYDLL.DLL" (ByVal nValue As Integer,
ByVal nBits As Integer)
As Integer
Sub Test()
Dim i As Integer
i = vbShiftRight(4, 2)
Debug.Assert i = 1
End Sub
如果你还想要更容易的方法从VB中调用,可以创建一个类型库。为此你需要创建和编译ODL(对象描述语言)文件。这个文件应该包含如下内容:
- 01module MyModule {
- 02[
- 03helpstring("Shifts the bits of an integer to the right."),
- 04entry("vbShiftRight")
- 05]
- 06short _stdcall vbShiftRight([in] short nValue, [in] short nBits);
- 07};
复制代码
module MyModule {
[
helpstring("Shifts the bits of an integer to the right."),
entry("vbShiftRight")
]
short _stdcall vbShiftRight([in] short nValue, [in] short nBits);
};
当VB加载DLL的类型库时,函数名和参数将出现在VB的对象浏览器中。此外,如果用户不输入正确的参数类型,VB将有可能产生LoadLibrary失败错误。
还有就是你最好用正确的方法调用dll,以下是我正常调用dll的函数:
- 01typedef void __declspec(dllimport) StartQueryForm(TDispatchConnection*,TApplication*);
- 02StartQueryForm* query;
- 03char buf[256];
- 04if (!GetSystemDirectory(buf,256)) {
- 05Application->MessageBox("读取系统目录错误","错误",MB_OK+MB_ICONERROR);
- 06return ;
- 07}
- 08AnsiString sCmd=AnsiString(buf)+"\\QueryEnh.dll";
复制代码
typedef void __declspec(dllimport) StartQueryForm(TDispatchConnection*,TApplication*);
StartQueryForm* query;
char buf[256];
if (!GetSystemDirectory(buf,256)) {
Application->MessageBox("读取系统目录错误","错误",MB_OK+MB_ICONERROR);
return ;
}
AnsiString sCmd=AnsiString(buf)+"\\QueryEnh.dll";
- 01HINSTANCE Package = LoadLibrary(sCmd.c_str());
- 02if (Package)
- 03{
- 04try {
- 05query = (StartQueryForm *)GetProcAddress((HINSTANCE)Package, "_StartQueryForm");
- 06if (query) {
- 07TDispatchConnection* conn=(MainForm->ConnectionWay==1 ?
- 08(TDispatchConnection*)MainForm->dcomConnect:
- 09(TDispatchConnection*)MainForm->sockConnect);
- 10query(conn,Application);
- 11}
- 12else {
- 13AnsiString str="加载函数失败,失败原因:\n\r";
- 14str+=SysErrorMessage(GetLastError());
- 15Application->MessageBox(str.c_str(),"错误",MB_OK+MB_ICONERROR);
- 16}
- 17}
- 18__finally {
- 19FreeLibrary(Package);
- 20}
- 21}
- 22else
- 23{
- 24AnsiString str="加载库失败,失败原因:\n\r";
- 25str+=SysErrorMessage(GetLastError());
- 26Application->MessageBox(str.c_str(),"´íÎó",MB_OK+MB_ICONERROR);
复制代码
HINSTANCE Package = LoadLibrary(sCmd.c_str());
if (Package)
{
try {
query = (StartQueryForm *)GetProcAddress((HINSTANCE)Package, "_StartQueryForm");
if (query) {
TDispatchConnection* conn=(MainForm->ConnectionWay==1 ?
(TDispatchConnection*)MainForm->dcomConnect:
(TDispatchConnection*)MainForm->sockConnect);
query(conn,Application);
}
else {
AnsiString str="加载函数失败,失败原因:\n\r";
str+=SysErrorMessage(GetLastError());
Application->MessageBox(str.c_str(),"错误",MB_OK+MB_ICONERROR);
}
}
__finally {
FreeLibrary(Package);
}
}
else
{
AnsiString str="加载库失败,失败原因:\n\r";
str+=SysErrorMessage(GetLastError());
Application->MessageBox(str.c_str(),"´íÎó",MB_OK+MB_ICONERROR);
二、出现LoadLibrary失败解决办法
方式一:采用LoadLibraryEx
若DLL不在调用方的同一目录下,可以用LoadLibrary(L“DLL绝对路径”)加载。但若调用的DLL内部又调用另外一个DLL,此时调用仍会失败。
解决办法是用LoadLibraryEx:
LoadLibraryEx("DLL绝对路径", NULL, LOAD_WITH_ALTERED_SEARCH_PATH);
通过指定LOAD_WITH_ALTERED_SEARCH_PATH,让系统DLL搜索顺序从DLL所在目录开始。
方式二:采用SetCurrentDir
跨目录调用dll,你应该这样
1、用GetCurrentDir保存当前的工作目录
2、用SetCurrentDir将当前的工作目录,设置为你的DLL所在的路径,需要使用绝对路径
3、用LoadLibrary你的DLL
4、使用SetCurrentDir恢复到原来的工作路径
以上便是装载dll文件提示“LoadLibrary失败”的原因及解决办法,有遇到此错误提示的伙伴,可以参考上文解决。
发表评论
共0条
评论就这些咯,让大家也知道你的独特见解
立即评论以上留言仅代表用户个人观点,不代表系统之家立场