定义一个VARIANT数组

comeonxi 2013-08-20 07:36:35

COM 组件使用中，有个函数参数为 VARIANT*, a pointer to a VARIANT containing an array of BSTR，怎么定义这个VARIANT，不会使用

...全文

72 回复打赏收藏转发到动态举报

写回复

回复

切换为时间正序

请发表友善的回复…

发表回复

vb中定义如下：类模块Class1中代码如下： Dim aa() As String Public Sub setName(ByRef str() As String) aa = str End Sub Public Function getName() As String() getName = aa End Function 模块Module1代码如下： Public MyName As New Class1 按钮Command1中代码如下： Private Sub Command1_Click() Dim cc() As String MyName.setName (cc()) End Sub 运行时怎么总是提示“类型不匹配，缺少数组或用户定义类型”啊？实在不知道错在哪里了？？

主要介绍了vbscript基础篇 - vbs数组Array的定义与使用方法,需要的朋友可以参考下

先在“引用”将近 Siemens OPC DAAutomation 2.0加入，然后开始定义全局变量。在本程序中，我使用了两个OPC组进行OPC访问，所以定义了全局变量。我们要首先定义OPC服务类型与计算机结点名。定义OPC组与OPC标签组。并定义OPC的标签数组与值数，注意，值数组一定要设为Variant。 'OPC处理：只对WINCC Const ServerName = "OPCServer.WinCC" 'OPC的类型 Const NodeName = "GUK" '结点名，即计算机名 'Dim NodeName As String Dim WithEvents MyOPCServer As OPCServer 'OPC服务 Dim MyOPCGroupColl As OPCGroups ' Dim WithEvents MyOPCGroupOut As OPCGroup 'OPC组，本程序用两个组进行OPC连接 Dim WithEvents MyOPCGroupIn As OPCGroup Dim MyOPCItemCollIn As OPCItems 'OPC标签组 Dim MyOPCItemCollOut As OPCItems Dim ServerHandlesIn() As Long '句柄 Dim ServerHandlesOut() As Long Dim ErrorsIn() As Long '错误句柄 Dim ErrorsOut() As Long Dim WatchDataReadItem(100) As String '记录OPC的标签 Dim WatchDataReadValue(100) As Variant '存放OPC的值 Dim WatchDataWriteItem(100) As String '记录OPC的标签 Dim WatchDataWriteValue(100) As Variant '存放OPC的值

在工程实践中经常需要实现上下位机间的串口通信，为了编程的方便性我们通常采用字符方式进行数据传输，由于需要数据转换以及转换后的数据长度增加，数据传输速度不够理想，为了提高系统实时性在某些特殊场合更需要直接采用二进制进行数据传输。Delphi6.0是一种面向对象的可视化的快速应用开发（RAD）工具，它既具有C++语言的强大功能，同时又有VB的易用性，Delphi6.0的伸缩性强，既可用于开发小项目，也可用于开发大项目，尤其适用于快速应用的开发，其大量优点使它迅速成为一种非常流行的编程语言。Delphi6.0中串口通信的实现方法很多，可以使用嵌入式汇编语言、API函数以及VB的MSComm控件来实现。其中使用MSComm控件来实现串口通信最方便，但有关Delphi如何实现二进制通信的资料很少，大部分参考书都只介绍了VB中MSComm控件的字符通信方式。由于Delphi中数组跟Variant变量不兼容，即在Delphi中字节数组不能直接赋值给MSComm控件的output属性,这跟VB有中很大的不同（VB中可以直接赋值），本人通过摸索总结出两种实现Delphi二进制通信的方法，即动态数组法和可变数组（Variant Array）法，并给出了应用实例。在应用实例中我们使用Delphi的absolute关键字来定义两个同地址的动态数组，类型分别为字节型数组和短整型数组，使用字节动态数组接收数据后，可以直接使用短整型动态数组获得短整型数据，省却了数据转换的麻烦

Class06. 数组定义下面是几种常见定义数组的方法。 ' 定义一个一维数组，数据类型为Variant，长度从0到5，实际控件有六个，长度为5 Dim arr(5) as String ' 定义一个一维数组，数据类型为Variant，长度从1到5，实际控件有六个，长度为5 Dim arr(1 to 5) as String ' 可以省略As后面部分，等于 Dim arr2 () as Variant Dim arr(5) ' 一维数组，下标从0开始 arr2 = Array("你好", "世界") '

64,654

社区成员

250,484

社区内容

发帖

与我相关

我的任务

c++ 技术论坛（原bbs）

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

请不要发布与C++技术无关的贴子
请不要发布与技术无关的招聘、广告的帖子
请尽可能的描述清楚你的问题，如果涉及到代码请尽可能的格式化一下

试试用AI创作助手写篇文章吧

+ 用AI写文章