第二十章開發(fā)delphi對象式數(shù)據(jù)管理功能一-資料下載頁
2025-08-27 15:44本頁面
【導(dǎo)讀】構(gòu)造并且滲透面向?qū)ο蟮娘L(fēng)格將使軟件具有更高的品質(zhì)。在面向?qū)ο蟪绦蛟O(shè)計。持方式是其一大特色。Delphi是一個面向?qū)ο蟮目梢暬O(shè)計與面向?qū)ο蟮恼Z言相結(jié)合的集成開發(fā)環(huán)境。Delphi的核心是部件。Delphi應(yīng)用程序完全是由部件來構(gòu)。造的，因此開發(fā)高性能的Delphi應(yīng)用程序必然會涉及對象式數(shù)據(jù)管理技術(shù)。Delphi在這兩方面都做的相當出色。在Delphi的早期版本TurboPascal中就曾。有流、群和資源等專門用于對象式數(shù)據(jù)管理的。在Delphi中，這些功能得到了大大的加強。象的功能，還提供了在數(shù)據(jù)庫BLOB字段中對象的功能。媒體系統(tǒng)中的應(yīng)用。這對于運用Delphi開發(fā)高級應(yīng)用是很重要的。Stream對象，又稱流式對象，是TStream、THandleStream、TFileStream、TMemoryStream、TResourceStream和TBlobStream等的統(tǒng)稱。TStream對象是能在各種媒介中存儲二進制數(shù)據(jù)的對象的抽象對象。TStream中定義了兩個屬性：Size和Position。它們分別以字節(jié)為單位表示。因為所有的Stream對象都是從TStream中繼承來的，所以。TStream的需方法為在不同媒介間的數(shù)據(jù)拷貝提供了最簡捷的手段。ReadResHeader將引發(fā)一個EInvalidImage異常事件。前位置指針移到該文件頭的尾部。
【正文】 tream 將成為文件內(nèi)容在內(nèi)存中的完整拷貝。 TMemoryStream 對 象的實現(xiàn)原理 TMemoryStream 從 TCustomMemoryStream 對象直接繼承，因此可以享用TCustomMemoryStream 的屬性和方法。前面講過， TCustomMemoryStream是用于內(nèi)存中數(shù)據(jù)操作的抽象對象，它為 MemoryStream 對象的實現(xiàn)提供了框架，框架中的內(nèi)容還要由具體 MemoryStream 對象去填充。 TMemoryStream 對象就是按動態(tài)內(nèi)存管理的需要填充框架中的具體內(nèi)容。下面介紹TMemoryStream 對象的實現(xiàn)。 1. TMemoryStream 屬性的實現(xiàn) TMemoryStream 在其 protected 部分增加了一個 Capacity 屬性，該屬性決定了 MemoryStream 所占動態(tài)內(nèi)存的大小。 TMemoryStream 首先在 private 部分聲明了 FCapacity 變量作為存儲 Capacity 屬性值的數(shù)據(jù)域，然后在 protected部分聲明了該屬性。在屬性聲明的讀控制部分簡單讀取 FCapacity 的值，在寫控制處調(diào)用了方法 SetCapacity。該方法除了給 FCapacity 賦值外還執(zhí)行了修改Capacity 屬性所必需操作如狀態(tài)改變等。 下面是屬性的實現(xiàn)： TMemoryStream = class(TCustomMemoryStream) private FCapacity: Longint。 procedure SetCapacity(NewCapacity: Longint)。 protected … property Capacity: Longint read FCapacity write SetCapacity。 public … end。 寫控制方法 SetCapacity 的實現(xiàn)是這樣的： procedure (NewCapacity: Longint)。 begin SetPointer(Realloc(NewCapacity), FSize)。 FCapacity := NewCapacity。 end。 在 SetCapacity 方法先是調(diào)用 Realloc 重新分配內(nèi)存，然后用 NewCapacity的值給 FCapacity 賦值。 Realloc 方法進行某些對象狀態(tài)的改變。 2. TMemoryStream 對象方法的實現(xiàn) ⑴ Realloc 方法 Realloc 方法是 TMemoryStream 動態(tài)內(nèi)存分配的核心，它的 SetSize、SetCapacity 等方法最終都是調(diào)用 Realloc 進行內(nèi)存的分配和初始化工作的。它的實現(xiàn)如下： const MemoryDelta = $2020。 function (var NewCapacity: Longint): Pointer。 begin if NewCapacity 0 then NewCapacity := (NewCapacity + (MemoryDelta 1)) and not (MemoryDelta 1)。 Result := Memory。 if NewCapacity FCapacity then begin if NewCapacity = 0 then begin GlobalFreePtr(Memory)。 Result := nil。 end else begin if Capacity = 0 then Result := GlobalAllocPtr(HeapAllocFlags, NewCapacity) else Result := GlobalReallocPtr(Memory, NewCapacity, HeapAllocFlags)。 if Result = nil then raise (SMemoryStreamError)。 end。 end。 end。 Realloc 方法是以 8K 為單位分配動態(tài)內(nèi)存的，方法中的第一句 if 語句就是執(zhí)行該操作。如果傳入的 NewCapacity 參數(shù)值為 0，則釋放流中的內(nèi)存。 Realloc方法用 GLobal FreePtr 函數(shù)釋放內(nèi)存，用 GlobalAllocPtr 分配內(nèi)存，用GlobalReallocPtr 進行內(nèi)存的重分配。如果原來的 Capacity 屬性值為 0，則調(diào)用Globa|AllocPtr 否則調(diào)用 GlobalReallocPtr。最后如果 Result 為 nil 則觸發(fā)內(nèi)存流錯的異常事件，否則返回指向分配的內(nèi)存的指針。 ⑵ Write 方法 Write 方法從內(nèi)存流內(nèi)部緩沖池的當前位置開始寫入二進制數(shù)據(jù)。其實現(xiàn)如下： function (const Buffer。 Count: Longint): Longint。 var Pos: Longint。 begin if (FPosition = 0) and (Count = 0) then begin Pos := FPosition + Count。 if Pos 0 then begin if Pos FSize then begin if Pos FCapacity then SetCapacity(Pos)。 FSize := Pos。 end。 (Buffer, Pointer(Longint(FMemory) + FPosition)^, Count)。 FPosition := Pos。 Result := Count。 Exit。 end。 end。 Result := 0。 end。 Buffer 中存儲要寫入流的二進制數(shù)據(jù)，如果要寫入的數(shù)據(jù)的字節(jié)超出了流的內(nèi)存池的大小，則調(diào)用 SetCapacity 方法再分配內(nèi)存，然后用內(nèi)存復(fù)制函數(shù)將Buffer 中的數(shù)據(jù)復(fù)制到 FMemory 中。接著移動位置指針，并返回寫入數(shù)據(jù)的字節(jié)數(shù)。分析這段程序可以知道， FCapacity 的 值和 FSize 的值是不同的。 ⑶ Clear 方法 Clear 方法消除內(nèi)存流中的數(shù)據(jù)，將 Memory 屬性置為 nil，并將 FSize 和FPosition 的值設(shè)為 0。其實現(xiàn)如下： procedure 。 begin SetCapacity(0)。 FSize := 0。 FPosition := 0。 end。 ⑷ LoadFromStream 和 LoadFromFile 方法 LoadFromStream 方法首先根據(jù)傳入的 Stream 的 Size 屬性值重 新分配動態(tài)內(nèi)存，然后調(diào)用 Stream 的 ReadBuffer 方法往 FMemory 中復(fù)制數(shù)據(jù)，結(jié)果Stream 的全部內(nèi)容在內(nèi)存中有了一份完整拷貝。其實現(xiàn)如下： procedure (Stream: TStream)。 var Count: Longint。 begin := 0。 Count := 。 SetSize(Count)。 if Count 0 then (FMemory^, Count)。 end。 LoadFromFile 與 LoadFromStream 是一對方法。 LoadFromFile 首先創(chuàng)建了一個 TFileStream 對象，然后調(diào)用 LoadFromStream 方法，將 FileStream 文件流中的數(shù)據(jù)寫入 MemoryStream 中。
公司管理相關(guān)推薦
鄂ICP備17016276號-1