Delphi的元件讀寫機制（一） (轉)

Delphi的元件讀寫機制（一） (轉)[@more@]

的讀寫機制（一）

一、流式(Stream)和讀寫物件（Filer）的介紹
 在物件導向設計中，物件式資料管理佔有很重要的地位。在Delphi中，對物件式資料管理的支援方式是其一大特色。
 Delphi是一個物件導向的視覺化設計與物件導向的語言相結合的整合開發環境。Delphi的核心是元件。元件是物件的一種。Delphi應用程式完全是由元件來構造的，因此開發高的Delphi應用程式必然會涉及物件式資料管理技術。

 物件式資料管理包括兩方面的內容：
● 用物件來管理資料
● 對各類資料物件（包括物件和元件）的管理

 Delphi將物件式資料管理類歸結為Stream物件(Stream)和Filer物件(Filer)，並將它們應用於可視元件類庫（VCL）的方方面面。它們提供了豐富的在、外存和資源中管理物件的功能，
 Stream物件，又稱流式物件，是TStream、THandleStream、TFileStream、TMemoryStream、TReStream和TBlobStream等的統稱。它們分別代表了在各種媒介上資料的能力，它們將各種資料型別(包括物件和元件) 在記憶體、外存和欄位中的管理操作抽象為物件方法，並且充分利用了物件導向技術的優點，應用程式可以相當容易地在各種Stream物件中複製資料。
 讀寫物件（Filer）包括TFiler物件、TReader物件和TWriter物件。TFiler物件是讀寫的基礎物件，在應用程式中使用的主要是TReader和TWriter。TReader和TWriter物件都直接從TFiler物件繼承。TFiler物件定義了Filer物件的基本屬性和方法。
　　Filer物件主要完成兩大功能：
● 存取窗體檔案和窗體檔案中的元件
● 提供資料緩衝，加快資料讀寫操作

 為了對流式物件和讀寫物件有一個感性的認識，先來看一個例子。
a)寫檔案
procedure TFomr1.WriteData (Sender: T); r;
Var
  FileStream:TFilestream;
  Mywriter:TWriter;
  i: integer
Begin
  FileStream:=TFilestream.create(‘c:Test.txt’,fmopenwrite);//建立檔案流物件
  Mywriter:=TWriter.create(FileStream,1024);　//把Mywriter和FileStream聯絡起來
  Mywriter. writelistbegin; 　//寫入列表開始標誌
  For i:=0 to Memo1.lines.count-1 do 　　
  Mywriter.writestring(memo1.lines［i］);　//儲存Memo元件中文字資訊到檔案中
  Mywriter.writelistend; 　　　　　　　　　//寫入列表結束標誌
  FileStream.seek(0,sofrombeginning);　//檔案流物件指標移到流起始位置
  Mywriter.free; //釋放Mywriter物件
  FileStream.free; //釋放FileStream物件
End;
 
b)讀檔案
procedure TForm1.ReadData(Sender: TObject);
Var
  FileStream:TFilestream;
  Myreader:TReader;
Begin
  FileStream:=TFilestream.create(‘c:Test.txt’,fmopenread);
  Myreader:=TRreader.create(FileStream,1024); //把Myreader和FileStream聯絡起來
  Myreader.readlistbegin; 　//把寫入的列表開始標誌讀出來
  Memo1.lines.clear;  //清除Memo1元件的文字內容
  While not myreader.endoflist do　//注意TReader的一個方法:endoflist
  Begin
  Memo1.lines.add(myreader.readstring); //把讀出的字串加到Memo1元件中
  End;
  Myreader.readlistend;　//把寫入的列表結束標誌讀出來
  Myreader.free;　　//釋放Myreader物件
  FileStream.free;　//釋放FileStream物件
End;
 上面兩個過程，一個為寫過程，另一個為讀過程。寫過程透過TWriter，利用TFilestream把一個Memo中的內容（文字資訊）存為一個儲存在上的二進位制檔案。讀過程剛好和寫過程相反，透過TReader，利用TFilestream把二進位制檔案中的內容轉換為文字資訊並顯示在Memo中。執行程式可以看到，讀過程忠實的把寫過程所儲存的資訊進行了還原。
 下圖描述了資料物件（包括物件和元件）、流式物件和讀寫物件之間的關係。
 
 圖（一）

 值得注意的是，讀寫物件如TFiler物件、TReader物件和TWriter物件等很少由應用程式編寫者進行直接的，它通常用來讀寫元件的狀態，它在讀寫元件機制中扮演著非常重要的角色。
對於流式物件Stream，很多參考資料上都有很詳細的介紹，而TFiler物件、TReader物件和TWriter物件特別是元件讀寫機制的參考資料則很少見，本文將透過對VCL原始碼的跟蹤而對元件讀寫機制進行剖析。

二、讀寫物件(Filer)與元件讀寫機制
 Filer物件主要用於存取Delphi的窗體檔案和窗體檔案中的元件，所以要清楚地理解Filer物件就要清楚Delphi 窗體檔案(DFM檔案)的結構。
　　DFM檔案是用於Delphi儲存窗體的。窗體是Delphi視覺化程式設計的核心。窗體對應Delphi應用程式中的視窗，窗體中的可視元件對應視窗中的介面元素，非可視元件如TTimer和TOpenDialog，對應Delphi應用程式的某項功能。Delphi應用程式的設計實際上是以窗體的設計為中心。因此，DFM檔案在Delphi應用設計中也佔很重要的位置。窗體中的所有元素包括窗體自身的屬性都包含在DFM檔案中。
　　在Delphi應用程式視窗中，介面元素是按擁有關係相互聯絡的，因此樹狀結構是最自然的表達形式；相應地，窗體中的元件也是按樹狀結構組織；對應在DFM檔案中，也要表達這種關係。DFM檔案在物理上，是以文字方式儲存的（在Delphi2.0版本以前是儲存為二進位制檔案的），在邏輯上則是以樹狀結構安排各元件的關係。從該文字中可以看清窗體的樹狀結構。下面是DFM檔案的內容：
object Form1: TForm1
  Left = 197
  Top = 124
  ……
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
  Left = 272
  ……
  Caption = 'Button1'
  TabOrder = 0
  end
  object Panel1: TPanel
  Left = 120
  ……
  Caption = 'Panel1'
  TabOrder = 1
  object CheckBox1: TCheckBox
  Left = 104
  ……
  Caption = 'CheckBox1'
  TabOrder = 0
  end
  end
end
 這個DFM檔案就是TWriter透過流式物件Stream來生成的，當然這裡還有一個二進位制檔案到文字資訊檔案的轉換過程，這個轉換過程不是本文要研究的物件，所以忽略這樣的一個過程。
 在程式開始執行的時候，TReader透過流式物件Stream來讀取窗體及元件，因為Delphi在編譯程式的時候，利用編譯指令{$R *.dfm}已經把DFM檔案資訊編譯到可檔案中，因此TReader讀取的內容實際上是被編譯到可執行檔案中的有關窗體和元件的資訊。
 TReader和TWriter不僅能夠讀取和寫入Object Pascal中絕大部分標準資料型別，而且能夠讀寫List、Variant等高階型別，甚至能夠讀寫Perperties和Component。不過，TReader、TWriter自身實際上提供的功能很有限，大部分實際的工作是由TStream這個非常強大的類來完成的。也就是說TReader、TWriter實際上只是一個工具，它只是負責怎麼去讀寫元件，至於具體的讀寫操作是由TStream來完成的。
 由於TFiler是TReader和TWriter的公共祖先類，因為要了解TReader和TWriter，還是先從TFiler開始。