|
20.2.3.2 TReader对象的实现 Filer对象的作用主要是Delphi用来在DFM文件中读写各种类型的数据（包括部件对象）。这些数据的一个本质特征是变长，而且Filer对象将读写数据操作抽象化，包装成对象提供了大量的读写方法，方便了程序的调用。因此在应用程序中可以广泛使Filer对象，充分利用Delphi的面向对象技术。而且Filer对象与Stream对象捆绑在一起，一方面可以在各种存储媒介中存取任意格式的数据；另一方面，由于充分利用面向对象的动态联编，各种读写方法的使用方法是一致的，因此，方法调用很简单。下面我们着重介绍Reader 对象中与读写数据操作有关的属性和方法的实现。 1. TReader属性的实现 在TReader对象的属性实现中我们重点介绍Position的实现。 Position属性的定义了使用了读写控制，它们分别是GetPosition和SetPosition方法。 TReader = class(TFiler) private … function GetPosition: Longint; procedure SetPosition(Value: Longint); public … property Position: Longint read GetPosition writeSetPosition; end; Postition的读写控制方法如下： function TReader.GetPosition: Longint; begin Result := FStream.Position + FBufPos; end; procedure TReader.SetPosition(Value: Longint); begin FStream.Position := Value; FBufPos := 0; FBufEnd := 0; end; 在TReader的父对象TFiler对象中介绍过FBufPos和FBufEnd变量。Filer对象内部分配了一个BufSize大小的缓冲区FBufPos就是指在缓冲区中的相对位置，FBufEnd是指在缓冲区中数据结束处的位置(缓冲区中的数据不一定会充满整个缓冲区)。 在GetPosition方法中可以看到Reader对象的Position值和Stream对象的Position值是不同的。Reader对象多了一个FButPos的编移量。 2. Defineproperty和DefineBinaryproperty方法的实现 这两个方法是虚方法，在TFiler中是抽象方法，在TReader和TWriter对象中才有具体的实现。 它们在TReader中的实现如下： procedure 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: TStreamProc; 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)); Stream.SetSize(Count); Read(Stream.Memory^, Count); FCanHandleExcepts := True; ReadData(Stream); finally Stream.Free; end; FPropName := ''; end; end; 在两个方法都将Name参数值与当前的属性名比较，如果相同则进行读操作。在DefineBinaryproperty中，创建了一个内存流。先将数据读到内存流中然后调用ReadData读取数据。 3. FlushBuffer的实现 FlushBuffer方法用于清除Reader对象的内部缓冲区中的内容，保持Reader对象和流在位置（Position）上的同步，其实现如下： procedure TReader.FlushBuffer; begin FStream.Position := FStream.Position - (FBufEnd - FBufPos); FBufPos := 0; FBufEnd := 0; end; 4. ReadListBegin、ReadListEnd和EndOfList方法 这三个方法都是用于从Reader对象的流中读取一连串的项目，并且这些项目都由WriteListBegin写入的标志标定开始和WriteListEnd写入标志，标定结束，在读循环中用EndOfList进行判断。它们是在Reader对象读取流中数据时经常用于的。它们的实现如下： 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; 项目表开始标志是VaList，项目表结束标志是VaNull，VaList和VaNull都是枚举类型TValueType定义的常量。 它们实现中调用的CheckValue是TReader的私有方法，其实现如下： procedure TReader.CheckValue(Value: TValueType); begin if ReadValue <> Value then begin Dec(FBufPos); SkipValue; PropValueError; end; end; CheckValue方法的功能是检测紧接着要读的值是否是Value指定的类型。如果不是则跳过该项目并触发一个SInvalidPropertyValue错误。 EndOfList函数只是简单地判断下一字节是否是VaNull将判断结果返回，并将字节移回原来位置。 5. 简单数据类型读方法的实现 简单数据类型指的是布尔型、字符型、整型、字符串型、浮点型、集合类型和标识符。将它们放在一起介绍是因为它们的实现方法类似。 因为它们的实现都用到了ReadValue方法，因此先来介绍ReadValue方法的实现： function TReader.ReadValue: TValueType; begin Read(Result, SizeOf(Result)); end; 该方法调用私有方法Read，从Reader对象流中读一个字节，并移动位置指针。 ReadValue方法专门从流中读取值的类型的，所有的数据读写方法中在读取数据前都要调用ReadValue方法判断是否是所要读的数据。如果是，则调用Read方法读取数据；否则触发一个异常事件，下面看Integer类型的读方法： 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: Read(Result, SizeOf(Result)); else PropValueError; end; end; 因为Delphi 2.0中，整型可分8位、16位和32位，因此读取整型数据时分别作了判断。 布尔类型的数据是直接放在值类型标志上，如果类型为VaTrue，则值为True；如果类型为VaFalse，则值为False。 function TReader.ReadBoolean: Boolean; begin Result := ReadValue = vaTrue; end; ReadString方法也利用ReadValue方法判断是字符串还是长字符串。 function TReader.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类型紧接着一个字节存有字符串的长度；如果是VaLString类，则紧接着两个字节存放字符串长度，然后根据字符串长度用SetString过程给分配空间，用Read方法读出数据。 ReadFloat方法允许将整型值转换为浮点型。 function TReader.ReadFloat: Extended; begin if ReadValue = vaExtended then Read(Result, SizeOf(Result)) else begin Dec(FBufPos); Result := ReadInteger; end; end; 字符类型数据设有直接的标志，它是根据VaString后面放一个序值为1的字节来判断的。 function TReader.ReadChar: Char; begin CheckValue(vaString); Read(Result, 1); if Ord(Result) <> 1 then begin Dec(FBufPos); ReadStr; PropValueError; end; Read(Result, 1); end; 出于读取DFM文件需要，Filer对象支持读取标识符。 function TReader.ReadIdent: string; var L: Byte; begin case ReadValue of vaIdent: begin Read(L, SizeOf(Byte)); SetString(Result, PChar(nil), L); Read(Result[1], L); end; vaFalse: Result := 'False'; vaTrue: Result := 'True'; vaNil: Result := 'nil'; else PropValueError; end; end; 一般说来，各种复杂的数据结构都是由这些简单数据组成;定义了这些方法等于给读各种类型的数据提供了元操作，使用很方便。例如，读取字符串类型的数据时，如果采用传流方法还要判断字符串的长度，使用ReadString方法就不同了。但应该特别注意的是这些类型数据的存储格式是由Delphi设计的与简单数据类型有明显的不同。因此，存入数据时应当使用Writer对象相应的方法，而且在读数据前要用NextValue方法进行判断，否则会触发异常事件。 6. 读取部件的方法的实现 Reader对象中用于读取部件的方法有ReadSignature、ReadPrefix、ReadComponent、ReadRootComponent和ReadComponents。 ReadSignature方法主要用于读取Delphi Filer对象标签一般在读取部件前，都要用调用ReadSignature方法以指导部件读写过程。 procedure TReader.ReadSignature; var Signature: Longint; begin Read(Signature, SizeOf(Signature)); if Signature <> Longint(FilerSignature) then ReadError(SInvalidImage); end; FilerSignature就是Filer对象标签其值为“TPF0” ，如果读的不是“TPF0” ，则会触发SInValidImage异常事件。 ReadPrefix方法是用于读取流中部件前的标志位，该标志表示该部件是否处于从祖先窗体中继承的窗体中和它在窗体中的位置是否很重要。 procedure TReader.ReadPrefix(var Flags: TFilerFlags; varAChildPos: 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); TFilerFlags = Set of TFilerFlag; 充当标志的字节的高四位是$F，低四位是集合的值，也是标志位的真正含义。如果ffChildPos置位，则紧接着的整型数字中放着部件在窗体中的位置序值。 ReadComponent方法用于从Reader对象的流中读取部件。Component 参数指定了要从流中读取的对象。函数返回所读的部件。 function TReader.ReadComponent(Component: TComponent):TComponent; var CompClass, CompName: string; Flags: TFilerFlags; Position: Integer; … begin ReadPrefix(Flags, Position); CompClass := 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 (ffInherited 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; raise; end; end; ReadCompontent方法首先调用ReadPrefix方法，读出部件标志位和它的创建次序值(Create Order)。然后用ReadStr方法分别读出部件类名和部件名。如果Component参数为nil，则执行两个任务： ● 如果ffInberited 置位则从Root 找已有部件，否则，就从系统的Class表中找到该部件类型的定义并创建 ● 如果结果不为空，将用部件的ReadState方法读入各种属性值，并设置部件的Parent 属性，并恢复它在Parent部件的创建次序。 ReadComponent方法主要是调用ReadComponent方法从Reader对象的流中读取一连串相关联的部件，并分解相互引用关系。 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); Proc(Component); end; FixupReferences; finally EndReferences; end; end; ReadComponents首先用AOwner和AParent参数给Root,Owner和Parent赋值，用于重建各部件的相互引用。然后用一个While循环读取部件并用由Proc传入的方法进行处理。在重建引用关系时，用了BeginReferences、FixUpReferences和EndReferences嵌套模式。 ReadRootComponent方法从Reader对象的流中将部件及其拥有的部件全部读出。如果Component参数为nil，则创建一个相同类型的部件，最后返回该部件： 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(FindClass(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 := TList.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(FLoaded[I]).Loaded; finally if GlobalLoaded = nil then FLoaded.Free; FLoaded := nil; end; GlobalFixupReferences; except RemoveFixupReferences(Root, ''); if Root = nil then Result.Free; raise; end; end; ReadRootComponent首先调用ReadSignature读取Filer对象标签。然后在try…except循环中执行读取任务。如果Root参数为nil，则用ReadStr读出的类名创建新部件，并以流中读出部件的Name属性；否则，忽略类名，并判断Name属性的唯一性。最后用Root的ReadState方法读取属性和其拥有的拥有并处理引用关系。 7. SetName方法和OnSetName事件 因为在OnSetName事件中，Name参数是var型的，所以可以用OnSetName事件处理过程修改所读部件的名字。而OnSetName事件处理过程是在SetName方法中实现的。 procedure TReader.SetName(Component: TComponent; var Name:string); begin if Assigned(FOnSetName) then FOnSetName(Self, Component, Name); Component.Name := Name; end; SetName方法和OnSetName事件在动态DFM文件的编程中有很重要的作用。 8. TReader的错误处理 TReader的错误处理是由Error方法和OnError事件的配合使用完成的。OnError 事件处理过程的Handled参数是var型的布尔变量，通过将Handled设为True或False可影响TReader 的错误处理。OnError事件处理过程是在Error方法中调用的。 function TReader.Error(const Message: string): Boolean; begin Result := False; if Assigned(FOnError) then FOnError(Self, Message, Result); end; 9. FindMethod和OnFindMethod事件 有时，在程序运行期间，给部件的方法指针(主要是事件处理过程)动态赋值是很有用的，这样就能动态地改变部件响应事件的方式。在流中读取部件捍做到一点就要利用OnFindMehtod事件。OnFIndMethod事件是在FindMethod方法中被调用的。 function TReader.FindMethod(Root: TComponent; const MethodName: string): Pointer; var Error: Boolean; begin Result := Root.MethodAddress(MethodName); Error := Result = nil; if Assigned(FOnFindMethod) then FOnFindMethod(Self,MethodName, Result, Error); if Error then PropValueError; end; OnFindMethod 方法除了可以给部件的MethodName所指定的方法指针动态赋值外，还可修改Error参数来决定是否处理Missing Method错误。方法中调用的MehtodAddress 方法定义在TObject中，它是个很有用的方法，它可以得到对象中定义的public方法的地址。FindMethod方法和OnFindMethod事件在动态DFM的编程中有很重要的作用。 20.3 Delphi对象式数据管理应用实例 Delphi 2.0无论是其可视化设计工具，还是可视化部件类库(VCL)，都处处渗透了对象存储技术，本节将从Delphi可视化设计内部机制、VCL中的数据存储、BLOB数据操作和动态生成部件的存储几方面介绍对象存储功能的实例应用。 20.3.1 Delphi 动态DFM文件及部件的存取在超媒体系统中的应用 Delphi的可视化设计工具是同其部件类库紧密结合在一起的。 每个部件只有通过一段注册程序并通过Delphi的Install Component功能，才能出现在ComponentPalette上；部件的属性才有可能出现在Object Inspector窗口中；部件的属性编辑器才能被Delphi环境使用。因为这种浑然天成的关系，DFM文件存取必然得到VCL在程序上的支持。 DFM文件的部件存取是Delphi可视化设计环境中文件存取的中心问题。因为Delphi可视化设计的核心是窗体的设计。每个窗体对应一个库单元，是应用程序的模块，窗体在磁盘上的存储就是DFM文件。 DFM文件结构我们前面介绍过了。它实际上是存储窗体及其拥有的所有部件的属性。这种拥有关系是递归的。问题在于如何将这些属性数据与程序中的变量(属性)代码联系起来。 在Delphi中处理这种联系的过程分为两种情况：设计时和运行时。 在设计时，建立联系表现为读取DFM 文件，建立DFM文件中的部件及其属性与可视化设计工具(Object Inspector、窗体设计窗口和代码编辑器)的联系，也就是说让这些部件及其属性能出现在这些窗口中，并与代码中的属性定义联系起来；分解联系表现为存储DFM文件，将窗体窗口中的部件及其属性写入DFM文件。 在运行时，主要是建立联系的过程，即读取DFM文件。这时，DFM文件不是作为独立的磁盘文件，而是以应用程序资源中的RCDATA类型的二进制数据存在。建立联系的过程表现为将资源中的部件及其属性与应用程序中的对象及其数据域联系起来。其过程为：根据DFM中的部件类名创建对象，再将用DFM中的部件属性值给程序中的部件属性赋值。当然要完成这一过程，还必须在代码中有相应的窗体定义，因为方法等代码是不存入部件的。 VCL对读取DFM文件在代码上的支持是通过Stream对象和Filer对象达到的。在20. 1和20.1节中，我们可以看到Stream对象和Filer对象中有大量的用于存取部件及其属性的方法，尤其在TReader对象中，还有关于错误处理和动态的方法赋值的方法。下面我们就通过程序实例介绍存取DFM文件方法、步骤和注意事项。
|
当前位置：
