vb 调用vc写的dll时,怎样传递数组参数

2002-05-24 07:45:22 190 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

wangyongshuang 墨衍会员 · AI 创作全网分发关注 + 加入社区

vb 中用vc dll 一般来说，VB和VC共同编程有3种方式：一种是VC生成DLL，在VB中调用DLL；一种是VC生成ActiveX控件(.ocx)，在VB中插入；还有一种是在VC中生成ActiveX Automation服务器，在VB中调用。相对而言，第一种方法对VC编程者的要求最低，但要求你的伙伴进行配合，我推荐这种方法。先说说VC++的编程。首先在VC++中生成Win32 DLL工程。在这个工程中添加几阅读详情

用vc写了一个dll,
double CParserApp::Calculate(CArray <double ,double> Value,CArray <CString ,CString&> ValueName,CString str)
vb 中调用时
declare Function Calculate(Value as double,ValueName as double,str as string)
引用时写

dim Value(10) as double
dim ValueName(10) as string
dim str as string
dim a as double
dim i as integer
for i=1 to 10
Value(i)=i
ValueName(i)="i" & CStr(i)
next i
str="abcd"
a=Calculate(Value,ValueName,str)

问题是数据传不过去
如果是byval 可以,,但vb中函数定义我就不知道怎么写

...全文

请问是否可以在vb里调用opencv？ http://www.opencv.org.cn/forum/viewtopic.php?t=2143 OpenCv 里边很多函数以IplImage类型作为参数, VB传递有困难, 建议对OpenCV的函数用自己编写的DLL进行封装一下, 把VB传递过来的图像数据(byte)传递给自己的dll, 在自己的dll函数头部把数据格式转化成IplImage, 然后调用Opencv的函数. ... 阅读详情

wangyongshuang

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

wangyongshuang 2002-05-30

打赏
举报

怎么用BSTR

wangyongshuang 2002-05-30

打赏
举报

BillChang 2002-05-30

打赏
举报

观注中

wangyongshuang 2002-05-30

打赏
举报

double 可以解决字符串还没解决有好办法吗,

zyl910 2002-05-30

打赏
举报

先把数组中的字符串转为ANSI
再建立一个Long数组，把它的每一个元素设为StrPtr(字符串数组的元素)
把那个Long数组传过去就行了

冰霜icefrost 2002-05-30

打赏
举报

Function GetCharByte(ByVal OneChar As Integer, ByVal IsHighByte As Boolean) As Byte ' 该函数获得一个字符的高字节或低字节
If IsHighByte Then
If OneChar >= 0 Then
GetCharByte = CByte(OneChar \ 256)
'右移8位，得到高字节
Else
GetCharByte = CByte((OneChar
And &H7FFF) \ 256) Or &H80
End If
Exit Function
Else
GetCharByte = CByte(OneChar And &HFF)
'屏蔽掉高字节，得到低字节
Exit Function
End If
End Function

Sub StrToByte(StrToChange As String, ByteArray() As Byte)
'该函数将一个字符串转换成字节数组
Dim LowBound, UpBound As Integer
Dim i, count, length As Integer
Dim OneChar As Integer

count = 0
length = Len(StrToChange)
LowBound = LBound(ByteArray)
UpBound = UBound(ByteArray)

For i = LowBound To UpBound
ByteArray(i) = 0 '初始化字节数组
Next

For i = LowBound To UpBound
count = count + 1
If count <= length Then
OneChar = Asc(Mid(StrToChange, count, 1))

If (OneChar > 255) Or (OneChar < 0) Then
'该字符是非ASCII字符
ByteArray(i) = GetCharByte(OneChar, True) '得到高字节
i = i + 1
If i <= UpBound Then ByteArray(i)
= GetCharByte(OneChar, False)
'得到低字节
Else
'该字符是ASCII字符
ByteArray(i) = OneChar
End If
Else
Exit For
End If
Next
End Sub

Sub ChangeStrAryToByte(StrAry()
As String, ByteAry() As Byte)
'将字符串数组转换成字节数组
Dim LowBound, UpBound As Integer
Dim i, count, StartPos, MaxLen As Integer
Dim TmpByte() As Byte

LowBound = LBound(StrAry)
UpBound = UBound(StrAry)
count = 0
ReDim ByteAry(0)

For i = LowBound To UpBound
MaxLen = LenB(StrAry(i))
ReDim TmpByte(MaxLen + 1)
ReDim Preserve ByteAry(count + MaxLen + 1)
Call StrToByte(StrAry(i), TmpByte) '转换一个字符串
StartPos = count
Do
ByteAry(count) = TmpByte(count - StartPos)
count = count + 1
If ByteAry(count - 1) = 0 Then Exit Do
Loop '将每一个字符串对应
的字节数组按顺序填入结果数组中
ReDim Preserve ByteAry(count - 1)
Next i
End Sub

　　下面看一个转换的例子：

DimResultAry()asByte
DimSomeStr(2)asString
SomeStr(0)="测试1"
SomeStr(1)="测试222"
SomeStr(2)="测试33"
CallChangeStrAryToByte
(SomeStr,ResultAry)'转换字符串数组

sproll 2002-05-25

打赏
举报

向DLL模块传递数组一般用byref,而且使用的参数为该数组的第一个参数。
如
dim intTest(0 to 9) as Integer
FunctionTest(intTest(0))
这样的声明不正确吧，
declare Function Calculate(Value as double,ValueName as double,str as string)
CString str是一个MFC中的字符串类型的变量，str as string是一个BSTR类型的变量。

herony 2002-05-25

打赏
举报

vb和c++没什么区别。数组的传递是引用传递，传递的是数组的首地址，
这个和指针很类似，用byref传递，并且要声明数组，楼上的兄弟说得
没错

wangyongshuang 2002-05-25

打赏
举报

谢谢sprolll,我再试试

wangyongshuang 2002-05-24

打赏
举报

我把问题写得已经很具体了,请高手指点一二,
小弟感激涕零,毕业设计就快没时间了,
Help

vb 调用vc写的dll时,怎样传递数组参数

相关推荐