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

办法 （山东新华电脑学院 整理供稿） 有一网友在程序开发时写了一个dll文件，然后调用时出现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(\"读取系统目录错误\错误\ 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(),\"错误\ } } __finally { FreeLibrary(Package); } } else { AnsiString str＝\"加载库失败，失败原因：\\n\\r\"; str+=SysErrorMessage(GetLastError()); Application->MessageBox(str.c_str(),\"´íÎó\ 二、出现LoadLibrary失败解决办法 方式一 采用LoadLibraryEx 若DLL不在调用方的同一目录下，可以用LoadLibrary(L\"DLL绝对路径\")加载。但若调用的DLL内部又调用另外一个DLL，此时调用仍会失败。解决办法是用LoadLibraryEx： LoadLibraryEx(\"DLL绝对路径\ 通过指定LOAD_WITH_ALTERED_SEARCH_PATH，让系统DLL搜索顺序从DLL所在目录开始。 方式二 采用SetCurrentDir 跨目录调用dll，你应该这样 1 用GetCurrentDir保存当前的工作目录