VB的DLL调用怎么“DLL调用约定错误”“编译错误：用户类型不能用”?

[baiyongming]

"PrinterUsb.dll"里的数据类型及函数如下：

const int DEVNUM = 10; 
const int PATHLEN = 200; 

typedef struct 
{ 
char strDevPath[PATHLEN]; 
}DEVPATH; 

typedef struct 
{ 
DEVPATH DevPath[DEVNUM]; 
int DevNum; 
}DEVINFO; 

int  GetDevicePath(DEVINFO&); 
bool Open(int PortNum); 
bool Write(char *pBuf,DWORD nNumberOfBytesToWrite,DWORD &NumberOfBytesWritten); 
void Close(); 

我在USB里调用DLL，作如下声明：

Public Const DevNum = 10 
Public Const PATHLEN = 200 
Public Type DEVPATH 
    strDevPath(0 To PATHLEN) As String 
End Type 

Public Type DEVINFO 
    iDevPath(0 To DevNum) As DEVPATH 
    DevNum As Integer 
End Type 

Public Declare Function GetDevicePath _ 
    Lib "PrinterUsb.dll" _ 
    (ByRef sDevInfo As DEVINFO) _ 
As Long 

Public Declare Function OpenUSB _ 
    Lib "PrinterUsb.dll" Alias "Open" _ 
    (ByVal PortNum As Integer) _ 
As Boolean 

Public Declare Function WriteUSB _ 
    Lib "PrinterUsb.dll" Alias "Write" _ 
    (ByVal pBuf As String, _ 
    ByVal nNumberOfBytesToWrite As Long, _ 
    ByVal nNumberOfBytesWritten As Long) _ 
As Boolean 

Public Declare Sub CloseUSB _ 
    Lib "PrinterUsb.dll" Alias "Close" () 


'程序如下： 
Private Sub cmdUSBTest_Click() 
    Dim MyDevInfo As DEVINFO 
    Dim ESC As String: ESC = Chr(27) 
    Dim strCmd As String 
    Dim nNumberOfBytesToWrite As Long: nNumberOfBytesToWrite = 0 
    Dim nNumberOfBytesWritten As Long: nNumberOfBytesWritten = 10 
    
    strCmd = "hello" 
    
    
    GetDevicePath MyDevInfo 
    If MyDevInfo.DevNum = 0 Then 
        MsgBox "未检测到USB设备！" 
        End 
    End If 
    
    If OpenUSB(0) = False Then 
        MsgBox "打开USB设备失败！" 
        End 
    End If 
    
    WriteUSB strCmd, nNumberOfBytesToWrite, nNumberOfBytesWritten 
    
    CloseUSB 
End Sub 

执行GetDevicePath MyDevInfo时就出现“实时错误49，DLL调用约定错误”
我把

Public Declare Function GetDevicePath _ 
    Lib "PrinterUsb.dll" _ 
    (ByRef sDevInfo As DEVINFO) _ 
As Long 

改成

Public Declare Function GetDevicePath _ 
    Lib "PrinterUsb.dll" _ 
    (ByVal sDevInfo As DEVINFO) _ 
As Long

就出现“编译错误：用户类型不能用”。

现在怎么办，哪儿错了，要怎么改，原因是什么呢，谢谢！

[bob008]

貌似C和DELPHI的大不同。。。

不过楼主调用的东西貌似没STDCALL


楼主调用的DLL 提供的函数到底是什么。。。 反正贴出来的是没有看到可调用的地方 。。。 偶刚才补习了下C。。。

偶发现楼主声明没啥问题，除了那个ALIAS 和SUB

但是是没有看到C的代码里有调用的STDCALL。。。

DLL里提供的肯定不是这些东西。。。 你找带STDCALL的

[bob008]

、_stdcall是Pascal程序的缺省调用方式，通常用于Win32 Api中，函数采用从右到左的压栈方式，
　　自己在退出时清空堆栈。VC将函数编译后会在函数名前面加上下划线前缀，在函数名后加上"@"和参数的字节数。 int f(void *p) -->> _f@4(在外部汇编语言里可以用这个名字引用这个函数)
　　2、C调用约定（即用__cdecl关键字说明）（The C default calling convention）按从右至左的顺序压参数入栈，由调用者把参数弹出栈。对于传送参数的内存栈是由调用者来维护的（正因为如此，实现可变参数vararg的函数(如printf)只能使用该调用约定）。另外，在函数名修饰约定方面也有所不同。 _cdecl是C和C＋＋程序的缺省调用方式。每一个调用它的函数都包含清空堆栈的代码，所以产生的可执行文件大小会比调用_stdcall函数的大。函数采用从右到左的压栈方式。VC将函数编译后会在函数名前面加上下划线前缀。
　　是MFC缺省调用约定。
　　3、__fastcall调用的主要特点就是快，因为它是通过寄存器来传送参数的（实际上，它用ECX和EDX传送前两个双字（DWORD）或更小的参数，剩下的参数仍旧自右向左压栈传送，被调用的函数在返回前清理传送参数的内存栈），在函数名修饰约定方面，它和前两者均不同。__fastcall方式的函数采用寄存器传递参数，VC将函数编译后会在函数名前面加上"@"前缀，在函数名后加上"@"和参数的字节数。
　　4、thiscall仅仅应用于“C++”成员函数。this指针存放于CX/ECX寄存器中，参数从右到左压。thiscall不是关键词，因此不能被程序员指定。
　　5、naked call。 当采用1-4的调用约定时，如果必要的话，进入函数时编译器会产生代码来保存ESI，EDI，EBX，EBP寄存器，退出函数时则产生代码恢复这些寄存器的内容。
　　(这些代码称作 prolog and epilog code,一般，ebp,esp的保存是必须的).
　　但是naked call不产生这样的代码。naked call不是类型修饰符，故必须和_declspec共同使用。
　　关键字 __stdcall、__cdecl和__fastcall可以直接加在要输出的函数前。它们对应的命令行参数分别为/Gz、/Gd和/Gr。缺省状态为/Gd，即__cdecl。
　　要完全模仿PASCAL调用约定首先必须使用__stdcall调用约定，至于函数名修饰约定，可以通过其它方法模仿。还有一个值得一提的是WINAPI宏，Windows.h支持该宏，它可以将出函数翻译成适当的调用约定，在WIN32中，它被定义为__stdcall。使用WINAPI宏可以创建自己的APIs。
　　2)名字修饰约定
　　1、修饰名(Decoration name)
　　“C”或者“C++”函数在内部（编译和链接）通过修饰名识别。修饰名是编译器在编译函数定义或者原
　　型时生成的字符串。有些情况下使用函数的修饰名是必要的，如在模块定义文件里头指定输出“C++”重载函数、构造函数、析构函数，又如在汇编代码里调用“C””或“C++”函数等。
　　修饰名由函数名、类名、调用约定、返回类型、参数等共同决定。
　　2、名字修饰约定随调用约定和编译种类(C或C++)的不同而变化。函数名修饰约定随编译种类和调用约定
　　的不同而不同，下面分别说明。
　　a、C编译时函数名修饰约定规则：
　　__stdcall调用约定在输出函数名前加上一个下划线前缀，后面加上一个“@”符号和其参数的字节数，
　　格式为_functionname@number。
　　__cdecl调用约定仅在输出函数名前加上一个下划线前缀，格式为_functionname。
　　__fastcall调用约定在输出函数名前加上一个“@”符号，后面也是一个“@”符号和其参数的字节数，
　　格式为@functionname@number。
　　它们均不改变输出函数名中的字符大小写，这和PASCAL调用约定不同，PASCAL约定输出的函数名无任何修饰且全部大写。
　　b、C++编译时函数名修饰约定规则：
　　__stdcall调用约定：
　　1、以“?”标识函数名的开始，后跟函数名；
　　2、函数名后面以“@@YG”标识参数表的开始，后跟参数表；
　　3、参数表以代号表示：
　　X--void ，
　　D--char，
　　E--unsigned char，
　　F--short，
　　H--int，
　　I--unsigned int，
　　J--long，
　　K--unsigned long，
　　M--float，
　　N--double，
　　_N--bool，
　　....
　　PA--表示指针，后面的代号表明指针类型，如果相同类型的指针连续出现，以“0”代替，一个“0”代
　　表一次重复；
　　4、参数表的第一项为该函数的返回值类型，其后依次为参数的数据类型,指针标识在其所指数据类型前
　　；
　　5、参数表后以“@Z”标识整个名字的结束，如果该函数无参数，则以“Z”标识结束。
　　其格式为“?functionname@@YG*****@Z”或“?functionname@@YG*XZ”，例如
　　int Test1（char *var1,unsigned long）-----“?Test1@@YGHPADK@Z”
　　void Test2（） -----“?Test2@@YGXXZ”
　　__cdecl调用约定：
　　规则同上面的_stdcall调用约定，只是参数表的开始标识由上面的“@@YG”变为“@@YA”。
　　__fastcall调用约定：
　　规则同上面的_stdcall调用约定，只是参数表的开始标识由上面的“@@YG”变为“@@YI”。
　　VC++对函数的省缺声明是"__cedcl",将只能被C/C++调用.
　　6 用法举例
　　BOOL _declspec(dllexport)_stdcall InstallHook()
　　{
　　hkb = SetWindowsHookEx(WH_KEYBOARD,
　　(HOOKPROC)KeyboardProc,
　　hins,
　　0);
　　return TRUE;
　　}

[bob008]

VC++对函数的省缺声明是"__cedcl",将只能被C/C++调用.

[bob008]

别的不好说。。。 光说VOID VB中声明应该是SUB而不是FUNCTION

Public Declare Function GetDevicePath _
Lib "PrinterUsb.dll" _ ------------------------为什么你后面都有ALIAS而这里没有


(ByRef sDevInfo As DEVINFO) _
As Long-----------------这里INTEGER比较好吧。。。

2.1.3: 字串作为Return值
这种API是不是存在呢?系统级的没看见,一般不会这样用,因为这存在内存分配的问题.
但我自已好像写过,处理方式是:
VB声明中可以使用long返回,然后用lstrcpy进行转换,
说起lStrCpy就不得不说说它的作用了，它实在是很关键，它很神奇，它可以把
地址指向的字符串拿出来。
我们来看看原理：
lStrcpy本身只是简单的复制字符串的函数：
Public Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long 如果按照API View中的声明,是不行的.它确实就是字串拷字串,没办法把字址指向的字串拷到另一串.
好了，需要小小改动一下：
首先：目的地没错,确实应该是指向字串的首地址.用Byval String就可以.第一个参数OK。
源串呢? 因为你传入的实际上不是String,而是long啊(上例返回的是long噢),那当然应该将声明改成long,否则,传入的String会变成啥,啥都不是呢?就这么简单。

2.1.4: LPTSTR 都可以用VB的byval String替代吗?
如果在结构体里,可就不是这样了.
如:EnumForms 枚举某个打印机的所有打印纸型。
Public Declare Function EnumForms Lib "winspool.drv" Alias "EnumFormsA" (ByVal hPrinter As Long, _ ByVal Level As Long, ByRef pForm As FORM_INFO_1, ByVal cbBuf As Long, ByRef pcbNeeded As Long, _
ByRef pcReturned As Long) As Long
对于 FORM_INFO_1的定义:
Public Type FORM_INFO_1
Flags As Long
pName As String
Size As SIZEL
ImageableArea As RECTL
End Type
如果按上述的方法调用,会出现异常.估计是在拷贝数据时,String实际上是不同于LPTSTR的,因为它的前面还有四字节是标识长度的,如果定义为String,那在构造pName之前的长度,必将动到它不应该动到的地方,这样,就错了.想来不会异常退出的,但却退出了,不知原因(我没弄明白)

所以,此种情况,应该将pName变为long,然后再用2.1.3提到的方法,将字串拷贝出来使用.
这样，就OK了。

引申一下：
对于一些API中大的结构体中的指针类型,我们完全可以用long来取代它,然后传递0&,因为，大多数情况，我们是不需要传入任何参数的，避免定义很多我们并不需要的类型.这样就降低了API使用的复杂性。


str As String *255 长度自己定义

[bob008]

strDevPath As String*PARTLEN

[bob008]

Public Type DEVINFO
iDevPath(0 To DevNum) As DEVPATH -------------这里也有问题
DevNum As Integer
End Type

[zzyong00]

http://topic.csdn.net/u/20081006/16/96446f0a-96ad-46f6-9bcd-a22fc59aba09.html

[chenhui530]

要改C的代码把函数的声明类型改成sdtcall

[chenhui530]

int WINAPI GetDevicePath(DEVINFO&);
bool WINAPI Open(int PortNum);
bool WINAPI Write(char *pBuf,DWORD nNumberOfBytesToWrite,DWORD &NumberOfBytesWritten);
void WINAPI Close();

[baiyongming]

//#include "PrinterUsbDeclare.h"
#ifndef PRINTERUSB_H
#define PRINTERUSB_H

const	int			DEVNUM = 10;
const	int			PATHLEN = 200;

typedef struct
{
	char		strDevPath[PATHLEN];
}DEVPATH;

typedef struct
{
	DEVPATH				DevPath[DEVNUM];
	int					DevNum;
}DEVINFO;


#pragma comment(lib,"PrinterUsb.lib")
extern "C"_declspec(dllimport) int  _stdcall  GetDevicePath(DEVINFO&);
extern "C"_declspec(dllimport) bool _stdcall  Open(int PortNum);
extern "C"_declspec(dllimport) bool	_stdcall  Write(char *pBuf,DWORD nNumberOfBytesToWrite,DWORD &NumberOfBytesWritten);
extern "C"_declspec(dllimport) bool	_stdcall  Read(char *pBuf,DWORD nNumberOfBytesToRead,DWORD &NumberOfBytesRead);
extern "C"_declspec(dllimport) void _stdcall  Close();



#endif

谢谢各位，原来的确实没有_stdcall，他改了一下，加上了_stdcall，如上。
但现在的问题更严重，出现
“实时错误453 找不到DLL入口点GetDevicePath in PrinterUsb.dll"
因为他不太懂VB，所以也不能给我什么指点，只好求助各位了。
另外，我改了

Public Type DEVPATH
    strDevPath(0 To PATHLEN - 1) As Byte
End Type

Public Type DEVINFO
     iDevPath(0 To DEVNUM - 1) As DEVPATH
     iDevNum As Integer
End Type

Public Declare Function GetUsbDevicePath _
    Lib "PrinterUsb.dll" Alias "GetDevicePath" _
    (sDevInfo As DEVINFO) _
As Long

也没有什么作用，请各位再详细指点。

[baiyongming]

还有，我是直接把PrinterUsb.dll放在程序目录下的，没什么关系吧？（XP系统）

[baiyongming]

执行时VB直接停在GetUsbDevicePath就不动了，如果能把GetUsbDevicePath调试好，问题就好解决了，期待中

[bbata]

_stdcall
加上后 导出函数名称会根据参数 有一定的改变
用VB里的Alias 解决就可以了
一般情况 传递指针就可以了 最好都声明成LONG型

[zbl5174]

vb调用win32下的Dll时，函数名区分大小写，你试试看