LoadLibrary失败，找不到指定模块的解决办法

　　有用户在编写调用dll文件时出错，收到提示“LoadLibrary failed witherror126：找不到指定的模块。”这是怎么回事？为什么会出现这种情况呢？下面就来看看详细的分析及解决办法。

　　一、出现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文件的形式如下：

　　01EXPORTS

　　02vbShiftRight

　　复制代码

　　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."),

　　04entry("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)) {

　　05Application->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);

　　10query(conn,Application);

　　11}

　　12 else {

　　13 AnsiString str="加载函数失败，失败原因：\r";

　　14str+=SysErrorMessage(GetLastError());

　　15Application->MessageBox(str.c_str(),"错误",MB_OK+MB_ICONERROR);

　　16}

　　17}

　　18 __finally {

　　19FreeLibrary(Package);

　　20}

　　21}

　　22else

　　23{

　　24 AnsiString str="加载库失败，失败原因：\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="加载函数失败，失败原因：\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恢复到原来的工作路径。