用实例讲解Variant类型在VB、C#、VC中的参数传递
来源：互联网 发布：软件配置管理实施情况 编辑：程序博客网 时间：2024/05/21 10:25
几年前我用VB开发了一个西门子PPI通信控件，由于VB开发的控件是标准的COM组件，所以想当然的认为VC、C#、Delphi等开发语言可以非常容易的使用。
前段时间由于该控件基于微软的MSCOMM控件，这个控件如果系统没有安装VB，单独注册好像很难成功，这害的一些没有装VB的用户，为了这个小控件必须安装一次VB，这实在是划算不来，所以直接用API串口函数进行了封装改进，这样不仅效率提高了，并且再也不需要MSCOMM控件了。
这一次，我不仅使该控件支持了浮点运算，并且在VC、C#（VB当然就不用多试了，以前就很好的支持）进行了兼容测试。
一试问题就来了，没有改进之前的控件，由于C#封装性能甚好，还能使用，唯一不足的是，控件方法中如果不要求返回的参数前面没有添加ByVal参数，在C#中就转换为 ref ***，害的你还得专门定义临时变量进行传参。
在VC中直接就不行，ReadData和WriteData等几个主要方法根本在VC中无法转换成对应函数，具体错误信息如下：
// method 'ReadData' not emitted because of invalid return type or parameter type
// method 'WriteData' not emitted because of invalid return type or parameter type
// method 'PlcLogin' not emitted because of invalid return type or parameter type
// method 'PlcRun' not emitted because of invalid return type or parameter type
// method 'PlcStop' not emitted because of invalid return type or parameter type
经过测试，最后发现VB函数中的byte和数组在VC中根本找不到合适的对应。
由于控件中又新添加了浮点数的支持，所以对参数接口又增加了一层复杂性。突然想到微软的MSCOMM控件各语言肯定都能很好的支持，它的接口参数是怎样的定义的。我在VB、VC、C#分别试了一下，VB中和input和Output属性的类型就是Variant类型，在VC中是VARIANT，在C#中是Object。用Variant还有个好处，就是各种类型的数据都可以传输，没有必要在另外添加接口函数了。
最后我定义的接口如下（主要接口）：
Public Function ReadData(ByVal lngAddr As Long, vData As Variant, Optional ByVal lngNum As Long = 1, Optional ByVal bytLen As PPILEN = PPI_B, Optional ByVal bytType As PPITYPE = PPI_V, Optional ByVal Addr As Long = 0) As LongPublic Function WriteData(ByVal lngAddr As Long, ByVal vData As Variant, Optional ByVal lngNum As Long = 1, Optional ByVal bytLen As PPILEN = PPI_B, Optional ByVal bytType As PPITYPE = PPI_V, Optional ByVal Addr As Long = 0) As Long
在VC中对应的接口如下：
long ReadData(long lngAddr, VARIANT* vData, long lngNum, long bytLen, long bytType, long Addr);long WriteData(long lngAddr, const VARIANT& vData, long lngNum, long bytLen, long bytType, long Addr);
在C#中的接口如下：
public virtual int ReadData(int lngAddr, ref object vData); public virtual int ReadData(int lngAddr, ref object vData, int lngNum, PPILEN bytLen, PPITYPE bytType, int addr); public virtual int WriteData(int lngAddr, object vData); public virtual int WriteData(int lngAddr, object vData, int lngNum, PPILEN bytLen, PPITYPE bytType, int addr);
以为这样定义就万事大吉了，事后一试我又错了，在C#中没有任何问题（看了微软还是在C#上下了很大的功夫），在VC简单的定义一个VARIANT变量直接传递给控件，VB控件老是报错，根本无法使用。后来想为什么MSCOMM控件可以，我的控件不可以。天杀的MSCOMM肯定是VC开发的，而我的控件是VB开发的，VB和C#的包容性都很强，而VC却高高在上不肯屈就。
正一筹莫展准备放弃的时候，突然想到了以前用VC开发的OPC程序，上面有很多关于VARIANT的应用，一看就明白了，原来在VC中VARIANT的用法是有讲究的。
下面我就详细说一下控件同样的接口在不同语言中如何使用。
在VB中：
Private Sub cmdReadData_Click() On Error GoTo ToExit '打开错误陷阱 '------------------------------------------------ Dim i As Long Dim bytType As Byte Dim lngRet As Long Dim lngData() As Long Dim fData() As Single Dim vData As Variant Select Case cmbType.ListIndex Case 0: bytType = PPI_I Case 1: bytType = PPI_Q Case 2: bytType = PPI_M Case 3: bytType = PPI_V Case 4: bytType = PPI_S Case 5: bytType = PPI_SM End Select S7_PPI1.FixAddr = cmbNo.ListIndex + 1 lngRet = S7_PPI1.ReadData(Val(txtAddr), vData, Val(cmbNum.Text), Val(cmbLen.ListIndex), Val(bytType)) If lngRet = 0 Then txtData = "" If cmbLen.ListIndex = 3 Then fData = vData For i = 1 To Val(cmbNum.Text) txtData = txtData & Format(fData(i - 1), "0.00") & " " Next Else lngData = vData For i = 1 To Val(cmbNum.Text) txtData = txtData & Format(lngData(i - 1), "0") & " " Next End If Else txtData = "Error" End If '------------------------------------------------ Exit Sub '----------------ToExit: MsgBox Err.DescriptionEnd SubPrivate Sub cmdWriteData_Click() On Error GoTo ToExit '打开错误陷阱 '------------------------------------------------ Dim bytType As Byte Dim strData() As String Dim lngRet As Long Dim lngData(100) As Long Dim fData(100) As Single Dim i As Long Select Case cmbType.ListIndex Case 0: bytType = PPI_I Case 1: bytType = PPI_Q Case 2: bytType = PPI_M Case 3: bytType = PPI_V Case 4: bytType = PPI_S Case 5: bytType = PPI_SM End Select If Len(txtData) > 0 Then strData = Split(txtData, " ") If cmbLen.ListIndex = 3 Then For i = 0 To UBound(strData) fData(i) = Val(strData(i)) Next lngRet = S7_PPI1.WriteData(Val(txtAddr), fData, UBound(strData) + 1, Val(cmbLen.ListIndex), Val(bytType), cmbNo.ListIndex + 1) Else For i = 0 To UBound(strData) lngData(i) = Val(strData(i)) Next lngRet = S7_PPI1.WriteData(Val(txtAddr), lngData, UBound(strData) + 1, Val(cmbLen.ListIndex), Val(bytType), cmbNo.ListIndex + 1) End If If lngRet = 0 Then ' Else txtData = "Error" End If End If '------------------------------------------------ Exit Sub '----------------ToExit: MsgBox Err.DescriptionEnd Sub
在C#中：
/// <summary> /// 读数据 /// </summary> /// <param name="sender"></param> /// <param name="e"></param> private void btnRead_Click(object sender, EventArgs e) { int intAddr = int.Parse(txtFixAddr.Text); object vData = new object(); /* [PPI_I] = &H81 [PPI_Q] = &H82 [PPI_M] = &H83 [PPI_V] = &H84 [PPI_S] = 4 [PPI_SM] = 5 */ PPIV2.PPITYPE DataType= PPIV2.PPITYPE.PPI_V; switch (cmbDataType.SelectedIndex) //数据类型 { case 0: DataType = PPIV2.PPITYPE.PPI_I; break; case 1: DataType = PPIV2.PPITYPE.PPI_Q; break; case 2: DataType = PPIV2.PPITYPE.PPI_M; break; case 3: DataType = PPIV2.PPITYPE.PPI_V; break; case 4: DataType = PPIV2.PPITYPE.PPI_S; break; case 5: DataType = PPIV2.PPITYPE.PPI_SM; break; } if (axS7_PPI1.ReadData(int.Parse(txtDataAddr.Text), ref vData, cmbLen.SelectedIndex+1 , (PPIV2.PPILEN)cmbDataMode.SelectedIndex, DataType, intAddr) == 0) { if (cmbDataMode.SelectedIndex == 3) { float[] fData = (float[])vData; txtData.Text = ""; for (int i = 0; i < fData.Length; i++) { txtData.Text += fData[i].ToString("0.00") + " "; } } else { Int32[] intData = (Int32[])vData; txtData.Text = ""; for (int i = 0; i < intData.Length; i++) { txtData.Text += intData[i].ToString() + " "; } } } else { txtData.Text = "ERROR"; } } /// <summary> /// 写数据 /// </summary> /// <param name="sender"></param> /// <param name="e"></param> private void btnWrite_Click(object sender, EventArgs e) { int intAddr = int.Parse(txtFixAddr.Text); object vData = new object(); /* [PPI_I] = &H81 [PPI_Q] = &H82 [PPI_M] = &H83 [PPI_V] = &H84 [PPI_S] = 4 [PPI_SM] = 5 */ PPIV2.PPITYPE DataType = PPIV2.PPITYPE.PPI_V; switch (cmbDataType.SelectedIndex) //数据类型 { case 0: DataType = PPIV2.PPITYPE.PPI_I; break; case 1: DataType = PPIV2.PPITYPE.PPI_Q; break; case 2: DataType = PPIV2.PPITYPE.PPI_M; break; case 3: DataType = PPIV2.PPITYPE.PPI_V; break; case 4: DataType = PPIV2.PPITYPE.PPI_S; break; case 5: DataType = PPIV2.PPITYPE.PPI_SM; break; } long lngRet = 0; if (cmbDataMode.SelectedIndex == 3) { float[] fData = new float[100]; fData[0] = float.Parse(txtData.Text); lngRet = axS7_PPI1.WriteData(int.Parse(txtDataAddr.Text), fData, 1, (PPIV2.PPILEN)cmbDataMode.SelectedIndex, DataType, intAddr); } else { Int32[] intData = new Int32[100]; intData[0] = Int32.Parse(txtData.Text); lngRet = axS7_PPI1.WriteData(int.Parse(txtDataAddr.Text), intData, 1, (PPIV2.PPILEN)cmbDataMode.SelectedIndex, DataType, intAddr); } if (lngRet != 0) { txtData.Text = "ERROR"; } }在VC中：
//读数据void CPPI_TestDlg::OnReadData(){ //pCombo->GetLBText (pCombo->GetCurSel (), strType); long lngFixAddr=0,lngDataAddr=0; char strAddr[255]; m_FixAddr.GetWindowText(strAddr,255); sscanf(strAddr,"%ld",&lngFixAddr); m_DataAddr.GetWindowText(strAddr,255); sscanf(strAddr,"%ld",&lngDataAddr); /* [PPI_I] = &H81 [PPI_Q] = &H82 [PPI_M] = &H83 [PPI_V] = &H84 [PPI_S] = 4 [PPI_SM] = 5 */ long DataType; switch (m_DataType.GetCurSel()) //数据类型 { case 0: DataType=0x81; break; case 1: DataType=0x82; break; case 2: DataType=0x83; break; case 3: DataType=0x84; break; case 4: DataType=0x4; break; case 5: DataType=0x5; break; } long lngRet; VARIANT vData; VariantInit (&vData); if(m_DataMode.GetCurSel()==3) //浮点数 { vData.vt = VT_R4 | VT_ARRAY; vData.parray=SafeArrayCreateVector(VT_R4, 0, 255 ); } else { vData.vt = VT_I4 | VT_ARRAY; vData.parray=SafeArrayCreateVector(VT_I4, 0, 255 ); //SAFEARRAY vd; } lngRet=m_PPI.ReadData(lngDataAddr,&vData,m_DataNum.GetCurSel()+1,m_DataMode.GetCurSel(),DataType,lngFixAddr); if(lngRet==0) { CString strData; if(m_DataMode.GetCurSel()==3) //浮点数 { float *fData; SafeArrayAccessData(vData.parray, (void**)&fData ); for(int i=0;i<m_DataNum.GetCurSel()+1;i++) //(int)vData.parray->cbElements { CString cData; cData.Format("%04.2f ",fData[i]); strData+= cData; } SafeArrayUnaccessData(vData.parray); } else { long *lngData; SafeArrayAccessData(vData.parray, (void**)&lngData ); for(int i=0;i<m_DataNum.GetCurSel()+1;i++) //(int)vData.parray->cbElements { CString cData; cData.Format("%ld ",lngData[i]); strData+= cData; } SafeArrayUnaccessData(vData.parray); } m_Data.SetWindowText(strData); } else { m_Data.SetWindowText(_T("ERROR")); } SafeArrayUnaccessData(vData.parray); SafeArrayDestroy(vData.parray); VariantClear(&vData);} //写数据void CPPI_TestDlg::OnWrite(){ long lngFixAddr=0,lngDataAddr=0; char strAddr[255]; m_FixAddr.GetWindowText(strAddr,255); sscanf(strAddr,"%ld",&lngFixAddr); m_DataAddr.GetWindowText(strAddr,255); sscanf(strAddr,"%ld",&lngDataAddr); long DataType; switch (m_DataType.GetCurSel()) { case 0: DataType=0x81; break; case 1: DataType=0x82; break; case 2: DataType=0x83; break; case 3: DataType=0x84; break; case 4: DataType=0x4; break; case 5: DataType=0x5; break; } long lngRet; VARIANT vData; VariantInit (&vData); if(m_DataMode.GetCurSel()==3) //浮点数 { vData.vt = VT_R4 | VT_ARRAY; vData.parray=SafeArrayCreateVector(VT_R4, 0, 255 ); float *fDatas,fData; SafeArrayAccessData(vData.parray, (void**)&fDatas ); m_Data.GetWindowText(strAddr,255); sscanf(strAddr,"%f",&fData); fDatas[0]=fData; SafeArrayUnaccessData(vData.parray); } else { vData.vt = VT_I4 | VT_ARRAY; vData.parray=SafeArrayCreateVector(VT_I4, 0, 255 ); //SAFEARRAY vd; long *lngDatas,lngData; SafeArrayAccessData(vData.parray, (void**)&lngDatas ); m_Data.GetWindowText(strAddr,255); sscanf(strAddr,"%ld",&lngData); lngDatas[0]=lngData; SafeArrayUnaccessData(vData.parray); } lngRet=m_PPI.WriteData(lngDataAddr,(const VARIANT &)vData,1,m_DataMode.GetCurSel(),DataType,lngFixAddr); if(lngRet!=0) { m_Data.SetWindowText(_T("ERROR")); } SafeArrayUnaccessData(vData.parray); SafeArrayDestroy(vData.parray); VariantClear(&vData);}- 用实例讲解Variant类型在VB、C#、VC中的参数传递
- Variant类型在各语言中的参数传递
- Variant类型在各语言中的参数传递
- vc和vb之间传递safearray时，vc中的char类型在vb中可能会出问题
- COM中的安全数组SAFEARRAY、与在VC++（VARIANT） C#（object）中调用
- 在COM方法中用VARIANT类型传递数组数据
- VC VB OCX传递参数郁闷记
- 谈VB自定义类型参数的传递
- VB几种函数参数传递方法，Variant，数组，Optional，ParamArray
- C＃中的参数传递
- C＃中的参数传递
- C＃中的参数传递
- C＃中的参数传递
- CJSON在C语言中的应用实例讲解
- C#、VB.NET、C++.NET中的按引用传递参数的方式比较
- 在VB中调用C/C++语言编写的dll，数组参数的传递
- 在VB中调用C/C++语言编写的dll，数组参数的传递
- 在VB中调用C/C++语言编写的dll，数组参数的传递
- KVO (Key-Value Observing) 键值观察模式
- 两个开源的社会网络分析工具（NodeXL，ORA）
- java regex 正则部分高级特性使用
- 农夫养牛
- 慎用mysql的utf8-unicode
- 用实例讲解Variant类型在VB、C#、VC中的参数传递
- 改善网站性能和改善数据库性能
- Android之Starting an Activity for a Result例子简介
- 如何让两个android程序共享资源
- Oracle 分析及动态采样
- 没什么亮点的第一篇呐…C++代码，求斐波那契（Fibonacci）数列的第n项，n可以为负数。递归算法，使用了记忆化搜索。
- 开发属于自己的在线编辑器--编辑器的界面
- jndi中在web.xml中配置的说明
- 多线程---（互斥体）
