Borland工程师好辛苦啊!首先得感叹这么一句!
前两天,看了一篇Delphi8的介绍,于是下来一个装上看看(可能是盗版的,不过我不会用于商业用途!),我使了5年的Delphi,从3到6,6以后就开始用.Net了。前段时间出了个C#Builder,兴奋的装上看了看,而已!
前段时间听说Borland要推出"超级"的VCL Framework,着有兴趣,因为总觉得microsoft不会真的推出For Linux的Framework,那么Mono更是遥遥无期(估计万不得已,ms会花一些money收掉他)。
装好Delphi8后,一启动以为和C#Builder差不多(一样启动界面风格,现在我还不解那个黑灰的设计,预示着什么?),根据前面看到的Delphi8的介绍,一直对Vcl控件不能兼容.Net控件不解,探个究竟!见了一个Vcl Forms的工程一看,还傻不啦叽相硬拖.Net控件,门都没有!
还好,Vcl类库是开放源码的(跟了ms一段时间,这样的习惯已经没了),一看才知道怎么回事事儿!Vcl的控件都是从System.ComponentModel.Component写下来的,怪不得与.Net控件不相容了。就拿TForm举例,其是从:System.ComponentModel.Component —〉TComponent —〉TControl —〉TWinControl —〉TScrollingWinControl —〉TCustomForm一路过来的,当然和System.Windows.Forms.Control下的.Net控件不是一路货了,TControl和Control分道扬镳。不过还好从类库的结构看上去,他们的组件还是可以兼容的,具体的就不一定了!
再看看Borland工程师写的Vcl源码,就好像开始说的那句话,好辛苦啊!既要完全兼容以前Delphi源码,又要支持.Net,不能再像以前那样无所忌惮的用API,用汇编,把System.Runtime.InteropServices.Marshal类用的个透熟!不知道还能不能跨平台,估计在什么Linux上,这帮Borland工程师们又要“好辛苦”了。再写一遍,反正我们比ms的men强,怕什么!
说了半天,两边的控件能不能互调,怎么互调啊?怎么让TControl包含Control,让Control包含TControl?
Delphi8安装后,发现程序菜单中有一个WinForms Controls的导入工具,哇,赶紧试一下!转了一个简单的控件,自己写的一个Button,没问题,工作的很好!先来看看怎么完成的:
TImpRulerPanel = class(TNetControlWrapper)
private
function GetRulerPanel: Hose.WinForm.RulerPanel;
protected
procedure InitControlData; override;
procedure HookNetEvents(AControl: System.Windows.Forms.Control); override;
procedure UnhookNetEvents(AControl: System.Windows.Forms.Control); override;
public
property RulerPanel: Hose.WinForm.RulerPanel read GetRulerPanel;
(我删除了不必要的部分)
在.net中调用过ActiveX控件的朋友一定知道,在.Net调用ActiveX控件时,DotNet会自动生成一个包装类,就像上面TImpRulerPanel一样,只不过Com对象的包装类是从AxHost继承的,这里的包装是从TNetControlWrapper继承的,手法很相像。AxHose通过GetOcx或得Com控件,这里直接可以获得,都是“一家”,自然要方便一些。我想将来,将Vcl控件包装到.Net中使用也不是什么难事。
但是在转换其他一些复杂一点的控件,比如包含自定义事件时,就会有一些问题,甚至产生莫名奇妙的错误,我会加强研究,在后来文章中的给大家介绍及其解决的方法。
现在用.Net IDE开发的同志我不推荐使用Delphi for .net,但现在使用老版本Delphi的同志,我强烈推荐。既可以保留Delphi的一些工程、编程习惯,又可以逐步过渡到.Net,使用.Net类库的强大功能,真是鱼和熊掌可以兼得阿,只是目前的界面控件的兼容上稍差一点。
另外Delphi8也比老版本的Delphi有一些其他方面的小进步,比如以前在编译时无法检验含有虚方法的类,现在则可以等。
总的来说,Delphi8还是非常值得使用.Net开发工具。只看了一小会儿,有什么谬论,希望大家指出和原谅,我也会不断地学习进步!
本文地址:http://com.8s8s.com/it/it45172.htm