VB6 API声明路径

Question

我在模块中有以下声明:

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中的其他计算机.哼哼.

谢谢大家指出我正确的方向.

Answer 1

VB6偏离了Ken建议的搜索协议(这个链接是快速参考).

通常的问题是.exe路径(列表中的搜索位置#1)不是 VB程序的路径,而是VB6 IDE.因此,将DLL放在VB程序的位置并不好 - 除非您将VB6快捷方式的"Start In"位置更改为指向该位置.

或者,您可以将DLL放在我的链接中指定的其他位置之一.