1.5w+
社区成员
VC如何接受从VB传来的数组？
我想做一个可以接受任意参数的DLL，在VB中定义为ParamArray的参数列表，在VC中怎么存储？最好能给示例代码，谢谢。
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
蒋晟 2001-08-06
long CStrArrayDoc::Sort(VARIANT FAR* vArray)
{
long i, j, min;
BSTR bstrTemp;
SAFEARRAY FAR* psa = NULL;
BSTR HUGEP *pbstr;
HRESULT hr;
DWORD dwTimeStart;
LONG cElements, lLBound, lUBound;
USES_CONVERSION;
// Type check VARIANT parameter. It should contain a BSTR array
// passed by reference. The array must be passed by reference it is
// an in-out-parameter.
if (V_VT(vArray) != (VT_ARRAY | VT_BSTR))
AfxThrowOleDispatchException(1001,
"Type Mismatch in Parameter. Pass a string array by reference");
psa = V_ARRAY(vArray);
// Check dimensions of the array.
if (SafeArrayGetDim(psa) != 1)
AfxThrowOleDispatchException(1002,
"Type Mismatch in Parameter. Pass a one-dimensional array");
dwTimeStart = GetTickCount();
// Get array bounds.
hr = SafeArrayGetLBound(psa, 1, &lLBound);
if (FAILED(hr))
goto error;
hr = SafeArrayGetUBound(psa, 1, &lUBound);
if (FAILED(hr))
goto error;
// Get a pointer to the elements of the array.
hr = SafeArrayAccessData(psa, (void HUGEP* FAR*)&pbstr);
if (FAILED(hr))
goto error;
// Bubble sort.
cElements = lUBound-lLBound+1;
for (i = 0; i < cElements-1; i++)
{
min = i;
for (j = i+1; j < cElements; j++)
{
// NULL is a valid value for a BSTR. This code treats a NULL
// BSTR as less than other string values.
if (pbstr[min] == NULL)
continue;
else if (pbstr[j] == NULL
|| wcscmp(pbstr[j], pbstr[min]) < 0)
min = j;
}
//Swap array[min] and array[i].
bstrTemp = pbstr[min];
pbstr[min] = pbstr[i];
pbstr[i] = bstrTemp;
}
hr = SafeArrayUnaccessData(psa);
if (FAILED(hr))
goto error;
return GetTickCount()-dwTimeStart;
error:
AfxThrowOleDispatchException(1003,
"Unexpected Failure in FastSort method");
return 0;
}
{
long i, j, min;
BSTR bstrTemp;
SAFEARRAY FAR* psa = NULL;
BSTR HUGEP *pbstr;
HRESULT hr;
DWORD dwTimeStart;
LONG cElements, lLBound, lUBound;
USES_CONVERSION;
// Type check VARIANT parameter. It should contain a BSTR array
// passed by reference. The array must be passed by reference it is
// an in-out-parameter.
if (V_VT(vArray) != (VT_ARRAY | VT_BSTR))
AfxThrowOleDispatchException(1001,
"Type Mismatch in Parameter. Pass a string array by reference");
psa = V_ARRAY(vArray);
// Check dimensions of the array.
if (SafeArrayGetDim(psa) != 1)
AfxThrowOleDispatchException(1002,
"Type Mismatch in Parameter. Pass a one-dimensional array");
dwTimeStart = GetTickCount();
// Get array bounds.
hr = SafeArrayGetLBound(psa, 1, &lLBound);
if (FAILED(hr))
goto error;
hr = SafeArrayGetUBound(psa, 1, &lUBound);
if (FAILED(hr))
goto error;
// Get a pointer to the elements of the array.
hr = SafeArrayAccessData(psa, (void HUGEP* FAR*)&pbstr);
if (FAILED(hr))
goto error;
// Bubble sort.
cElements = lUBound-lLBound+1;
for (i = 0; i < cElements-1; i++)
{
min = i;
for (j = i+1; j < cElements; j++)
{
// NULL is a valid value for a BSTR. This code treats a NULL
// BSTR as less than other string values.
if (pbstr[min] == NULL)
continue;
else if (pbstr[j] == NULL
|| wcscmp(pbstr[j], pbstr[min]) < 0)
min = j;
}
//Swap array[min] and array[i].
bstrTemp = pbstr[min];
pbstr[min] = pbstr[i];
pbstr[i] = bstrTemp;
}
hr = SafeArrayUnaccessData(psa);
if (FAILED(hr))
goto error;
return GetTickCount()-dwTimeStart;
error:
AfxThrowOleDispatchException(1003,
"Unexpected Failure in FastSort method");
return 0;
}
wb197 2001-08-02
to whiteWaterBlueSky:
可有示例代码瞧瞧？借来一观
可有示例代码瞧瞧？借来一观
WhiteWaterBlueSky 2001-08-02
另：我的实践表明，在VC中用VARIANT*作为函数参数来接收才行！
WhiteWaterBlueSky 2001-08-02
1。其实你在VB中用Variant表示一个数组是最好的！
声明：Dim varDatas as Variant
真正使用时再定义维数：ReDim varDatas(5,3)
2。在VC中用VARIANT接收,此时这个变体是VT_ARRAY | VT_VARIANT类型的，
也就是是说这个变体的parray存放的是SAFEARRAY，有一堆API可以对
SAFEARRAY进行操作！
声明：Dim varDatas as Variant
真正使用时再定义维数：ReDim varDatas(5,3)
2。在VC中用VARIANT接收,此时这个变体是VT_ARRAY | VT_VARIANT类型的，
也就是是说这个变体的parray存放的是SAFEARRAY，有一堆API可以对
SAFEARRAY进行操作！
土豆 2001-08-02
VC中好像没有Any这种万能的类型。
wb197 2001-08-02
没人捧场吗？
JAVA上百实例源码以及开源项目源代码 Java局域网通信——飞鸽传书源代码 28个目标文件 内容索引:JAVA源码,媒体网络,飞鸽传书 Java局域网通信——飞鸽传书源代码，大家都知道VB版、VC版还有Delphi版的飞鸽传书软件，但是Java版的确实不多，因此这个Java...
在VB中调用C/C++语言编写的dll，数组参数的传递 动态链接库（dll）的好处就不多说了，这里就把如何在VB中调用VC写的dll函数的方法介绍一下，供有需要的朋友们参考，同时也免得自己以后忘了。 初次接触DLL的用户经常会遇到一个问题：在VC环境下创建的DLL，在VC里...
【转】VB VC 混合编程(dll)中 数组 的传入传出 以前用到的神经网络都是在matlab中调的，而项目需要，要写个神经网络的算法，系统主界面是VB写的，在VB中做网络训练速度是不照的，用VB，VC的混合编程，但是一直被VB与Dll之间的数组传递这个难题所困扰，在网上搜...
JAVA上百实例源码以及开源项目 Java局域网通信——飞鸽传书源代码，大家都知道VB版、VC版还有Delphi版的飞鸽传书软件，但是Java版的确实不多，因此这个Java文件传输实例不可错过，Java网络编程技能的提升很有帮助。 Java聊天程序，包括服务端和...
C#基础教程-c#实例教程，适合初学者 交叉语言处理：由于任何遵守通用语言规范的语言源程序，都可编译为相同的中间语言代码，不同语言设计的组件，可以互相通用，可以从其它语言定义的类派生出本语言的新类。由于中间语言代码由CLR负责执行，因此异常...
请问是否可以在vb里调用opencv？ OpenCv 里边很多函数以IplImage类型作为参数, VB传递有困难, 建议对OpenCV的函数用自己编写的DLL进行封装一下, 把VB传递 过来的图像数据(byte)传递给自己的dll, 在自己的dll函数头部把数据 格式转化成IplImage, 然后...
vc html 给activex传参,VC activex 传相关参数给vb来显示位图的研究流水记录 } //在VB中的代码，传出数组参数： Private Sub Command3_Click() Dim rarr As Variant Testactivx1.retarray rarr MsgBox rarr(0) & " " & rarr(1) End Sub 以上代码是均在VC6.0 VB6.0下测试通过。 以前在别的...
通过VB结构数组输入数据VC编写DLL 前言 太多的例子讲如何如何实现VC编写动态链接库,VB中声明后使用,但没有一个好的文章来深入探讨这个问题,本文负责解决此类问题。 下载本文示例源代码 大小:125K 1.一般情况 VB中定义为: Private Declare Function F....
[混合编程]VC VB 数组 一般来说，VB和VC共同编程有3种方式：一种是VC生成DLL，在VB中调用DLL；一种是VC生成ActiveX 控件(.ocx)，在VB中插入；还有一种是在VC中生成ActiveX Automation服务器，在VB中调用。相对而言，第一种方法对VC编程者...
VB VC 混合编程(dll)中 数组 的传入传出
以前用到的神经网络都是在matlab中调的，而项目需要，要写个神经网络的算法，系统主界面是VB写的，在VB中做网络训练速度是不照的，用VB，VC 的混合编程，但是一直被VB与Dll之间的数组传递这个难题所困扰，在...
vb与c语言数组传递,在VB中调用C/C++语言编写的dll，数组参数的传递 动态链接库(dll)的好处就不多说了，这里就把如何在VB中调用VC写的dll函数的方法介绍一下，供有需要的朋友们参考，同时也免得自己以后忘了。初次接触DLL的用户经常会遇到一个问题：在VC环境下创建的DLL，在VC里运行的...
在VB6中用CopyMemory拷贝字符串的种种猫腻（三） 另外，上面赵老虎的解释中给出的'ANSI编码，实际上指的是_tmp2接受拷贝后得到的值；'Unicode编码则是指VB在结束API调用后String2最后得到的值。 3.5.2 长度不确定？ 看上面第2小节赵老虎的详细注释，会...
VB调用VC dll的返回方式 第一种类型：数值传递 注意：在VB中，默认变量传递方式为ByRef为地址，而传递值就是用ByVal，还要注意在C++中，int类型的变量是32位的，在VB中要用long型变量来配合。VC++部分：extern "C" _declspec(dllexport) int...
C# VC VB.NET JS 注释小插件(外接程序) 在上一个项目中由于修改代码 里面的添加/删除/修改的注释都有规范，因此做了一个注释的第三方dll小插件。...稍后我整合打包传上来了。 VS 创建外接程序 参考链接 http://technet.microsoft.com/zh-tw/libra
