VC 制作的dll,返回值为uchar,在VB中如何定义和得到正确结果

chuting1 2010-07-21 11:26:41
在VC中函数定义为
rdcard(int icDev,uchar * cardlx)

在VC的DEMO中,执行后,cardlx可直接得到诸如12345,yfd等字符串

在VB中定义
Declare Function rdcard Lib "rwcard.dll" (ByVal icDev As Long, ByRef cardlx As String) As Integer

DEMO中,
Dim ads As String
aa = rdcompany(514, ads)
程序执行即飞

而在VB中定义
Declare Function rdcard Lib "rwcard.dll" (ByVal icDev As Long, ByRef cardlx As byte) As Integer

DEMO中,
Dim aaa(50) As Byte
aa = rdcompany(514, aaa(0))
方可

这样的话,如果cardlx是个不定长的字符,要想得到就很麻烦,请问有什么办法解决吗
...全文
162 点赞 收藏 8
写回复
8 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
chuting1 2010-07-22
UP一下
回复
chenhui530 2010-07-21
cardlx 传strptr后得到的地址
回复
chenhui530 2010-07-21
Declare Function rdcard Lib "rwcard.dll" (ByVal icDev As Long, ByVal cardlx As long) As Integer
回复
chuting1 2010-07-21
最终我要得到cardlx的字符值,定义成long,那strptr(参数为strting)怎么用呢
回复
chuting1 2010-07-21
ByVal cardlx As long ???
strptr ???
回复
chenhui530 2010-07-21
你认真看我的声明

call rdcompany(512,strptr("1233"))
回复
chuting1 2010-07-21
楼上两位的都不对啊
回复
浅蓝马 2010-07-21

Declare Function rdcard Lib "rwcard.dll" (ByVal icDev As Long, ByRef cardlx As String) As Integer

Dim ads As String * 256
aa = rdcompany(514, ads)
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7486

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2010-07-21 11:26
社区公告
暂无公告