急！！VB如何调用参数为char*类型的DLL

Question

使用VC编写的DLL，函数声明为：
char* GetLVDTResponse(char* szCommand,long nWaitTime)请问在VB中如何传递参数呀？主要是char*这种数据类型不懂？
是用string类型的参数吗？

Answer 1

函数原形：
int __stdcall Array(int *a,int num);
调用如下：
Declare Function (ByRef SampleA() as Long, ByVal NumSam as Integer) as Integer你的那个函数调用应该是：
Declare Function GetLVDTResponse(ByVal szCommand as String,ByVal nWaitTime as Long) as String

Answer 2

VB和VC的数据类型
   由于VB与VC之间的数据类型没有相同的关键字，为了方便，下面列出常用数据类型在VC与VB中分别使用的关键字以及它们之间的对应关系：c中的数据类型   VB中的声明        结果
ATOM          ByVal variable As Integer              结果为Integer 类型的表达式 
BOOL          ByVal variable As Boolean             结果为 Long 类型的表达式 
BYTE          ByVal variable As Byte                结果为 Byte 类型的表达式 
CHAR           ByVal variable As Byte                结果为 Byte 类型的表达式 
COLORREF  ByVal variable As Long                结果为 Long 类型的表达式 
DWORD    ByVal variable As Long                结果为 Long 类型的表达式 
HWND, HDC, HMENU  ByVal variable As Long          结果为 Long 类型的表达式等Windows 句柄
INT, UINT         ByVal variable As Long                 结果为 Long 类型的表达式 
LONG          ByVal variable As Long                结果为 Long 类型的表达式 
LPARAM     ByVal variable As Long                结果为 Long 类型的表达式 
LPDWORD  variable As Long                      结果为 Long 类型的表达式 
LPINT, LPUINT  variable As Long                      结果为 Long 类型的表达式 
LPRECT     variable As type                       自定义类型的任意变量 
LPSTR, LPCSTR  ByVal variable As String              结果为 String 类型的表达式 
LPVOID  variable As Any 任何变量（在传递字符串的时候使用ByVal） 
LPWORD  variable As Integer                    结果为Integer 类型的表达式 
LRESULT  ByVal variable As Long              结果为 Long 类型的表达式 
NULL As Any 或 ByVal Nothing 或 ByVal variable As Long ByVal 0& 或 VBNullString 
SHORT  ByVal variable As Integer              结果为Integer 类型的表达式 
VOID Sub procedure   不可用 
WORD  ByVal variable As Integer              结果为Integer 类型的表达式 
WPARAM  ByVal variable As Long                结果为 Long 类型的表达式
-----------------------------------------------------------------------------------
楼主给分哦~~

Answer 3

Gutta(冯大狂（每天回答5题:
能够得到返回值吗？现在传进参数是没有问题了，但是得不到返回值？咋回事？

Answer 4

char* GetLVDTResponse(char* szCommand,long nWaitTime)-->Declare Function GetLVDTResponse(ByVal szCommand as String,ByVal nWaitTime as Long) As Long

Answer 5

declare:
Declare Function GetLVDTResponse(ByVal lgCommand as long,ByVal nWaitTime as Long) As Long
call:
x=GetLVDTResponse(varptr(szCommand),nWaitTime)

Answer 6

楼上的不对吧，应该用StrPtr才对哦。字符串变量本身就是个指针，varptr得到的是指针的指针。而dll需要的是指向字符数组的指针。所以用Strptr,得到字符串变量的值，也就是指向字符数组的指针了。

Answer 7

又碰贴了。我说的楼上是指 hnwlf(寻梦) 。

Answer 8

Declare Function GetLVDTResponse(ByVal lgCommand as long,ByVal nWaitTime as Long) As Long
如果这样声明的话，得到一个长整形的返回值，没法把它当字符串用，要额外的作些处理才行。我建议用这种方法：
declare:
Declare Function GetLVDTResponse(ByVal lgCommand as long,ByVal nWaitTime as Long) As Long
call:
x=GetLVDTResponse(strptr(szCommand),nWaitTime)
dim s as string
s=vbnullstring
copymemory byval varptr(s),x,4
msgbox s
copymemory byval varptr(s),0&,4

Answer 9

Declare Function GetLVDTResponse(ByVal szCommand as String,ByVal nWaitTime as Long) as String调用前要先配空间比如
dim szCommand as string * 200