【文章內容簡介】 Longint。 var Pos: Longint。 begin Pos := Seek(0, 1)。 Result := Seek(0, 2)。 Seek(Pos, 0)。 end。 2. TStream 方法的實現 ⑴ CopyFrom 方法 CopyFrom 是 Stream 對象中很有用的方法，它用于在不同存儲媒介中拷貝數據。例如，內存與外部文件 之間、內存與數據庫字段之間等。它簡化了許多內存分配、文件打開和讀寫等的細節(jié)，將所有拷貝操作都統(tǒng)一到 Stream 對象上。 前面曾介紹： CopyFrom 方法帶 Source 和 Count 兩個參數并返回長整型。該方法將 Count 個字節(jié)的內容從 Source 拷貝到當前流中，如果 Count 值為 0則拷貝所有數據。 function (Source: TStream。 Count: Longint): Longint。 const MaxBufSize = $F000。 var BufSize, N: Integer。 Buffer: PChar。 begin if Count = 0 then begin := 0。 CouNG=ZHCN資源文件中的部件時調用，通常程序員不需自己調用。如果讀取的不是資源文件 ReadResHeader，將觸發(fā)異常事件。 procedure 。 var ReadCount: Longint。 Header: array[0..79] of Char。 begin FillChar(Header, SizeOf(Header), 0)。 ReadCount := Read(Header, SizeOf(Header) 1)。 if (Byte((@Header[0])^) = $FF) and (Word((@Header[1])^) = 10) then Seek(StrLen(Header + 3) + 10 ReadCount, 1) else raise (SInvalidImage)。 end。 ReadComponentRes 在 Windows 資源文件中讀取部件，為了判斷是否是資源文件，它首先調用 ReadResHeader 方法，然后調用 ReadComponent 方法讀取 Instance 指定的部件。下面是它的實現： function (Instance: TComponent): TComponent。 begin ReadResHeader。 Result := ReadComponent(Instance)。 end。 與 ReadComponentRes 相應的寫方法是 WriteComponentRes， Delphi 調用這兩個方法讀寫窗體文件 (DFM 文件 )，在后面書中會舉用這兩個方法讀取 DFM文件的例子。 ⑷ WriteComponent 和 WriteDescendant 方法 Stream 對象的 WriteDescendant 方法在實現過程中，創(chuàng)建了 TWriter 對象，然后利用 TWriter 的 WriteDescendant 方法將 Instance 寫 入 流 。 而WriteComponent 方法只是簡單地調用 WriteDescendant 方法將 Instance 寫入流。它們的實現如下： procedure (Instance: TComponent)。 begin WriteDescendent(Instance, nil)。 end。 procedure (Instance, Ancestor: TComponent)。 var Writer: TWriter。 begin Writer := (Self, 4096)。 try (Instance, Ancestor)。 finally 。 end。 end。 ⑸ WriteDescendantRes 和 WriteComponentRes 方法 WriteDescendantRes 方法用于將部件寫入 Windows 資源文件；而WriteComponentRes 方法只是簡單地調用 WriteDescendantRes 方法，它們的實現如下： procedure (const ResName: string。 Instance: TComponent)。 begin WriteDescendentRes(ResName, Instance, nil)。 end。 procedure (const ResName: string。 Instance, Ancestor: TComponent)。 var HeaderSize: Integer。 Origin, ImageSize: Longint。 Header: array[0..79] of Char。 begin Byte((@Header[0])^) := $FF。 Word((@Header[1])^) := 10。 HeaderSize := StrLen(StrUpper(StrPLCopy(@Header[3], ResName, 63))) + 10。 Word((@Header[HeaderSize 6])^) := $1030。 Longint((@Header[HeaderSize 4])^) := 0。 WriteBuffer(Header, HeaderSize)。 Origin := Position。 WriteDescendent(Instance, Ancestor)。 ImageSize := Position Origin。 Position := Origin 4。 WriteBuffer(ImageSize, SizeOf(Longint))。 Position := Origin + ImageSize。 end。 WriteCompnentRes 是與 ReadComponentRes 相應的對象寫方法 ，這兩個方法相互配合可讀取 Delphi 的 DFM 文件，從而利用 Delphi 系統(tǒng)的功能。 THandleStream 對象 THandleStream 對象的行為特別象 FileStream 對象，所不同的是它通過已創(chuàng)建的文件句柄而不是文件名來存儲流中的數據。 THandleStream 對象定義了 Handle 屬性，該屬性提供了對文件句柄的只讀訪問，并且 Handle 屬性可以作為 Delphi 的 RTL 文件管理函數的參數，利用文件類函數來讀寫數據。 THandleStream 覆蓋了構造函數 Create，該函數帶有Handle 參數，該參數指定與 THandleStream 對象相關的文件句柄。 THandleStream 的屬性的方法： 1. Handle 屬性 聲明： property Handle: Integer。 Handle 屬性提供了對文件句柄的只讀訪問，該句柄由 THandleStream 的構造方法 Create 傳入。因此除了用 THandleStream 提供的方法外，也可以用文件管理函數對句柄進行操作。實際上， THandleStream 的方法在實現上也是運用文件管理函 數進行實際的讀寫操作。 2. Create 方法 聲明： constructor Create(AHandle: Integer)。 Create 方法使用傳入的 Handle 參數創(chuàng)建一個與特定文件