第二十章 開(kāi)發(fā)Delphi對(duì)象式數(shù)據(jù)管理功能(四)

1、件。 通常在調(diào)用ReadlistBegin方法之后，緊跟著一個(gè)讀項(xiàng)目的循環(huán)，循環(huán)以EndfList方法返回True 終止條件。這時(shí)，預(yù)示流中的下一個(gè)項(xiàng)目是列表結(jié)束標(biāo)志，需要調(diào)用ReadListEnd方法。 8. ReadListEnd方法 聲明：procedure ReadListEnd; ReadListEnd 方法從流中讀取列表結(jié)束標(biāo)志。如果所讀的項(xiàng)目不是一個(gè)列表結(jié)束標(biāo)志，ReadListEnd方法引發(fā)一個(gè)EReadError異常事件。 9. EndOfList方法 聲明：function EndOfList: Boolean; 如果Reader對(duì)象讀到項(xiàng)目列表結(jié)果標(biāo)志，EndOfList

2、方法返回True。 TStrings對(duì)象在從Reader對(duì)象讀取項(xiàng)目列表時(shí)使用了ReadListBegin和ReadListEnd方法。下面的ReadData是TStrings的方法，用于在DefineProperties方面中讀string數(shù)據(jù)。 procedure TStrings.ReadData(Reader: TReader; begin Reader.ReadListBegin; 讀列表開(kāi)始標(biāo)志 Clear; 清除已有的字符串 while not Reader.EndOfList do 只要還有數(shù)據(jù) Add(Reader.ReadString; 讀一個(gè)字符串并將其加在列表中 Rea

3、der.ReadListEnd; 越過(guò)列表結(jié)束標(biāo)志 end; 10. ReadSignature方法 聲明：procedure ReadSignature; ReadSignature方法從流中讀取部件之前首先調(diào)用ReadSignature方法。在載入對(duì)象之前檢測(cè)標(biāo)簽。Reader對(duì)象就能防止疏忽大意，導(dǎo)致讀取無(wú)效或過(guò)時(shí)的數(shù)據(jù)。Filer標(biāo)簽是四個(gè)字符，對(duì)于Delphi 2.0，該標(biāo)簽是“TPF0”。 11. ReadPrefix方法 聲明：procedure ReadPrefix(var Plags: TFilerFlags; var AChild, Pos: Integer; ReadPr

4、efix方法的功能與ReadSignature的很相象，只不過(guò)它是讀取流中部件前面的標(biāo)志(PreFix。當(dāng)一個(gè)Write對(duì)象將部件寫(xiě)入流中時(shí)，它在部件前面預(yù)寫(xiě)了兩個(gè)值，第一個(gè)值是指明部件是否是從祖先窗體中繼承的窗體和它在窗體中的位置是否重要的標(biāo)志;第二個(gè)值指明它在祖先窗體創(chuàng)建次序。ReadComponent方法自動(dòng)調(diào)用ReadPrefix。但如果需要獨(dú)立讀取部件的預(yù)讀標(biāo)志，也可直接調(diào)用該方向。 12. OnFindMethod事件 聲明：property OnFindMethod: TFindMethodEvent; OnFindMethod事件，發(fā)生在Reader對(duì)象讀取對(duì)象的方法指針時(shí)，屬

5、性為方法指針的通常都是事件。 響應(yīng)OnFindMethod事件的理由，通常是處理過(guò)程找不到方法的情況。在FindMethod方法沒(méi)有找到由Name指定的方法的情況下，如果它將OnFindMethod方法的Error 參數(shù)設(shè)為T(mén)rue，將引起ReadError異常事件；反之，將Error參數(shù)置為False，將防止FindMethod方法引發(fā)異常事件。 13. Error方法 聲明：function Error(const Message: String: Boolean; virtual; Error方法定義在Reader對(duì)象的protected部分，它是用于Reader對(duì)象的OnError事件

6、。其返回值決定是否繼續(xù)錯(cuò)誤處理過(guò)程。如果返回值為T(mén)rue，則表示用程 序應(yīng)當(dāng)繼續(xù)錯(cuò)誤處理；如果返回值為False，則表示錯(cuò)誤情況被忽略。 如果讀部件或?qū)傩猿鲥e(cuò)。Reader對(duì)象調(diào)用Error方法。缺省情況下，Error將返回值設(shè)為False，然后調(diào)用OnError事件處理過(guò)程。 TReader對(duì)象總是在tryexcept程序塊的except部分，并提供用戶忽略錯(cuò)誤的機(jī)會(huì)。Error的使用方法如下： try 讀部件 except on E: Exception do begin 執(zhí)行一些清除操作 if Error(E.Message then raise; end; end; 14. OnErr

7、or事件 聲明：property OnError: TReaderError; 當(dāng)Reader對(duì)象讀取數(shù)據(jù)出錯(cuò)時(shí)將引發(fā)OnError事件。通過(guò)處理OnError事件，可以有選擇地處理或忽略錯(cuò)誤。 傳給OnError事件處理過(guò)程的最后一個(gè)參數(shù)是名為Handled的var參數(shù)。在缺省情況下，Error方法將Handled置為T(mén)rue。這將阻止錯(cuò)誤更進(jìn)一步處理。如果事件處理過(guò)程仍舊將Handled置為False，Reader對(duì)象將引發(fā)一個(gè)EReadError異常事件。 15. SetName方法 聲明：procedure SetName(Component: TComponent; var Name

8、: String virtual; SetName方法允許Reader對(duì)象在將從流中讀取的部件的Name值賦給部件的Name屬性前修改Name值。ReadComponent方法在讀取部件的屬性值和其它數(shù)據(jù)前先讀部件的類(lèi)型和名字在讀完名字后，ReadComponent將所讀的名字作為Name參數(shù)傳給SetName，Name 是個(gè)var參數(shù)，因此SetName能在返回前修改字符串值。SetName還調(diào)用了OnSetName事件處理過(guò)程，將名字字符串作為var參數(shù)傳入事件處理過(guò)程中，因此，事件處理過(guò)程也可修改字符串的值。 16. OnSetName事件 聲明：property OnSetName:

9、TSetNameEvent; OnSetName事件發(fā)生在Read對(duì)象設(shè)置部件的Name屬性前，OnSetName事件處理過(guò)程的var參數(shù)Name參數(shù)是一個(gè)var參數(shù)，因此，事件處理過(guò)程再將Name賦給部件前，可以修改Name的值。這對(duì)于想過(guò)濾窗體中部件的名字是很有幫助的。 下面的OnSetName事件處理過(guò)程，命名了名字中包含“Button”的部件，并用“PushButton”替代。 procedure TForm1.ReaderSetName(Reader: TReader; Component: TComponent; var Name: string; var ButtonPos: I

10、nteger; begin ButtonPos := Pos('Button', Name; if ButtonPos <> 0 then Name := Copy(Name, 1, ButtonPos - 1 + 'PushButton' + Copy(Name, ButtonPos + 6, Length(Name; end; 17. ReadValue方法 聲明：function ReadValue: TValueType; ReadValue方法讀取流中緊著的項(xiàng)目的類(lèi)型，函數(shù)返回后，流的指針移到值類(lèi)型指示符之后。 TValueType是枚舉類(lèi)

11、型。存儲(chǔ)在Filer對(duì)象的流中的每個(gè)項(xiàng)目之前都有一個(gè)字節(jié)標(biāo)識(shí)該項(xiàng)目的類(lèi)型，在讀每個(gè)項(xiàng)目之前都要讀取該字節(jié)，以指導(dǎo)調(diào)用哪個(gè)方法來(lái)闈取項(xiàng)目。該字節(jié)的值就TValuetype定義的 整個(gè)緩沖區(qū)。 在GetPosition方法中可以看到Reader對(duì)象的Position值和Stream對(duì)象的Position值是不同的。Reader對(duì)象多了一個(gè)FButPos的編移量。 2. Defineproperty和DefineBinaryproperty方法的實(shí)現(xiàn) 這兩個(gè)方法是虛方法，在TFiler中是抽象方法，在TReader和TWriter對(duì)象中才有具體的實(shí)現(xiàn)。 它們?cè)赥Reader中的實(shí)現(xiàn)如下： proce

12、dure TReader.DefineProperty(const Name: string; ReadData: TReaderProc; WriteData: TWriterProc; HasData: Boolean; begin if CompareText(Name, FPropName = 0 then begin ReadData(Self; FPropName := '' end; end; procedure TReader.DefineBinaryProperty(const Name: string; ReadData, WriteData: TStrea

13、mProc; HasData: Boolean; var Stream: TMemoryStream; Count: Longint; begin if CompareText(Name, FPropName = 0 then begin if ReadValue <> vaBinary then begin Dec(FBufPos; SkipValue; FCanHandleExcepts := True; PropValueError; end; Stream := TMemoryStream.Create; try Read(Count, SizeOf(Count; Stre

14、am.SetSize(Count; Read(Stream.Memory, Count; FCanHandleExcepts := True; ReadData(Stream; finally Stream.Free; end; FPropName := '' end; end; 在兩個(gè)方法都將Name參數(shù)值與當(dāng)前的屬性名比較，如果相同則進(jìn)行讀操作。在DefineBinaryproperty中，創(chuàng)建了一個(gè)內(nèi)存流。先將數(shù)據(jù)讀到內(nèi)存流中然后調(diào)用ReadData讀取數(shù)據(jù)。 3. FlushBuffer的實(shí)現(xiàn) FlushBuffer方法用于清除Reader對(duì)象的內(nèi)部緩沖區(qū)中的內(nèi)容，保持

15、Reader對(duì)象和流在位置（Position）上的同步，其實(shí)現(xiàn)如下： procedure TReader.FlushBuffer; begin FStream.Position := FStream.Position - (FBufEnd - FBufPos; FBufPos := 0; FBufEnd := 0; end; 4. ReadListBegin、ReadListEnd和EndOfList方法 這三個(gè)方法都是用于從Reader對(duì)象的流中讀取一連串的項(xiàng)目，并且這些項(xiàng)目都由WriteListBegin寫(xiě)入的標(biāo)志標(biāo)定開(kāi)始和WriteListEnd寫(xiě)入標(biāo)志，標(biāo)定結(jié)束，在讀循環(huán)中用EndOf

16、List進(jìn)行判斷。它們是在Reader對(duì)象讀取流中數(shù)據(jù)時(shí)經(jīng)常用于的。它們的實(shí)現(xiàn)如下： procedure TReader.ReadListBegin; begin CheckValue(vaList; end; procedure TReader.ReadListEnd; begin CheckValue(vaNull; end; function TReader.EndOfList: Boolean; begin Result := ReadValue = vaNull; Dec(FBufPos; end; 項(xiàng)目表開(kāi)始標(biāo)志是VaList，項(xiàng)目表結(jié)束標(biāo)志是VaNull，VaList和VaNul

17、l都是枚舉類(lèi)型TValueType定義的常量。 它們實(shí)現(xiàn)中調(diào)用的CheckValue是TReader的私有方法，其實(shí)現(xiàn)如下： procedure TReader.CheckValue(Value: TValueType; begin if ReadValue <> Value then begin Dec(FBufPos; SkipValue; PropValueError; end; end; CheckValue方法的功能是檢測(cè)緊接著 要讀的值是否是Value指定的類(lèi)型。如果不是則跳過(guò)該項(xiàng)目并觸發(fā)一個(gè)SInvalidPropertyValue錯(cuò)誤。 EndOfList函數(shù)只是簡(jiǎn)

18、單地判斷下一字節(jié)是否是VaNull將判斷結(jié)果返回，并將字節(jié)移回原來(lái)位置。 5. 簡(jiǎn)單數(shù)據(jù)類(lèi)型讀方法的實(shí)現(xiàn) 簡(jiǎn)單數(shù)據(jù)類(lèi)型指的是布爾型、字符型、整型、字符串型、浮點(diǎn)型、集合類(lèi)型和標(biāo)識(shí)符。將它們放在一起介紹是因?yàn)樗鼈兊膶?shí)現(xiàn)方法類(lèi)似。 因?yàn)樗鼈兊膶?shí)現(xiàn)都用到了ReadValue方法，因此先來(lái)介紹ReadValue方法的實(shí)現(xiàn)： function TReader.ReadValue: TValueType; begin Read(Result, SizeOf(Result; end; 該方法調(diào)用私有方法Read，從Reader對(duì)象流中讀一個(gè)字節(jié)，并移動(dòng)位置指針。 ReadValue方法專(zhuān)門(mén)從流中讀取值的類(lèi)型

19、的，所有的數(shù)據(jù)讀寫(xiě)方法中在讀取數(shù)據(jù)前都要調(diào)用ReadValue方法判斷是否是所要讀的數(shù)據(jù)。如果是，則調(diào)用Read方法讀取數(shù)據(jù)；否則觸發(fā)一個(gè)異常事件，下面看Integer類(lèi)型的讀方法： function TReader.ReadInteger: Longint; var S: Shortint; I: Smallint; begin case ReadValue of vaInt8: begin Read(S, SizeOf(Shortint; Result := S; end; vaInt16: begin Read(I, SizeOf(I; Result := I; end; vaInt32

20、: Read(Result, SizeOf(Result; else PropValueError; end; end; 因?yàn)镈elphi 2.0中，整型可分8位、16位和32位，因此讀取整型數(shù)據(jù)時(shí)分別作了判斷。 布爾類(lèi)型的數(shù)據(jù)是直接放在值類(lèi)型標(biāo)志上，如果類(lèi)型為VaTrue，則值為T(mén)rue；如果類(lèi)型為VaFalse，則值為False。 function TReader.ReadBoolean: Boolean; begin Result := ReadValue = vaTrue; end; ReadString方法也利用ReadValue方法判斷是字符串還是長(zhǎng)字符串。 function TR

21、eader.ReadString: string; var L: Integer; begin L := 0; case ReadValue of vaString: Read(L, SizeOf(Byte; vaLString: Read(L, SizeOf(Integer; else PropValueError; end; SetString(Result, PChar(nil, L; Read(Pointer(Result, L; end; 如果VaString類(lèi)型緊接著一個(gè)字節(jié)存有字符串的長(zhǎng)度；如果是VaLString類(lèi)，則緊接著兩個(gè)字節(jié)存放字符串長(zhǎng)度，然后根據(jù)字符串長(zhǎng)度用SetSt

22、ring過(guò)程給分配空間，用Read方法讀出數(shù)據(jù)。 ReadFloat方法允許將整型值轉(zhuǎn)換為浮點(diǎn)型。 function TReader.ReadFloat: Extended; begin if ReadValue = vaExtended then Read(Result, SizeOf(Result else begin Dec(FBufPos; Result := ReadInteger; end; end; 字符類(lèi)型數(shù)據(jù)設(shè)有直接的標(biāo)志，它是根據(jù)VaString后面放一個(gè)序值為1的字節(jié)來(lái)判斷的。 function TReader.ReadChar: Char; begin CheckVal

23、ue(vaString; Read(Result, 1; if Ord(Result <> 1 then begin Dec(FBufPos; ReadStr; PropValueE rror; end; Read(Result, 1; end; 出于讀取DFM文件需要，F(xiàn)iler對(duì)象支持讀取標(biāo)識(shí)符。 function TReader.ReadIdent: string; var L: Byte; begin case ReadValue of vaIdent: begin Read(L, SizeOf(Byte; SetString(Result, PChar(nil, L; R

24、ead(Result1, L; end; vaFalse: Result := 'False' vaTrue: Result := 'True' vaNil: Result := 'nil' else PropValueError; end; end; 一般說(shuō)來(lái)，各種復(fù)雜的數(shù)據(jù)結(jié)構(gòu)都是由這些簡(jiǎn)單數(shù)據(jù)組成;定義了這些方法等于給讀各種類(lèi)型的數(shù)據(jù)提供了元操作，使用很方便。例如，讀取字符串類(lèi)型的數(shù)據(jù)時(shí)，如果采用傳流方法還要判斷字符串的長(zhǎng)度，使用ReadString方法就不同了。但應(yīng)該特別注意的是這些類(lèi)型數(shù)據(jù)的存儲(chǔ)格式是由Delphi設(shè)計(jì)的與簡(jiǎn)單數(shù)據(jù)類(lèi)型有

25、明顯的不同。因此，存入數(shù)據(jù)時(shí)應(yīng)當(dāng)使用Writer對(duì)象相應(yīng)的方法，而且在讀數(shù)據(jù)前要用NextValue方法進(jìn)行判斷，否則會(huì)觸發(fā)異常事件。 6. 讀取部件的方法的實(shí)現(xiàn) Reader對(duì)象中用于讀取部件的方法有ReadSignature、ReadPrefix、ReadComponent、ReadRootComponent和ReadComponents。 ReadSignature方法主要用于讀取Delphi Filer對(duì)象標(biāo)簽一般在讀取部件前，都要用調(diào)用ReadSignature方法以指導(dǎo)部件讀寫(xiě)過(guò)程。 procedure TReader.ReadSignature; var Signature: L

26、ongint; begin Read(Signature, SizeOf(Signature; if Signature <> Longint(FilerSignature then ReadError(SInvalidImage; end; FilerSignature就是Filer對(duì)象標(biāo)簽其值為“TPF0” ，如果讀的不是“TPF0” ，則會(huì)觸發(fā)SInValidImage異常事件。 ReadPrefix方法是用于讀取流中部件前的標(biāo)志位，該標(biāo)志表示該部件是否處于從祖先窗體中繼承的窗體中和它在窗體中的位置是否很重要。 procedure TReader.ReadPrefix(var

27、 Flags: TFilerFlags; var AChildPos: Integer; var Prefix: Byte; begin Flags := ; if Byte(NextValue and $F0 = $F0 then begin Prefix := Byte(ReadValue; Byte(Flags := Prefix and $0F; if ffChildPos in Flags then AChildPos := ReadInteger; end; end; TFilerFlags的定義是這樣的： TFilerFlag = (ffInherited, ffChildPos

28、; TFilerFlags = Set of TFilerFlag; 充當(dāng)標(biāo)志的字節(jié)的高四位是$F，低四位是集合的值，也是標(biāo)志位的真正含義。如果ffChildPos置位，則緊接著的整型數(shù)字中放著部件在窗體中的位置序值。 ReadComponent方法用于從Reader對(duì)象的流中讀取部件。Component 參數(shù)指定了要從流中讀取的對(duì)象。函數(shù)返回所讀的部件。 function TReader.ReadComponent(Component: TComponent: TComponent; var CompClass, CompName: string; Flags: TFilerFlags; P

29、osition: Integer; begin ReadPrefix(Flags, Position; CompClas s := ReadStr; CompName := ReadStr; Result := Component; if Result = nil then if ffInherited in Flags then FindExistingComponent else CreateComponent; if Result <> nil then try Include(Result.FComponentState, csLoading; if not (ffInhe

30、rited in Flags then SetCompName; if Result = nil then Exit; Include(Result.FComponentState, csReading; Result.ReadState(Self; Exclude(Result.FComponentState, csReading; if ffChildPos in Flags then Parent.SetChildOrder(Result, Position; FLoaded.Add(Result; except if ComponentCreated then Result.Free;

31、 raise; end; end; ReadCompontent方法首先調(diào)用ReadPrefix方法，讀出部件標(biāo)志位和它的創(chuàng)建次序值(Create Order。然后用ReadStr方法分別讀出部件類(lèi)名和部件名。如果Component參數(shù)為nil，則執(zhí)行兩個(gè)任務(wù)： 如果ffInberited 置位則從Root 找已有部件，否則，就從系統(tǒng)的Class表中找到該部件類(lèi)型的定義并創(chuàng)建 如果結(jié)果不為空，將用部件的ReadState方法讀入各種屬性值，并設(shè)置部件的Parent 屬性，并恢復(fù)它在Parent部件的創(chuàng)建次序。 ReadComponent方法主要是調(diào)用ReadComponent方法從Reader

32、對(duì)象的流中讀取一連串相關(guān)聯(lián)的部件，并分解相互引用關(guān)系。 procedure TReader.ReadComponents(AOwner, AParent: TComponent; Proc: TReadComponentsProc; var Component: TComponent; begin Root := AOwner; Owner := AOwner; Parent := AParent; BeginReferences; try while not EndOfList do begin ReadSignature; Component := ReadComponent(nil; P

33、roc(Component; end; FixupReferences; finally EndReferences; end; end; ReadComponents首先用AOwner和AParent參數(shù)給Root,Owner和Parent賦值，用于重建各部件的相互引用。然后用一個(gè)While循環(huán)讀取部件并用由Proc傳入的方法進(jìn)行處理。在重建引用關(guān)系時(shí)，用了BeginReferences、FixUpReferences和EndReferences嵌套模式。 ReadRootComponent方法從Reader對(duì)象的流中將部件及其擁有的部件全部讀出。如果Component參數(shù)為nil，則創(chuàng)建一

34、個(gè)相同類(lèi)型的部件，最后返回該部件： function TReader.ReadRootComponent(Root: TComponent: TComponent; function FindUniqueName(const Name: string: string; begin end; var I: Integer; Flags: TFilerFlags; begin ReadSignature; Result := nil; try ReadPrefix(Flags, I; if Root = nil then begin Result := TComponentClass(FindCl

35、ass(ReadStr.Create(nil; Result.Name := ReadStr; end else begin Result := Root; ReadStr; Ignore class name if csDesigning in Result.ComponentState then ReadStr else Result.Name := FindUniqueName(ReadStr; end; FRoot := Result; if GlobalLoaded <> nil then FLoaded := GlobalLoaded else FLoaded := T

36、List.Create; try FLoaded.Add(FRoot; FOwner := FRoot ; Include(FRoot.FComponentState, csLoading; Include(FRoot.FComponentState, csReading; FRoot.ReadState(Self; Exclude(FRoot.FComponentState, csReading; if GlobalLoaded = nil then for I := 0 to FLoaded.Count - 1 do TComponent(FLoadedI.Loaded; finally

37、if GlobalLoaded = nil then FLoaded.Free; FLoaded := nil; end; GlobalFixupReferences; except RemoveFixupReferences(Root, '' if Root = nil then Result.Free; raise; end; end; ReadRootComponent首先調(diào)用ReadSignature讀取Filer對(duì)象標(biāo)簽。然后在tryexcept循環(huán)中執(zhí)行讀取任務(wù)。如果Root參數(shù)為nil，則用ReadStr讀出的類(lèi)名創(chuàng)建新部件，并以流中讀出部件的Name屬性；否則，忽略類(lèi)名，并判斷Name屬性的唯一性。最后用Root的ReadState方法讀取屬性和其擁有的擁有并處理引用關(guān)系。 7. SetName方法和