我在模块中有以下声明: Private Declare Function gzopen Lib "ZLIB.DLL" (ByVal filePath As String, ByVal mode As String) As Long 函数中的以下代码行失败,出现“找不到文件:ZLIB.DLL”错误: lGZFileHandle = gzop
Private Declare Function gzopen Lib "ZLIB.DLL" (ByVal filePath As String, ByVal mode As String) As Long
函数中的以下代码行失败,出现“找不到文件:ZLIB.DLL”错误:
lGZFileHandle = gzopen(sPath, "rb")
我知道ZLIB不需要注册.我的问题是,ZLIB.DLL需要在哪里才能使我的代码工作?我也知道这段代码正在另一台机器上工作.目前我在与应用程序exe相同的文件夹中有ZLIB.DLL.
UPDATE
令我宽慰的是,代码在编译时确实有效.但是在IDE中运行时它不起作用(它在不同的机器上运行).我仍然在应用程序文件夹中有ZLIB.DLL.
这意味着必须检查应用程序路径以加载DLL.
为了解决这个问题,我尝试过:
Private Declare Function SetDllDirectory Lib "Kernel32" Alias "SetDllDirectoryA" (ByVal path As String) As Long
然后在功能中:
SetDllDirectory App.path
这似乎允许加载DLL,但我然后得到’错误的DLL调用约定’错误.情节变粗.
解决了
答案似乎在这里:http://www.zlib.net/DLL_FAQ.txt.我想这是RTFM的一个案例.
因此,在IDE中,STD_CALL约定生效,但一旦编译,C样式调用约定就足够了.它仍然无法解释为什么它适用于IDE中的其他计算机.哼哼.
谢谢大家指出我正确的方向.
VB6偏离了Ken建议的搜索协议(这个 link是快速参考).通常的问题是.exe路径(列表中的搜索位置#1)不是VB程序的路径,而是VB6 IDE.因此,将DLL放在VB程序的位置并不好 – 除非您将VB6快捷方式的“Start In”位置更改为指向该位置.
或者,您可以将DLL放在我的链接中指定的其他位置之一.