VB.net调用VC DLL（二）

xiaokcehui2024-06-20 15:07

参考文献5，讲了在C程序中直接调用DLL和lib的函数方法，不是通过编译器连接方式

也讲了在非C程序中直接调用DLL和lib的函数方法。

实操了一下，建了win32dll项目

新建.h文件和.cpp文件

.h文件中加：

void __stdcall funcA(double* dB, double* dL);

.cpp文件中加：

void __stdcall funcA(double* dB, double* dL)

{

}

新建.def文件

LIBRARY

EXPORTS

funcA @16

funcA后面有个空格，@后面是参数的字节数，8+8=16

编译生成了dll，放在system32下，

在VBA7下调用，

Private Declare PtrSafe Sub funcA Lib "libA.dll" (ByRef dB As Double, ByRef dL As Double)

调用函数，找不到dll，真是太奇怪了。

VBA给出的提示如下：

加载 DLL 时的错误（错误 48）
动态链接库 (DLL) 就是在 Declare 语句的 Lib 子句中所指定的库。此错误有以下的原因和解决方法：

此文件并非可执行的 DLL。
如果此文件是正文源文件，它必须编译并链接成可执行的 DLL 形式。

此文件并非 Microsoft Windows DLL。
取得此文件相应的 Microsoft Windows DLL 版。

此文件是早期的 Microsoft Windows DLL，而且和 Microsoft Windows 保护方式不兼容。
取得更新的版本。

此 DLL 引用到其他不存在的 DLL。
取得此被引用的 DLL 并让它能提供其他 DLL 使用。

此 DLL 或所引用的 DLL 并不在所指定的目录中。
移动 DLL 到所引用的目录或将 DLL 所在的目录添加到路径中。

详细信息，可选取有问题的项目，并按下 F1 （在Windows中）或HELP（在Macintosh中）键。

猜测可能是dll不是64位，重新生成64的dll，替换之前的32位 dll

函数成功调用