用实例讲解Variant类型在VB、C#、VC中的参数传递

VB 前端之家
前端之家收集整理的这篇文章主要介绍了用实例讲解Variant类型在VB、C#、VC中的参数传递，前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。

　　几年前我用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还有个好处，就是各种类型的数据都可以传输，没有必要在另外添加接口函数了。

　　最后我定义的接口如下（主要接口）：

  1. 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 Long
  2.  
  3. Public Function WriteData(ByVal lngAddr As Long,ByVal vData As Variant,Optional ByVal Addr As Long = 0) As Long
  4. @H_403_28@ 

  5.  　　在VC中对应的接口如下： 
  6.  
  7.  
     
  8. long ReadData(long lngAddr,VARIANT* vData,long lngNum,long bytLen,long bytType,long Addr);
  10. long WriteData(long lngAddr,const VARIANT& vData,long Addr);
  11. @H_403_28@ 

  12.  　　在C#中的接口如下： 
  13.  
  14.  
     
  15.      public virtual int ReadData(int lngAddr,ref object vData);
  17.      public virtual int ReadData(int lngAddr,ref object vData,int lngNum,PPILEN bytLen,PPITYPE bytType,int addr);
  19.        public virtual int WriteData(int lngAddr,object vData);
  21.    public virtual int WriteData(int lngAddr,object vData,int addr);
  22. @H_403_28@ 

  23.  　　以为这样定义就万事大吉了，事后一试我又错了，在C#中没有任何问题（看了微软还是在C#上下了很大的功夫），在VC简单的定义一个VARIANT变量直接传递给控件，VB控件老是报错，根本无法使用。后来想为什么MSCOMM控件可以，我的控件不可以。天杀的MSCOMM肯定是VC开发的，而我的控件是VB开发的，VB和C#的包容性都很强，而VC却高高在上不肯屈就。 
  24.  
  25.  　　正一筹莫展准备放弃的时候，突然想到了以前用VC开发的OPC程序，上面有很多关于VARIANT的应用，一看就明白了，原来在VC中VARIANT的用法是有讲究的。
     
  26.  　　下面我就详细说一下控件同样的接口在不同语言中如何使用。
     
  27.  在VB中：
     
  28.  
     
  29.  
     
  30. Private Sub cmdReadData_Click()
  32.     On Error GoTo ToExit '打开错误陷阱
  34.     '------------------------------------------------
  36.     Dim i As Long
  38.     Dim bytType As Byte
  40.     Dim lngRet As Long
  42.     Dim lngData() As Long
  44.     Dim fData() As Single
  46.     Dim vData As Variant
  48.     Select Case cmbType.ListIndex
  50.     Case 0: bytType = PPI_I
  52.     Case 1: bytType = PPI_Q
  54.     Case 2: bytType = PPI_M
  56.     Case 3: bytType = PPI_V
  58.     Case 4: bytType = PPI_S
  60.     Case 5: bytType = PPI_SM
  62.     End Select
  64.     S7_PPI1.FixAddr = cmbNo.ListIndex + 1
  66.     lngRet = S7_PPI1.ReadData(Val(txtAddr),vData,Val(cmbNum.Text),Val(cmbLen.ListIndex),Val(bytType))
  68.     If lngRet = 0 Then
  70.         txtData = ""
  72.         If cmbLen.ListIndex = 3 Then
  74.             fData = vData
  76.             For i = 1 To Val(cmbNum.Text)
  78.                 txtData = txtData & Format(fData(i - 1),"0.00") & " "
  80.             Next
  82.         Else
  84.             lngData = vData
  86.             For i = 1 To Val(cmbNum.Text)
  88.                 txtData = txtData & Format(lngData(i - 1),"0") & " "
  90.             Next
  92.         End If
  94.     Else
  96.         txtData = "Error"
  98.     End If
  100.     '------------------------------------------------
  102.     Exit Sub
  104.     '----------------
  106. ToExit:
  108.     MsgBox Err.Description
  110. End Sub
  112. Private Sub cmdWriteData_Click()
  114.     On Error GoTo ToExit '打开错误陷阱
  116.     '------------------------------------------------
  118.     Dim bytType As Byte
  120.     Dim strData() As String
  122.     Dim lngRet As Long
  124.     Dim lngData(100) As Long
  126.     Dim fData(100) As Single
  128.     Dim i As Long
  130.     Select Case cmbType.ListIndex
  132.     Case 0: bytType = PPI_I
  134.     Case 1: bytType = PPI_Q
  136.     Case 2: bytType = PPI_M
  138.     Case 3: bytType = PPI_V
  140.     Case 4: bytType = PPI_S
  142.     Case 5: bytType = PPI_SM
  144.     End Select
  146.     If Len(txtData) > 0 Then
  148.         strData = Split(txtData," ")
  150.         If cmbLen.ListIndex = 3 Then
  152.             For i = 0 To UBound(strData)
  154.                 fData(i) = Val(strData(i))
  156.             Next
  158.             lngRet = S7_PPI1.WriteData(Val(txtAddr),fData,UBound(strData) + 1,Val(bytType),cmbNo.ListIndex + 1)
  160.         Else
  162.             For i = 0 To UBound(strData)
  164.                 lngData(i) = Val(strData(i))
  166.             Next
  168.             lngRet = S7_PPI1.WriteData(Val(txtAddr),lngData,cmbNo.ListIndex + 1)
  170.         End If
  172.         If lngRet = 0 Then
  174.             '
  176.         Else
  178.             txtData = "Error"
  180.         End If
  182.     End If
  184.     '------------------------------------------------
  186.     Exit Sub
  188.     '----------------
  190. ToExit:
  192.     MsgBox Err.Description
  194. End Sub
  195. @H_403_28@ 

  196.  

  197.  
  198.  
  199.  在C#中：
     
  200.  
     
  201. /// <summary>
  203.         /// 读数据
  205.         /// </summary>
  207.         /// <param name="sender"></param>
  209.         /// <param name="e"></param>
  211.         private void btnRead_Click(object sender,EventArgs e)
  213.         {
  215.             int intAddr = int.Parse(txtFixAddr.Text);
  217.             object vData = new object();
  219.           
  221.             /*
  223.             [PPI_I] = &H81
  225.             [PPI_Q] = &H82
  227.             [PPI_M] = &H83
  229.             [PPI_V] = &H84
  231.             [PPI_S] = 4
  233.             [PPI_SM] = 5
  235.             */
  237.             PPIV2.PPITYPE DataType= PPIV2.PPITYPE.PPI_V;
  239.             switch (cmbDataType.SelectedIndex)  //数据类型
  241.             {
  243.                 case 0:
  245.                     DataType = PPIV2.PPITYPE.PPI_I;
  247.                     break;
  249.                 case 1:
  251.                     DataType = PPIV2.PPITYPE.PPI_Q;
  253.                     break;
  255.                 case 2:
  257.                     DataType = PPIV2.PPITYPE.PPI_M;
  259.                     break;
  261.                 case 3:
  263.                     DataType = PPIV2.PPITYPE.PPI_V;
  265.                     break;
  267.                 case 4:
  269.                     DataType = PPIV2.PPITYPE.PPI_S;
  271.                     break;
  273.                 case 5:
  275.                     DataType = PPIV2.PPITYPE.PPI_SM;
  277.                     break;
  279.             }
  281.             if (axS7_PPI1.ReadData(int.Parse(txtDataAddr.Text),ref vData,cmbLen.SelectedIndex+1,(PPIV2.PPILEN)cmbDataMode.SelectedIndex,DataType,intAddr) == 0)
  283.             {
  285.                 if (cmbDataMode.SelectedIndex == 3)
  287.                 {
  289.                     float[] fData = (float[])vData;
  291.                     txtData.Text = "";
  293.                     for (int i = 0; i < fData.Length; i++)
  295.                     {
  297.                         txtData.Text += fData[i].ToString("0.00") + " ";
  299.                     }
  301.                 }
  303.                 else
  305.                 {
  307.                     Int32[] intData = (Int32[])vData;
  309.                     txtData.Text = "";
  311.                     for (int i = 0; i < intData.Length; i++)
  313.                     {
  315.                         txtData.Text += intData[i].ToString() + " ";
  317.                     }
  319.                 }
  321.             }
  323.             else
  325.             {
  327.                 txtData.Text = "ERROR";
  329.             }
  331.         }
  333.  
  335.         /// <summary>
  337.         /// 写数据
  339.         /// </summary>
  341.         /// <param name="sender"></param>
  343.         /// <param name="e"></param>
  345.         private void btnWrite_Click(object sender,EventArgs e)
  347.         {        
  349.  
  351.             int intAddr = int.Parse(txtFixAddr.Text);
  353.             object vData = new object();
  355.  
  357.             /*
  359.             [PPI_I] = &H81
  361.             [PPI_Q] = &H82
  363.             [PPI_M] = &H83
  365.             [PPI_V] = &H84
  367.             [PPI_S] = 4
  369.             [PPI_SM] = 5
  371.             */
  373.             PPIV2.PPITYPE DataType = PPIV2.PPITYPE.PPI_V;
  375.             switch (cmbDataType.SelectedIndex)  //数据类型
  377.             {
  379.                 case 0:
  381.                     DataType = PPIV2.PPITYPE.PPI_I;
  383.                     break;
  385.                 case 1:
  387.                     DataType = PPIV2.PPITYPE.PPI_Q;
  389.                     break;
  391.                 case 2:
  393.                     DataType = PPIV2.PPITYPE.PPI_M;
  395.                     break;
  397.                 case 3:
  399.                     DataType = PPIV2.PPITYPE.PPI_V;
  401.                     break;
  403.                 case 4:
  405.                     DataType = PPIV2.PPITYPE.PPI_S;
  407.                     break;
  409.                 case 5:
  411.                     DataType = PPIV2.PPITYPE.PPI_SM;
  413.                     break;
  415.             }
  417.             long lngRet = 0;
  419.             if (cmbDataMode.SelectedIndex == 3)
  421.             {
  423.                 float[] fData = new float[100];
  425.                 fData[0] = float.Parse(txtData.Text);
  427.                 lngRet = axS7_PPI1.WriteData(int.Parse(txtDataAddr.Text),1,intAddr);
  429.             }
  431.             else
  433.             {
  435.                 Int32[] intData = new Int32[100];
  437.                 intData[0] = Int32.Parse(txtData.Text);
  439.                 lngRet = axS7_PPI1.WriteData(int.Parse(txtDataAddr.Text),intData,intAddr);
  441.             }
  443.             if (lngRet != 0)
  445.             {
  447.                 txtData.Text = "ERROR";
  449.             }
  451.         }
  452. @H_403_28@ 

  453.  

  454.  在VC中： 
  455.  
  456.  
     
     
     
  457. //读数据
  459. void CPPI_TestDlg::OnReadData()
  461. {
  463.        //pCombo->GetLBText (pCombo->GetCurSel (),strType);
  465.        long lngFixAddr=0,lngDataAddr=0;
  467.        char strAddr[255];
  469.        m_FixAddr.GetWindowText(strAddr,255);
  471.        sscanf(strAddr,"%ld",&lngFixAddr);
  473.       
  475.        m_DataAddr.GetWindowText(strAddr,&lngDataAddr);
  477.     /*
  479.        [PPI_I] = &H81
  481.     [PPI_Q] = &H82
  483.     [PPI_M] = &H83
  485.     [PPI_V] = &H84
  487.     [PPI_S] = 4
  489.     [PPI_SM] = 5
  491.        */
  493.     long DataType;
  495.        switch (m_DataType.GetCurSel())  //数据类型
  497.        {
  499.        case 0:
  501.               DataType=0x81; 
  503.               break;
  505.        case 1:
  507.               DataType=0x82;
  509.               break;
  511.        case 2:
  513.               DataType=0x83;
  515.               break;
  517.        case 3:
  519.               DataType=0x84;
  521.               break;
  523.        case 4:
  525.               DataType=0x4;
  527.               break;
  529.        case 5:
  531.               DataType=0x5;
  533.               break;
  535.        }
  537.  
  539.        long lngRet;
  541.     VARIANT vData;
  543.        VariantInit (&vData);
  545.        if(m_DataMode.GetCurSel()==3)  //浮点数
  547.        {
  549.            vData.vt = VT_R4 | VT_ARRAY;
  551.            vData.parray=SafeArrayCreateVector(VT_R4,255 );    
  553.        }
  555.        else
  557.        {
  559.            vData.vt = VT_I4 | VT_ARRAY;
  561.            vData.parray=SafeArrayCreateVector(VT_I4,255 );     //SAFEARRAY vd;
  563.        }   
  565.        lngRet=m_PPI.ReadData(lngDataAddr,&vData,m_Datanum.GetCurSel()+1,m_DataMode.GetCurSel(),lngFixAddr);
  567.        if(lngRet==0)
  569.        {
  571.               CString strData;
  573.               if(m_DataMode.GetCurSel()==3)  //浮点数
  575.               {
  577.                      float *fData;
  579.                      SafeArrayAccessData(vData.parray,(void**)&fData );
  581.                      for(int i=0;i<m_Datanum.GetCurSel()+1;i++)  //(int)vData.parray->cbElements
  583.                      {
  585.                         CString cData;
  587.                         cData.Format("%04.2f ",fData[i]);
  589.                         strData+= cData;
  591.                      }
  593.                      SafeArrayUnaccessData(vData.parray);
  595.               }
  597.               else
  599.               {
  601.                      long *lngData;
  603.                      SafeArrayAccessData(vData.parray,(void**)&lngData );
  605.                      for(int i=0;i<m_Datanum.GetCurSel()+1;i++)  //(int)vData.parray->cbElements
  607.                      {
  609.                         CString cData;
  611.                         cData.Format("%ld ",lngData[i]);
  613.                         strData+= cData;
  615.                      }
  617.                      SafeArrayUnaccessData(vData.parray);
  619.               }
  621.  
  623.               m_Data.SetWindowText(strData);
  625.        }
  627.        else
  629.        {
  631.         m_Data.SetWindowText(_T("ERROR"));
  633.        }
  635.        SafeArrayUnaccessData(vData.parray);
  637.        SafeArrayDestroy(vData.parray);
  639.     VariantClear(&vData);
  641. }
  643.  
  645. //写数据
  647. void CPPI_TestDlg::OnWrite()
  649. {
  651.        long lngFixAddr=0,&lngDataAddr);
  653.  
  655.     long DataType;
  657.        switch (m_DataType.GetCurSel())
  659.        {
  661.        case 0:
  663.               DataType=0x81;
  665.               break;
  667.        case 1:
  669.               DataType=0x82;
  671.               break;
  673.        case 2:
  675.               DataType=0x83;
  677.               break;
  679.        case 3:
  681.               DataType=0x84;
  683.               break;
  685.        case 4:
  687.               DataType=0x4;
  689.               break;
  691.        case 5:
  693.               DataType=0x5;
  695.               break;
  697.        }
  699.        long lngRet;
  701.     VARIANT vData;
  703.        VariantInit (&vData);
  705.        if(m_DataMode.GetCurSel()==3)  //浮点数
  707.        {
  709.            vData.vt = VT_R4 | VT_ARRAY;
  711.            vData.parray=SafeArrayCreateVector(VT_R4,255 );
  713.              
  715.               float *fDatas,fData;
  717.               SafeArrayAccessData(vData.parray,(void**)&fDatas );
  719.               m_Data.GetWindowText(strAddr,255);
  721.               sscanf(strAddr,"%f",&fData);
  723.               fDatas[0]=fData;
  725.               SafeArrayUnaccessData(vData.parray);
  727.        }
  729.        else
  731.        {
  733.            vData.vt = VT_I4 | VT_ARRAY;
  735.            vData.parray=SafeArrayCreateVector(VT_I4,255 );     //SAFEARRAY vd;
  737.              
  739.               long *lngDatas,lngData;
  741.               SafeArrayAccessData(vData.parray,(void**)&lngDatas );
  743.               m_Data.GetWindowText(strAddr,&lngData);
  745.               lngDatas[0]=lngData;
  747.               SafeArrayUnaccessData(vData.parray);
  749.        }
  751.  
  753.     lngRet=m_PPI.WriteData(lngDataAddr,(const VARIANT &)vData,lngFixAddr);
  755.        if(lngRet!=0)
  757.        {
  759.               m_Data.SetWindowText(_T("ERROR"));
  761.        }
  763.        SafeArrayUnaccessData(vData.parray);
  765.        SafeArrayDestroy(vData.parray);
  767.     VariantClear(&vData);
  769. }@H_403_28@

      

      
                 
              

            

          

          
          
          

            

              




            

          


          

            

              

                  
    
猜你在找的VB相关文章



                                    
VB Format函数

                                
Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 --------------...

                                
                                
                            



                                    
vb6/ASP FORMAT MM/DD/YYYY

                                
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式，竟然没有好的办法， Format 或者FormatDateTi...

                                
                                
                            



                                    
VB.net 捕获项目全局异常

                                
在项目中添加如下代码：新建窗口来显示异常信息。 Namespace My
    ‘全局错误处理，新的...

                                
                                
                            



                                    
实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法

                                
转了这一篇文章，原来一直想用C#做k3的插件开发，vb没有C#用的爽呀，这篇文章写与2011年，...

                                
                                
                            



                                    
vb，wps，excel 分裂

                                
Sub 分列()
    ‘以空格为分隔符，连续空格只算1个。对所选中的单元格进行处理
    Dim m...

                                
                                
                            







                                    
VB.NET MYSQL DataGridView 增删改查（INSERT,SELECT,UPDATE,DELETE）

                                
  Imports MySql.Data.MySqlClient


Public Class Form1


    ‘ GLOBAL DECLARATIONS
...

                                
                                
                            



                                    
VB.NET 使用ADODB連接資料庫滙出到EXCEL

                                
‘導入命名空間 Imports ADODB Imports Microsoft.Office.Interop   Private Sub A1() Di...

                                
                                
                            



                                    
vb.net 多线程運用 ping

                                
Imports System.IO Imports System.Threading Imports System.Diagnostics Public Class F...

                                
                                
                            



                                    
VB等待进程结束

                                
VB运行EXE程序，并等待其运行结束 参考：https://blog.csdn.net/useway/article/details/5...

                                
                                
                            



                                    
vb中去掉string数组的一部分

                                
今天碰到一个问题，登陆的时候，如果不需要验证手机号为空，则不去验证手机号 因为登陆的时...

                                
                                
                            







            

          

        

        
        
        
        

          
          

            

              

                
                
PHPJavaJava SEPythonC#C&C++RubyVBasp.NetGoPerlnettyDjangoDelphiJsp.NET CoreSpringFlaskSpringbootSpringMVCLuaLaravelMybatisAspGroovyThinkPHPYiiswoole

                

              

            

          

          
         
          

            

              
 



              

            

          

          
          
          
          

            

              

                
                
              

            

          

          


          
          

            

              

                
                
文件时间pythonm相等性PHP Warning时间问题问题解决pcntl_signal采样点wav模块动态文本调用频率限制对外暴露多个访问请求更新数据表模型结构type()方法比较速度手写体sobel算子保存模型Image类nn.Conv2dpytorch1.0kaggleDCGAN交并比range()用法打印模型反卷积卷积