裝載dll文件提示“LoadLibrary失敗”怎么解決？

装载dll文件提示“LoadLibrary失败”怎么解决？一用户在开发程序时写了一个dll文件，但是在调用dll文件时出错了，提示“LoadLibrary failed witherror126：找不到指定的模块。”，这是怎么回事呢？下面小编给大家分析出现LoadLibrary失败的原因及解决办法。

一、出现LoadLibrary失败的原因

通常LoadLibrary失败的原因大多是代码书写不规范，编写dll文件一般不是很难，但关键是在写dll的时候代码不规范，这样在调用时就有可可能出现这样那样的问题，出现LoadLibrary失败也就不足为怪了，为了保证你使用正确的调用规范，要通知编译器使用stdcall规范和/或使用在windows.h（及相关文件）中定义的常量，如WINAPI等。通常DLL的代码如下：

1. 01 WORD WINAPI vbShiftRight(WORD nValue, WORD nBits)
2. 02{
3. 03 return (nValue >> nBits);
4. 04}

复制代码

WORD WINAPI vbShiftRight(WORD nValue, WORD nBits) { return (nValue >> nBits);}

下一步是与你在微软文档中读到的内容相反。你需要创建一个DEF文件。这是你防止输出函数名不出现乱字符的唯一方式（如_vbShiftRight@1）。DEF文件的形式如下：

1. 01EXPORTS
2. 02vbShiftRight

复制代码

EXPORTS vbShiftRight

下一步是在VB中调用这个函数，使用以下声明：

1. 01 Declare Function vbShiftRight Lib "MYDLL.DLL" (ByVal nValue As Integer,
2. 02 ByVal nBits As Integer)
3. 03 As Integer
4. 04 Sub Test()
5. 05 Dim i As Integer
6. 06 i = vbShiftRight(4, 2)
7. 07 Debug.Assert i = 1
8. 08 End Sub

复制代码

Declare Function vbShiftRight Lib "MYDLL.DLL" (ByVal nValue As Integer, ByValnBits As Integer) As Integer Sub Test() Dim i As Integer i = vbShiftRight(4,2) Debug.Assert i = 1 End Sub

如果你还想要更容易的方法从VB中调用，可以创建一个类型库。为此你需要创建和编译ODL（对象描述语言）文件。这个文件应该包含如下内容：

1. 01 module MyModule {
2. 02[
3. 03 helpstring("Shifts the bits of an integer to the right."),
4. 04entry("vbShiftRight")
5. 05]
6. 06 short _stdcall vbShiftRight([in] short nValue, [in] short nBits);
7. 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的函数：

1. 01 typedefvoid __declspec(dllimport) StartQueryForm(TDispatchConnection,TApplication);
2. 02 StartQueryForm* query;
3. 03 char buf[256];
4. 04 if (!GetSystemDirectory(buf,256)) {
5. 05Application->MessageBox("读取系统目录错误","错误",MB_OK+MB_ICONERROR);
6. 06 return ;
7. 07}
8. 08 AnsiString sCmd=AnsiString(buf)+"\\QueryEnh.dll";

复制代码

typedefvoid __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";

1. 01 HINSTANCE Package = LoadLibrary(sCmd.c_str());
2. 02 if (Package)
3. 03{
4. 04 try {
5. 05 query = (StartQueryForm *)GetProcAddress((HINSTANCE)Package, "_StartQueryForm");
6. 06 if (query) {
7. 07 TDispatchConnection* conn=(MainForm->ConnectionWay==1 ?
8. 08(TDispatchConnection*)MainForm->dcomConnect:
9. 09(TDispatchConnection*)MainForm->sockConnect);
10. 10query(conn,Application);
11. 11}
12. 12 else {
13. 13 AnsiString str="加载函数失败，失败原因：\r";
14. 14str+=SysErrorMessage(GetLastError());
15. 15Application->MessageBox(str.c_str(),"错误",MB_OK+MB_ICONERROR);
16. 16}
17. 17}
18. 18 __finally {
19. 19FreeLibrary(Package);
20. 20}
21. 21}
22. 22else
23. 23{
24. 24 AnsiString str＝"加载库失败，失败原因：\r";
25. 25str+=SysErrorMessage(GetLastError());
26. 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="加载函数失败，失败原因：\r"; str+=SysErrorMessage(GetLastError());Application->MessageBox(str.c_str(),"错误",MB_OK+MB_ICONERROR); } } __finally {FreeLibrary(Package); } } else { AnsiString str＝"加载库失败，失败原因：\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失败”的原因及解决办法，有遇到此错误提示的伙伴，可以参考上文解决。