首页 > 资讯攻略 > 软件教程 >

装载dll文件提示“LoadLibrary失败”怎么解决?

来源:game773整合 作者:773游戏

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

装载dll文件提示“LoadLibrary失败”怎么解决?

一、出现LoadLibrary失败的原因

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

  • 01 WORD WINAPI vbShiftRight(WORD nValue, WORD nBits)
  • 02 {
  • 03 return (nValue >> nBits);
  • 04 }
  • 复制代码

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

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

  • 01 EXPORTS
  • 02 vbShiftRight
  • 复制代码

    EXPORTS vbShiftRight

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

  • 01 Declare Function vbShiftRight Lib "MYDLL.DLL" (ByVal nValue As Integer,
  • 02 ByVal nBits As Integer)
  • 03 As Integer
  • 04 Sub Test()
  • 05 Dim i As Integer
  • 06 i = vbShiftRight(4, 2)
  • 07 Debug.Assert i = 1
  • 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(对象描述语言)文件。这个文件应该包含如下内容:

  • 01 module MyModule {
  • 02 [
  • 03 helpstring("Shifts the bits of an integer to the right."),
  • 04 entry("vbShiftRight")
  • 05 ]
  • 06 short _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的函数:

  • 01 typedefvoid __declspec(dllimport) StartQueryForm(TDispatchConnection,TApplication);
  • 02 StartQueryForm* query;
  • 03 char buf[256];
  • 04 if (!GetSystemDirectory(buf,256)) {
  • 05 Application->MessageBox("读取系统目录错误","错误",MB_OK+MB_ICONERROR);
  • 06 return ;
  • 07 }
  • 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";

  • 01 HINSTANCE Package = LoadLibrary(sCmd.c_str());
  • 02 if (Package)
  • 03 {
  • 04 try {
  • 05 query = (StartQueryForm *)GetProcAddress((HINSTANCE)Package, "_StartQueryForm");
  • 06 if (query) {
  • 07 TDispatchConnection* conn=(MainForm->ConnectionWay==1 ?
  • 08 (TDispatchConnection*)MainForm->dcomConnect:
  • 09 (TDispatchConnection*)MainForm->sockConnect);
  • 10 query(conn,Application);
  • 11 }
  • 12 else {
  • 13 AnsiString str="加载函数失败,失败原因:\r";
  • 14 str+=SysErrorMessage(GetLastError());
  • 15 Application->MessageBox(str.c_str(),"错误",MB_OK+MB_ICONERROR);
  • 16 }
  • 17 }
  • 18 __finally {
  • 19 FreeLibrary(Package);
  • 20 }
  • 21 }
  • 22 else
  • 23 {
  • 24 AnsiString str="加载库失败,失败原因:\r";
  • 25 str+=SysErrorMessage(GetLastError());
  • 26 Application->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失败”怎么解决?的全部内容了,文章的版权归原作者所有,如有侵犯您的权利,请及时联系本站删除,更多loadlibrary失败相关资讯,请关注收藏773游戏网。
    上一篇:win7系统用nero软件刻录音乐CD、汽车CD光盘的办法
    下一篇:最后一页

    相关文章

    最新推荐