发信人: hyy (活着便精彩), 信区: BorlandDev
标  题: D8浅析
发信站: 哈工大紫丁香 (Sat Dec 27 14:08:25 2003), 站内信件

本文章只是作者这两天试用D8并对VCL.net源码稍微查看了一下，作出的一些分 
析判断，时间水平有限请见谅 cocoboy79#163.com  qq:364941)
下文中:D7代表基于Win32版本的Delphi，D8代表Delphi 8 for .net __________________
_______________________________________________________
 一直在使用Delphi编程，也一直关注.net技术。又是时代变化的时候了，VCl.net对于我
们来说是一个完美的.net解决方案么?还是用于过度的桥梁?，如果你和我一样使用Delphi
，那么我们是时候思考一下如何利用现有的Delphi技能更快的搭上.net快车。下面是这两
天稍使用了一下Delphi8而总结一点东西，共同分享，共同思考。
TList:
   我们都知道TList实际上是一个功能强大的地址列表，这种数据结构非常有用。对于一
个在D7中的TList的实例来说，这个地址列表中每一个项目(Item)是一个Pointer类型，你
可以像下面程序一样，把对象变量或是一个值类型的指针(比如一个指向Record型的指针变
量)存放到里面，在需要时取出来，并可以进行运行期类型转换。
var
 myList:TList;
 myLab:TLabel;
 i:integer;
begin
  myList:=TList.Create;
  for i:=0 to 10 do
  begin
    myLab:=TLabel.Create(self);
    myLab.Parent:=Self;
    myLab.Caption:='这是第 '+IntToStr(i)+' 个';
    myList.Add(myLab);
  end;
  for i:=0 to myList.Count-1 do
  begin
    ShowMessage( TLabel(myList.Items[i]).Caption );
  end;
end;

  在.net中你也会找到与之相像的一个东西，它就是.net中的ArrayList(System.Collect
ions.ArrayList)，我在大概看了一下发现ArrayList可以说是
TList的一个增强，唯一不足的就是它不开放源码，我们没办法看到是如何实现的。而且我
们会发现D8中的TList的实现也与ArrayList有关。　

 让我们来稍微看一下D7与D8中TList的源码的声明吧，（整个类声明请查看D7,8的TList源
码，对于不开源的ArrayList就无能为力了）



这是D7中的TList的一些声明
FList: PPointerList;
property List: PPointerList read FList;
function Add(Item: Pointer): Integer;
function First: Pointer;
function Last: Pointer;

这是D8中的TList的一些声明
FList: System.Collections.ArrayList;
property List: System.Collections.ArrayList read FList;
function Add(Item: TObject): Integer;
function First: TObject;
function Last: TObject;

这是在D7是PpointerList的声明：
PPointerList = ^TPointerList;
TPointerList = array[0..MaxListSize - 1] of Pointer;

   看一下D7的TList，TList内部维护的Flist是一个PpointerList，实际上就是一个指向
TpointerList的指针，（如最上面的程序，myList.Add(myLab)实际上就是往Flist中增加
元素）TpointerList是一个静态的元素为无类型指针的数组。Pointer类型为无类型指针，
这个在D7中的Pointer在D8的.net mangaged环境已经不能使用了，如果你在Vcl.net工程中
声明一个Pointer变量，按f9会被告知： UnSafe pointer variables,parameters or con
sts only allowed in unsafe procedure 。所以上面D8的TList源码声明中的所有Pointe
r已经变成了Tobject，(注意这个TObject其实已经不是原先D7那个TObject了，它是：Sys
tem.Object,这个等会再说。)。引用的一篇文章的一句话：Pointer -- There is a Poin
ter type, but in safe code Pointer is a reference to an object. You can't do p
ointer math on it.（http://delphi.weblogs.com），在.net的managed环境中指针代表
对象的引用。即然原先的Pointer已经不能用了，那么Flist:PpointerList也就不能成立，
于是它在D8中被改成了FList: System.Collections.ArrayList，所有Pointer都成了Tobe
jct。那么ArrayList，请去看看.Net的MSDN，功能上完全可以充当一个指针数组，只不过它的元素由Pointer变成了Tobject类型。

  其实看完了想想上面这个问题也很简单，就是一个寻找替代品的问题，看看D8的TList各
方法的源码基本都没有变。后来我又看了一个其它类的源码发现在VCL.net中有好多这种’
替代情况’，当原先的Delphi语言元素在.net环境中不便于或不能使用时，总会有一个.n
et framework中的替代品。



TObject：


 打开D8中的　Borland.Delphi.System.pas只看一下上面几行
  type
 TObject = System.Object;
 TCustomAttribute = System.Attribute;
 Exception = System.Exception;
 TGUID = System.Guid;
   

 这与D7的TObject,Exception类的定义已经大不相同了，在D8中TObject就是.net的Syste
m.Object,另外那个Exception也一样。“.NET Framework 中的所有类均从 Object 派生，
所以 Object 类中定义的每个方法可用于系统中的所有对象。派生类可以而且确实重写这
些方法中的某些，其中包括：”-------来自MSDN，那么就很自然了，原先VCL的TObject的
地位和作用与上面MSDN里对System.Object类描述一样，那VCL要移植到.net就必须照办，
即TObject定义为System.Object，而对于子类来说，声明还是subclass=class(TObject) 
，但实际上已经是System.Object了，底层处理完全由.net framework来进行。而且没有S
ystem.Object的源码我们也不知道它干了什么。



TComponent:

 新建一个VCL.net工程，然后在Form上放一个Tedit或是Tmemo按f9，你会发现在代码编辑
器上面的uses里比以前多了一个System.ComponentModel,如下所示。

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, System.ComponentModel, Borland.Vcl.StdCtrls;
   这是为什么？也是很简单，打开Borland.Vcl.Classes.pas文件找到114行有如下声明：
TComponent = System.ComponentModel.Component;好了。。和TObject一样我们现在的Tc
omponet已经和原先那个完全不同了，只是具有相同的名字，而且你也不用操心Tcomponen
t怎么实现的了，因为System.ComponentModel.Component的源码是不公开的。类似的还有
  TPersistent = System.MarshalByRefObject　等等。


 Windows.Pas

 我们看一下这个单元吧，里面有一些对Windows Api的直接声明和调用。打开Borland.Vc
l.Windows.pas找到19871行，看看implementation下面的一些Api的
声明如下：


[DllImport(advapi32, CharSet = CharSet.Ansi, SetLastError = True, EntryPoint =
 'AbortSystemShutdown')]

function AbortSystemShutdown; external;


 上面那个[Dll...　]学过点.net的都知道是Attribute，是一种新东东好像Java里也没这
个，算是.net原创的了（具体怎么用在csdn文档区见过一系相关文章请找一下）对于[Dll
 Import ……….]看一下MSDN：“ DllImportAttribute 属性提供对从非托管 DLL 导出的
函数进行调用所必需的信息。作为最低要求，必须提供包含入口点的 DLL 的名称。”也就
是说在.net里要使用一个像Windows Api所在的DLL或是普通基于Win32的DLL这样的库时都
要像这种格式先用Attribute声明，然后.net系统就会知道这是一个非安全代码组成的程序
，于是像下图这样进行调用。我个人认为这种方法并不是‘纯.net的方法’，只是能够让
程序运行而已，是一种兼容的方法。换言之VCL.net在某种程度上说是兼容运行于.net平台
的，并不是.net原生方式，或者说在一定程度上是以Win32程序的托管方式运行，所以……
…(纯属个人想法)。请参考下图：



（以下图及注解摘自MSDN.net）


当“平台调用”调用非托管函数时，它将依次执行以下操作： 

查找包含该函数的 DLL。 
将该 DLL 加载到内存中。 
查找函数在内存中的地址并将其参数推到堆栈上，以封送所需的数据。 注意   只在第一
次调用函数时，才会查找和加载 DLL 并查找函数在内存中的地址。 
将控制权转移给非托管函数。 
平台调用会向托管调用方引发由非托管函数生成的异常。

总结：
   这几天除了稍使用了一下Delphi8外，还到borland的以及一些vcl第3方供应商(devexp
ress.com)的newsgroup上看了一下，个人现在认为VCL.net(或者说Delphi for .net)能够
让Delphi程序员比较省事的过度到.net平台进行开发。但这并不意味着我们就不用去学C#
和.net framework，学这两样东西早晚的事，我看重要的还是学习.net framework。Micr
osoft现在把.net系统低层功能也用类库的方式实现，Microsoft下一代OS也是基于.net，
到时像上面这种Windows Api调用能不能用还不得而知，估计就算能用也永远不是最好的办
法了。所以个人估计Borland是不是在忙完了他的很长的产品线的更新换代以及发展像ECO
这样高层技术后，是否考虑重新构造类库？D8中的BDP以及ECO算不是是新类库的冰山一角
呢？还是Borland只是在局部做一些与Microsoft技术对应的东西，
比如BDP-ADO.NET ECO-object Space 。

个人看来可以利用VCL.net的便利把以前的可能用于.net的VCL程序移植成.net的。然后还
是用Delphi Language就着MSDN.net来学习如何运用.net frameWork吧。不过VCL或VCL.ne
t由于开放源码，并且后者有很多地方与.net frameWork相结合，所以对于学习来说是很宝
贵的资料，应该可以学习很多设计思路。

　　　　　　　　　　　　　　　　　　　　　　　　　　　by ithink79

                                                     2003-12-25

--
     ________     ________
   /|        \   /        |\
  /||         \ /         ||\
  |||          |          |||
  ||| 向你推荐 | Delphi   |||
  |||          |          |||

※ 来源:．哈工大紫丁香 bbs.hit.edu.cn [FROM: 202.118.235.183]