2. 程式人生 > >Variant型別在各語言中的引數傳遞

Variant型別在各語言中的引數傳遞

阿新 • • 發佈：2018-11-15

分享一下我老師大神的人工智慧教程！零基礎，通俗易懂！http://blog.csdn.net/jiangjunshow

也歡迎大家轉載本篇文章。分享知識，造福人民，實現我們中華民族偉大復興！

               

幾年前我用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 Long

Public 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.Description

End Sub

Private 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.Description

End 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)  //

給我老師的人工智慧教程打call！http://blog.csdn.net/jiangjunshow

這裡寫圖片描述

相關推薦

Variant型別在各語言中的引數傳遞

分享一下我老師大神的人工智慧教程！零基礎，通俗易懂！http://blog.csdn.net/jiangjunshow 也歡迎大家轉載本篇文章。分享知識，造福人民，實現我們中華民族偉大復興！        

Java中引數傳遞方式

java語言方法中引數的傳遞全部都是值傳遞，即只傳遞引數的副本。 所以當引數為基本資料型別時，方法不能改變實參，而只能改變其副本； 當引數為物件型別時，其引數為物件引用（地址），對物件的操作直接影響實參，而形參（地址）無法改變，表現為： args1 = new Object();//

java中引數傳遞

package com.cc; public class Hello {public static void main(String[] args) {String a = "String";StringBuffer b = new StringBuffer("String

python中引數傳遞

在程式語言中，函式的引數傳遞有兩種情況： 按值型別傳遞 num = 10 def double(arg): arg=arg*2 print(arg) double(num) 呼

從暫存器看I386和x64位中函式呼叫中引數傳遞

x86_64基本使用暫存器儲存函式引數，暫存器不夠才入棧； 而i386將所有引數儲存在棧上，通過gcc的擴充套件功能__attribute__((regparm()))即可實現部分引數的暫存器傳遞。 除錯語法： --《深入理解計算機系統(原書第2版)》 程式碼 #inc

java方法中引數傳遞小結

很簡單的java基礎，竟然有點遺忘了，是在不改，爛筆頭記錄一下。   1、當物件作為引數傳遞時，傳遞的是物件的引用，也就是物件的地址。值實時更新！(一般專案中常見的物件作為引數很多，記住物件會在方法中實時更新！！！因為方法中操作的是同一個物件) public clas

C語言中函式傳遞（實參 形參）

形參：在被調函式形參表中的變數名、陣列名，該過程在被呼叫前，沒有為它們分配記憶體，其作用是說明自變數的型別和形態以及在過程中的作用。  形參可以是 合法變數名，陣列名  實參：從主調過程傳遞給被呼叫過程的引數值。實參可以是變數名、陣列名、常數或表示式。在過程呼叫  傳遞引

C語言中指標傳遞問題

要求：通過呼叫函式實現兩個值的交換 例如：輸入5,9 —– 輸出9,5 不能到達預期的結果的程式碼 #include<stdio.h> void main() { void swap(int *p1, int *p2)

C語言函式引數傳遞原理

C語言中引數的傳遞方式一般存在兩種方式：一種是通過棧的形式傳遞，另一種是通過暫存器的方式傳遞的。這次，我們只是詳細描述一下第一種引數傳遞方式，另外一種方式在這裡不做詳細介紹。 首先，我們看一下，下面一個簡單的呼叫例程： int Add (int a, int b, int

【C++筆記】函式中引數傳遞

函式中引數是如何傳遞的呢？ 在《C++Primer》一書中提到： “Each time we call a function, its parameters are created and initialized by the arguments passed in the

菜鳥學習-C語言函式引數傳遞詳解-結構體與陣列

C語言中結構體作為函式引數，有兩種方式：傳值和傳址。 1．傳值時結構體引數會被拷貝一份，在函式體內修改結構體引數成員的值實際上是修改呼叫引數的一個臨時拷貝的成員的值，這不會影響到呼叫引數。在這種情況下，涉及到結構體引數的拷貝，程式空間及時間效率都會受到影

js 中引數傳遞（值傳遞和引用傳遞）

js中的引數傳遞包括值傳遞和引用傳遞 1.值傳遞（數字，字串等） 例如： $(function(){ var str="11"; test1(str); alert(str);//值傳遞測試 結果：11 }) function test1(str){ s

python中的的各型別變數及作為引數的特點

概念： 所有的變數都可以理解為記憶體中的一個物件的“引用”。型別是屬於物件的，而不是變數。而物件有兩種，“可更改”與“不可更改”物件。在python中，strings，tuples和numbers是不可更改的物件，而list,dict,set等則屬於可以修改的物件。 下面來看下例子（numb

C語言中函式引數傳遞的兩種方式

問題及程式碼： /* *完成日期：2018.10.2 * *問題描述：c語言函式引數傳遞的兩種方式 * */ #include <stdio.h> void swap1(int x, int y); //對交換函式myswap1的提前宣告 (傳值

Winform中Combox繫結資料來源 型別作為引數傳遞

//呼叫 IniCombox(cbChannelName, typeof(Model.SystemEnum.ChannelName)); //具體實現 public void IniCombox(Relations.Control.ComBox cb, Type type)

C#中值型別和引用型別引數傳遞

原則：儘可能控制對資料的修改，如果可以預測某個資料不會或不應該被改變，就要對其控制，而不要期望使用這個資料的呼叫者不會改變其值。 如果引數在使用過程中被意外修改，將會帶來不可預知的結果，而且這種錯誤很難被檢查到，所以我們在設計方法引數的時候，要充分考慮傳遞引用型別引數或者引用方式傳遞引用型別

Java語言中的方法引數——值傳遞與引用傳遞

Java語言中的方法引數有兩種： 1、基本資料型別（數字、布林值） 2、物件引用 基於方法引數的傳遞有兩種方式：值傳遞和引用傳遞。 值傳遞表示方法接收的是呼叫者提供的值。 引用傳遞表示方法接收的是呼叫者提供的變數地址。 Java程式設計語言總是採用按值傳遞的方式，也就是說

js中的型別和函式引數傳遞型別問題

js中的型別： 2大型別：原始型別和物件。 原始型別有 boolean、number、string這三個普通原始型別，還有null、undefined這倆特殊原始型別 物件嘛就多了，普通物件、內建物件、全域性物件、函式、陣列等。 函式引數傳遞型別：   對於原始型別，傳遞的是值，

\t\t在MSSQL中定義和使用C#自定義型別 SQL Server08表型別引數傳遞

在學習SQL Server 2008的過程中，突然發現SQL Server支援自定義表型別，我們可以輕鬆的將一個SQL Server 2008表型別作為引數傳遞給儲存過程。C#下實現了SQL Server 2008表型別引數傳遞本示例中用到的型別在資料庫中的位置：建立一個自定義表型別CREATE TYPE [

在C語言中各種資料型別各佔多少位

（一）32位平臺：分為有符號型與無符號型。有符號型：short 在記憶體中佔兩個位元組，範圍為-2^15~（2^15-1)int 在記憶體中佔四個位元組，範圍為-2^31~（2^31-1）long在記憶體中佔四個位元組，範圍為-2^31~2^31-1無符號型：最高位不表示符號位unsigned short 在