当前位置:软件学堂 > 资讯首页 > 网络编程 > 编程其他 > 装载dll文件时出现LoadLibrary失败的原因及解决办法

装载dll文件时出现LoadLibrary失败的原因及解决办法

2014/11/27 13:47:58作者:佚名来源:网络

移动端

有一网友在程序开发时写了一个dll文件,然后调用时出现LoadLibrary失败的情况,本小编通过网上搜集了一些有关LoadLibrary失败的原因及解决方法,希望对有需要的朋友有所帮助。
LoadLibrary失败
一、出现LoadLibrary失败的原因
通常LoadLibrary失败的原因大多是代码书写不规范,编写dll文件一般不是很难,但关键是在写dll的时候代码不规范,这样在调用时就有可可能出现这样那样的问题,出现LoadLibrary失败也就不足为怪了,为了保证你使用正确的调用规范,要通知编译器使用stdcall规范和/或使用在windows.h(及相关文件)中定义的常量,如WINAPI等。通常DLL的代码如下:  

WORD WINAPI vbShiftRight(WORD nValue, WORD nBits)
{
return (nValue >> nBits);
}
 
下一步是与你在微软文档中读到的内容相反。你需要创建一个DEF文件。这是你防止输出函数名不出现乱字符的唯一方式(如_vbShiftRight@1)。DEF文件的形式如下:

EXPORTS
vbShiftRight

下一步是在VB中调用这个函数,使用以下声明:  
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(对象描述语言)文件。这个文件应该包含如下内容:  
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的函数:
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";


  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失败  解决办法