.Net工业应用开发 [加入]

详细内容请参见：http://blog.csdn.net/yefanqiu/archive/2007/12/14/1934107.aspx

几年前我用VB开发了一个西门子PPI通信控件，由于VB开发的控件是标准的COM组件，所以想当然的认为VC、C#、Delphi等开发语言可以非常容易的使用。

前段时间由于该控件基于微软的MSCOMM控件，这个控件如果系统没有安装VB，单独注册好像很难成功，这害的一些没有装VB的用户，为了这个小控件必须安装一次VB，这实在是划算不来，所以直接用API串口函数进行了封装改进，这样不仅效率提高了，并且再也不需要MSCOMM控件了。

这一次，我不仅使该控件支持了浮点运算，并且在VC、C#（VB当然就不用多试了，以前就很好的支持）进行了兼容测试。

一试问题就来了，没有改进之前的控件，由于C#封装性能甚好，还能使用，唯一不足的是，控件方法中如果不要求返回的参数前面没有添加ByVal参数，在C#中就转换为 ref ***，害的你还得专门定义临时变量进行传参。

在VC中直接就不行，ReadData和WriteData等几个主要方法根本在VC中无法转换成对应函数经过测试，最后发现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中：

在C#中：

在VC中：

详细的示例请在下面的链接下载：

http://www.sky-walker.com.cn/yefan/PPIV2.rar

 

早期版本的控件下载链接：

http://www.sky-walker.com.cn/yefan/S7_PPI.rar

【标签】: 西门子PPI控件