vb程序调用VC编译的DLL出错问题?

Question

各位老师大家好我在VC6下编译了一个动态链接库,在VB6下调用,但总是在调用时出现错误,错误提示为"找不到入口参数 Drive_Open in DriveCtr.dll",请教各位老师帮忙

Answer 1

在你写的函数前加__stdcall就可以了，再用DEF导出

Answer 2

2.4 VB 调用32 位动态库方法
16 位DLL 调用方法与32 位DLL 调用方法类同。
语法：
[Public | Private] Declare Fun Function name Lib "libname" [Alias "aliasname"]
ction [([arglist])] [As type]
Declare 语句的语法包含下面部分：
Public 可选的。用于声明对所有模块中的所有其它过程都可以使用的函数。
Private 可选的。用于声明只能在包含该声明的模块中使用的函数。
name 必需的。任何合法的函数名。动态链接库的入口处（entry points）区分大小写。
libname 必需的。包含所声明的函数动态链接库名或代码资源名。
Alias 可选的。表示将被调用的函数在动态链接库(DLL) 中还有另外的名称。当外部函数名与某个函数重名时，就可以使用这个参数。当动态链接库的函数与同一范围内的公用变量、常数或任何其它过程的名称相同时，也可以使用Alias。如果该动态链接库函数中的某个字符不符合动态链接库的命名约定时，也可以使用Alias。
aliasname 可选的。动态链接库。如果首字符不是数字符号(#)，则aliasname 是动态链接库中该函数的入口处的名称。如果首字符是(#)，则随后的字符必须指定该函数的入口处的顺序号。
arglist 可选的。代表调用该函数时需要传递的参数的变量表。
type可选的。Function 返回值的数据类型；可以是Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal（目前尚不支持）、Date、String（只支持变长）或Variant，用户定义类型，或对象类型。
arglist 参数的语法以及语法各个部分如下：
[Optional] [ByVal | ByRe ByRef] [ParamArray] varname[( )] [As type] 部分描述：
Optional可选的。表示参数不是必需的。如果使用该选项，则arglist 中的后续参数都必需是可选的，而且必须都使用Optional 关键字声明。如果使用了ParamArray，则任何参数都不能使用Optional。
ByVal 可选的。表示该参数按值传递。
ByRef 表示该参数按地址传递。
ParamArray 可选的。只用于arglist 的最后一个参数，表示最后的参数是一个
Variant 元素的Optional 的数组。使用ParamArray 关键字可以提供任意数目的参数。
ParamArray 关键字不能与ByVal、ByRef 或Optional 一起使用。
varname 必需的。代表传给该函数的参数的变量名；遵循标准的变量命名约定。
( ) 对数组变量是必需的。指明varname 是一个数组。
type可选的。传递给函数的参数的数据类型；可以是除Decimal 以外的任何类型。
说明：
Function 的数据类型决定其返回值的数据类型。可以在arglist 之后使用As 子句来指定函数返回值的数据类型。在arglist 中，可以使用As 子句来指定任何传给该函数的参数的数据类型。不单可以指定为任何标准数据类型，还可以在arglist 中指定As Any 来禁止类型检查，从而允许将任意数据类型传递给该函数。空圆括号表示该Function 没有参数，且Visual Basic 应确保不会传递任何参数。
注意：(1) 当所调用的外部函数需要一个值为0 的字符串时，就要使用vbNullString 常数。该常数与零长度字符串("") 是不相同的。
(2) VB5 或VB6 调用32 位动态库，对于ASCII 码值大于128 的读写操作，请参考Examples 中16 进制方式读写。

Answer 3

//Dll Moudle header file: tmp.h #ifdef TMP_EXPORTS
#define TMP_API  __declspec(dllexport)
#else
#define TMP_API  __declspec(dllimport)
#endif//export function 
TMP_API int __stdcall Add(int nLeft,int nRight);//////////////////////////////////////////////
//tmp.dll : tmp.cpp
#include "Windows.h"
#include "tmp.h"
BOOL APIENTRY DllMain( HANDLE hModule, 
                       DWORD  ul_reason_for_call, 
                       LPVOID lpReserved
 )
{
    switch (ul_reason_for_call)
{
case DLL_PROCESS_ATTACH:
case DLL_THREAD_ATTACH:
case DLL_THREAD_DETACH:
case DLL_PROCESS_DETACH:
break;
    }
    return TRUE;
}// This is an example of an exported variable// This is an example of an exported function.TMP_API int __stdcall Add(int nLeft ,int nRight)
{
    return (nLeft + nRgiht);
}//////////////////////////////////////////////
//tmp.defLIBRARY  tmp
EXOPRTS 
   Add
////////////////////////////End of file///////////////VB 只能使用__stdcall(WINAPI)协议的DLL//tmp.bas
Delcare Function Add Lib "tmp"(Byval nLeft as  Integer ,ByVal nRight as Integer)As Integer

Answer 4

简单，只要你认真看MSDN。
具体方法如下：
   vc下：
   examples:
    int  __stdcall YOUFUN(int x,int y)
{ 
  return x+y;
}
  DEF文件应有如下格式：
   EXPORTS：
       YOUFUN @PRIVATE 1
VB 调用：
public DECLARE FUNCTION matchAdd lib "yourlib"(byval a as integer,byval b as integer)alias "@1" as integer
在MFCDLL中，后面的@PRIVATE X我认为比较重要，如果是VB程序要调用的话。
没有这个X数字说明，VB调用总有问题，本人愚笨，不知各位还有什么好方法。

Answer 5

有个问题就是：
如果你的DLL是编译成除错版而不是发行版的话就不能正确调用的。
这只是提个醒~~