几年前我用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) //数据类型
{
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.Se