开发Delphi对象式数据管理功能（五）
源代码网整理以下20.3.1.1写DFM文件的过程：WriteComponentResFie 源代码网整理以下 该过程带有两个参数FileName和Instance。FileName参数指定要写入的DFM文件名，Instance参数是TComponent类型的，它指定要写入的部件名，一般是TForm对象的子类。该过程将Instance部件和其拥有的所有部件写入DFM文件。 源代码网整理以下 这个过程的意义在于，可以在程序运行过程中产生Delphi的窗体部件和在窗体中插入部件，并由该函数将窗体写入DFM文件，支持了动态DFM文件的重用性。 源代码网整理以下 该过程的程序是这样的： 源代码网整理以下 软件开发网 www.mscto.com 源代码网整理以下procedure WriteComponentResFile(const FileName: string; Instance: TComponent); 源代码网整理以下var 源代码网整理以下Stream: TStream; 源代码网整理以下begin 源代码网整理以下Stream := TFileStream.Create(FileName, fmCreate); 源代码网整理以下try 源代码网整理以下Stream.WriteComponentRes(Instance.ClassName, Instance); 源代码网整理以下finally 源代码网整理以下Stream.Free; 软件开发网 www.mscto.com 源代码网整理以下end; 源代码网整理以下end; 软件开发网 www.mscto.com 源代码网整理以下 源代码网整理以下 函数中，用FileStream创建文件，用Stream对象的WriteComponetRes方法将Instance写入流中。 源代码网整理以下 源代码网整理以下20.3.1.2 读DFM文件的函数：ReadComponentResFile 软件开发网 www.mscto.com 源代码网整理以下 源代码网整理以下ReadComponentResFile函数带有两个参数FileName和Instance。FileName参数指定要读DFM文件名，Instance参数指定从DFM文件中要读的部件。该函数从DFM文件中将Instance和它拥有的所有部件，并返回该部件。 源代码网整理以下 这个函数的意义在于，配合WriteComponentResFile过程的使用支持DFM文件的重用性。 源代码网整理以下 该函数的程序是这样的： 源代码网整理以下 源代码网整理以下function ReadComponentResFile(const FileName: string; Instance: TComponent): 源代码网整理以下TComponent; 软件开发网 www.mscto.com 源代码网整理以下var 源代码网整理以下Stream: TStream; 源代码网整理以下begin 软件开发网 www.mscto.com 源代码网整理以下Stream := TFileStream.Create(FileName, fmOpenRead); 源代码网整理以下try 源代码网整理以下Result := Stream.ReadComponentRes(Instance); 源代码网整理以下finally 软件开发网 www.mscto.com 源代码网整理以下Stream.Free; 源代码网整理以下end; 源代码网整理以下end; 源代码网整理以下 软件开发网 www.mscto.com
源代码网整理以下 程序中使用FileStream对象打开由FileName指定的DFM文件，然后用Stream对象的ReadComponentRes方法读出Instance，并将读的结果作为函数的返回值。 源代码网整理以下 源代码网整理以下20.3.1.3 读取Delphi应用程序资源中的部件 源代码网整理以下 源代码网整理以下 函数InternalReadComponentRes可以读取Delphi应用程序资源中的部件。Delphi 的DFM文件在程序经过编译链接后被嵌入应用程序的资源中，而且格式发生了改变，即少了资源文件头。 源代码网整理以下在第一节中曾经介绍过TResourceStream对象，该对象是操作资源媒介上的数据的。函数InternalReadComponentRes用了TResourceStream。程序是这样的： 源代码网整理以下 源代码网整理以下function InternalReadComponentRes(const ResName: string; 源代码网整理以下var Instance: TComponent): Boolean; 源代码网整理以下var 源代码网整理以下HRsrc: THandle; 源代码网整理以下begin { 避免“EResNotFound”异常事件的出现 } 源代码网整理以下HRsrc := FindResource(HInstance, PChar(ResName), RT_RCDATA); 软件开发网 www.mscto.com
源代码网整理以下Result := HRsrc <> 0; 源代码网整理以下if not Result then Exit; 软件开发网 www.mscto.com
源代码网整理以下FreeResource(HRsrc); 源代码网整理以下with TResourceStream.Create(HInstance, ResName, RT_RCDATA) do 软件开发网 www.mscto.com 源代码网整理以下try 源代码网整理以下Instance := ReadComponent(Instance); 源代码网整理以下finally 源代码网整理以下Free; 软件开发网 www.mscto.com 源代码网整理以下end; 源代码网整理以下Result := True; 源代码网整理以下end; 源代码网整理以下 源代码网整理以下 HInstance是一个Delphi VCL定义的全局变量，代表当前应用程序的句柄。函数用了资源访问API函数FindResource来测定是否存在ResName所描述资源。因为在TResourceStream的创建过程还有FindResource等操作，所以函数中调用了FreeResource。最后函数调用了Stream对象的ReadComponent方法读出部件。因为函数的Instance是var类型的参数，所以可以访问Instance，得到读出的部件。 源代码网整理以下 软件开发网 www.mscto.com 源代码网整理以下20.3.1.4 DFM文件与标准文本文件(TXT文件)的相互转换 源代码网整理以下 源代码网整理以下 在Delphi可视化设计环境中，允许程序员在代码编辑器中以文本的方式浏览和修改DFM文件内容。当用File/Open命令直接打开DFM文件或者选择窗体设计窗口的弹出式菜单上的View as Text命令时，就会在编辑器中出现文本形式的信息。我们姑且将这种文本形式称之为窗体设计脚本。Delphi提供的这种脚本编辑功能是对Delphi可视化设计的一大补充。当然这个脚本编辑能力是有限制的，比方说不能在脚本任意地添加和删除部件，因为代码和DFM脚本是紧密相连的，任意添加和修改会导致不一致性。然而在动态生成的DFM文件中，就不存在这一限制，后面会介绍DFM动态生成技术的应用。 软件开发网 www.mscto.com 源代码网整理以下 实际上，DFM文件内容是二进制数据，它的脚本是经过Delphi开发环境自动转化的，而且Delphi VCL中的Classes库单元中提供了在二进制流中的文件DFM和它的脚本之相互转化的过程。它们是ObjectBinaryToText和ObjectTextBinary、ObjectResourceToText和ObjectTextToResource。 源代码网整理以下ObjectBinaryToText过程将二进制流中存储的部件转化为基于文本的表现形式，这样就可以用文本处理函数进行处理，还可以用文本编辑器进行查找和替代操作，最后可以将文本再转化成二进制流中的部件。 源代码网整理以下 ObjectBinaryToText过程的主程序是这样的： 软件开发网 www.mscto.com
源代码网整理以下 源代码网整理以下procedure ObjectBinaryToText(Input, Output: TStream); 源代码网整理以下var 软件开发网 www.mscto.com 源代码网整理以下NestingLevel: Integer; 源代码网整理以下SaveSeparator: Char; 源代码网整理以下Reader: TReader; 源代码网整理以下Writer: TWriter; 源代码网整理以下 源代码网整理以下procedure WriteIndent; 源代码网整理以下const 源代码网整理以下Blanks: array[0..1] of Char = " "; 源代码网整理以下var 源代码网整理以下I: Integer; 源代码网整理以下begin 源代码网整理以下for I := 1 to NestingLevel do Writer.Write(Blanks, SizeOf(Blanks)); 源代码网整理以下end; 源代码网整理以下 源代码网整理以下procedure WriteStr(const S: string); 源代码网整理以下begin 源代码网整理以下Writer.Write(S[1], Length(S)); 源代码网整理以下end; 源代码网整理以下 源代码网整理以下procedure NewLine; 源代码网整理以下begin 源代码网整理以下WriteStr(#13#10); 源代码网整理以下WriteIndent; 源代码网整理以下end; 源代码网整理以下 源代码网整理以下procedure ConvertHeader; 软件开发网 www.mscto.com 源代码网整理以下begin 源代码网整理以下… 源代码网整理以下end; 源代码网整理以下 源代码网整理以下procedure ConvertBinary; 源代码网整理以下begin 源代码网整理以下… 源代码网整理以下end; 源代码网整理以下 源代码网整理以下procedure ConvertValue; 源代码网整理以下begin 软件开发网 www.mscto.com
源代码网整理以下… 源代码网整理以下end; 软件开发网 www.mscto.com 源代码网整理以下 软件开发网 www.mscto.com 源代码网整理以下procedure ConvertProperty; 源代码网整理以下begin 源代码网整理以下… 源代码网整理以下end; 软件开发网 www.mscto.com 源代码网整理以下 源代码网整理以下procedure ConvertObject; 源代码网整理以下begin 源代码网整理以下… 源代码网整理以下end; 源代码网整理以下 源代码网整理以下begin 源代码网整理以下NestingLevel := 0; 源代码网整理以下Reader := TReader.Create(Input, 4096); 源代码网整理以下SaveSeparator := DecimalSeparator; 源代码网整理以下DecimalSeparator := "."; 源代码网整理以下try 源代码网整理以下Writer := TWriter.Create(Output, 4096); 源代码网整理以下try 源代码网整理以下Reader.ReadSignature; 源代码网整理以下ConvertObject; 软件开发网 www.mscto.com 源代码网整理以下finally 软件开发网 www.mscto.com
源代码网整理以下Writer.Free; 源代码网整理以下end; 源代码网整理以下finally 源代码网整理以下DecimalSeparator := SaveSeparator; 源代码网整理以下Reader.Free; 软件开发网 www.mscto.com 源代码网整理以下end; 源代码网整理以下end; 软件开发网 www.mscto.com 源代码网整理以下 源代码网整理以下 过程中调用的ConvertObject过程是个递归过程，用于将DFM文件中的每一个部件转化为文本形式。因为由于部件的拥有关系，所以部件成嵌套结构，采用递归是最好的方式： 源代码网整理以下 源代码网整理以下procedure ConvertObject; 源代码网整理以下begin 源代码网整理以下ConvertHeader; 源代码网整理以下Inc(NestingLevel); 源代码网整理以下while not Reader.EndOfList do ConvertProperty; 源代码网整理以下Reader.ReadListEnd; 源代码网整理以下while not Reader.EndOfList do ConvertObject; 源代码网整理以下Reader.ReadListEnd; 软件开发网 www.mscto.com 源代码网整理以下Dec(NestingLevel); 源代码网整理以下WriteIndent; 源代码网整理以下WriteStr("end"#13#10); 软件开发网 www.mscto.com 源代码网整理以下end; 源代码网整理以下 软件开发网 www.mscto.com
源代码网整理以下 NestStingLevel变量表示部件的嵌套层次。WriteIndent是写入每一行起始字符前的空格，ConvertHeader过程是处理部件的继承标志信息。转换成的头信息文本有两种形式。 源代码网整理以下 Inherited TestForm1: TTestForm[2] 源代码网整理以下 或者： 源代码网整理以下Object TestForm1: TTestForm 源代码网整理以下 源代码网整理以下前者是ffInherited和ffChildPos置位，后面是都没置位。 源代码网整理以下 ConvertProperty过程用于转化属性。 源代码网整理以下 源代码网整理以下procedure ConvertProperty; 源代码网整理以下begin 源代码网整理以下WriteIndent; 源代码网整理以下WriteStr(Reader.ReadStr); 源代码网整理以下WriteStr(" = "); 源代码网整理以下ConvertValue; 源代码网整理以下WriteStr(#13#10); 软件开发网 www.mscto.com
源代码网整理以下end; 源代码网整理以下 源代码网整理以下 WriteIndent语句写入属性名前的空格，WriteStr(Reader.ReadStr)语句写入属性名ConvertValue过程根据属性的类型将属性值转化为字符串，然后写入流中。 软件开发网 www.mscto.com 源代码网整理以下 ObjectTextToBinary过程执行的功能与ObjectBinaryToText相反，将TXT文件转换为二进制流中的部件，而且只要TXT文件内容的书写符合DFM脚本语法，ObjectTextToBinary可将任何程序生成的TXT文件转换为部件，这一功能也为DFM 文件的动态生成和编辑奠定了基础。ObjectTextToBinary过程的主程序如下： 源代码网整理以下 源代码网整理以下procedure ObjectTextToBinary(Input, Output: TStream); 源代码网整理以下var 源代码网整理以下SaveSeparator: Char; 源代码网整理以下Parser: TParser; 源代码网整理以下Writer: TWriter; 源代码网整理以下 源代码网整理以下 … 源代码网整理以下 源代码网整理以下begin 源代码网整理以下Parser := TParser.Create(Input); 源代码网整理以下SaveSeparator := DecimalSeparator; 源代码网整理以下DecimalSeparator := "."; 源代码网整理以下try 源代码网整理以下Writer := TWriter.Create(Output, 4096); 源代码网整理以下try 源代码网整理以下Writer.WriteSignature; 源代码网整理以下ConvertObject; 源代码网整理以下finally 源代码网整理以下Writer.Free; 源代码网整理以下end; 源代码网整理以下finally 源代码网整理以下DecimalSeparator := SaveSeparator; 源代码网整理以下Parser.Free; 源代码网整理以下end; 源代码网整理以下end; 源代码网整理以下 源代码网整理以下 在程序流程和结构上与ObjectBinaryToText差不多。ConvertObject也是个递归过程： 源代码网整理以下 源代码网整理以下procedure ConvertObject; 软件开发网 www.mscto.com 源代码网整理以下var 源代码网整理以下InheritedObject: Boolean; 源代码网整理以下begin 源代码网整理以下InheritedObject := False; 源代码网整理以下if Parser.TokenSymbolIs("INHERITED") then 源代码网整理以下InheritedObject := True 软件开发网 www.mscto.com 源代码网整理以下else 源代码网整理以下Parser.CheckTokenSymbol("OBJECT"); 源代码网整理以下Parser.NextToken; 源代码网整理以下ConvertHeader(InheritedObject); 源代码网整理以下while not Parser.TokenSymbolIs("END") and 源代码网整理以下not Parser.TokenSymbolIs("OBJECT") and 源代码网整理以下not Parser.TokenSymbolIs("INHERITED") do ConvertProperty; 源代码网整理以下Writer.WriteListEnd; 源代码网整理以下while not Parser.TokenSymbolIs("END") do ConvertObject; 源代码网整理以下Writer.WriteListEnd; 源代码网整理以下Parser.NextToken; 源代码网整理以下end; 软件开发网 www.mscto.com
源代码网整理以下 源代码网整理以下 DFM文件与DFM脚本语言之间相互转换的任务由ObjectResourceToText和ObjextTextToResource两个过程完成。 源代码网整理以下 源代码网整理以下procedure ObjectResourceToText(Input, Output: TStream); 源代码网整理以下begin 源代码网整理以下Input.ReadResHeader; 源代码网整理以下ObjectBinaryToText(Input, Output); 源代码网整理以下end; 源代码网整理以下 源代码网整理以下ObjectTextToResource过程就比较复杂，因为DFM文件资源头中要包含继承标志信息，因此在调用ObjectTextToBinary后，就读取标志信息，然后写入资源头。 源代码网整理以下 软件开发网 www.mscto.com 源代码网整理以下procedure ObjectTextToResource(Input, Output: TStream); 源代码网整理以下var 源代码网整理以下Len: Byte; 源代码网整理以下Tmp: Longint; 源代码网整理以下MemoryStream: TMemoryStream; 源代码网整理以下MemorySize: Longint; 源代码网整理以下Header: array[0..79] of Char; 源代码网整理以下begin 软件开发网 www.mscto.com 源代码网整理以下MemoryStream := TMemoryStream.Create; 源代码网整理以下try 源代码网整理以下ObjectTextToBinary(Input, MemoryStream); 源代码网整理以下MemorySize := MemoryStream.Size; 源代码网整理以下FillChar(Header, SizeOf(Header), 0); 源代码网整理以下MemoryStream.Position := SizeOf(Longint); { Skip header } 源代码网整理以下MemoryStream.Read(Len, 1); 源代码网整理以下if Len and $F0 = $F0 then 源代码网整理以下begin 软件开发网 www.mscto.com 源代码网整理以下if ffChildPos in TFilerFlags((Len and $F0)) then 源代码网整理以下begin 源代码网整理以下MemoryStream.Read(Len, 1); 源代码网整理以下case TValueType(Len) of 源代码网整理以下vaInt8: Len := 1; 源代码网整理以下vaInt16: Len := 2; 源代码网整理以下vaInt32: Len := 4; 源代码网整理以下end; 源代码网整理以下MemoryStream.Read(Tmp, Len); 源代码网整理以下end; 源代码网整理以下MemoryStream.Read(Len, 1); 源代码网整理以下end; 源代码网整理以下MemoryStream.Read(Header[3], Len); 源代码网整理以下StrUpper(@Header[3]); 源代码网整理以下Byte((@Header[0])^) := $FF; 源代码网整理以下Word((@Header[1])^) := 10; 源代码网整理以下Word((@Header[Len 4])^) := $1030; 源代码网整理以下Longint((@Header[Len 6])^) := MemorySize; 源代码网整理以下Output.Write(Header, Len 10); 源代码网整理以下Output.Write(MemoryStream.Memory^, MemorySize); 源代码网整理以下finally 源代码网整理以下MemoryStream.Free; 源代码网整理以下end; 源代码网整理以下end; 软件开发网 www.mscto.com
源代码网整理以下 源代码网整理以下20.3.1.5 动态DFM文件应用揭秘 源代码网整理以下 软件开发网 www.mscto.com 源代码网整理以下 1. 动态DFM文件概述 源代码网整理以下动态DFM文件是相对于静态DFM文件而言。所谓静态DFM文件是指在Delphi开发环境中设计的窗体文件。窗体的设计过程就是程序的编制过程。因此，动态DFM文件就是指在程序运行过程生成或存取的DFM文件。 源代码网整理以下 动态DFM文件的创建和使用分别如下两种情况： 源代码网整理以下 ● 在程序运行过程中，由Create方法动态生成窗体或部件，然后动态生成其它部件插入其中生成DFM文件 软件开发网 www.mscto.com 源代码网整理以下 ● 在Delphi开发环境中，设计生成DFM文件，然后用DFM 文件存取函数，或者用Stream对象和Filer对象的方法，将DFM文件读入内存，进行处理，最后又存入磁盘中 软件开发网 www.mscto.com 源代码网整理以下 源代码网整理以下 由Delphi的窗体设计的常规方法生成的DFM文件在程序运行一开始就规定了部件的结构。因为在窗体设计过程中，窗体中的每个部件都在程序的对象声明中定义了部件变量。这种固定的结构虽然能方便应用，但以牺牲灵活性为代价。 源代码网整理以下 在Delphi应用程序中有时需要在运行过程中创建控制，然后将该控制插入另一个部件中。例如： 源代码网整理以下 源代码网整理以下procedure TForm1.Button1Click(Sender: Tobject); 源代码网整理以下var 软件开发网 www.mscto.com 源代码网整理以下Ctrl: TControl 源代码网整理以下begin 源代码网整理以下Ctrl := TEdit.Create(Self); 源代码网整理以下Ctrl.Top := 100; 源代码网整理以下Ctrl.Left := 100; 源代码网整理以下Ctrl.Width := 150; 源代码网整理以下Ctrl.Height := 20; 源代码网整理以下InsertControl(Ctrl); 源代码网整理以下end; 源代码网整理以下 源代码网整理以下 动态插入控制的优点是可以在任何时刻、任意位置插入任意数量的任何类型的控制。因为应用程序需求在很多情况下是在程序运行中才知道的，所以动态插入控制就显得很重要。而且在很多情况下，需要保存这些界面元素，留待程序再次调用。例如应用程序界面的定制、系统状态的保存、对话框的保存等。这时生成动态DFM文件是最佳选择。 软件开发网 www.mscto.com 源代码网整理以下 动态插入控制的不足之处是在插入控制前，无法直观地看到控制的大小、风格、位置等，也就是动态插入控制的过程是非可视化的。但可以借助于静态DFM文件的可视化设计。这就是生成和使用动态DFM文件的第二种方法。也就是在应用程序运行前，在Delphi开发环境中，使用可视化开发工具设计所需窗口或部件的样式，以DFM文件保存。然后在应用程序运行过程中，将DFM文件读入内存。Delphi的Stream对象和Filer对象在读取DFM文件时，会根据DFM文件的内容自动创建部件及其拥有的所有部件。 源代码网整理以下 在使用动态DFM文件时有两点需要注意。 源代码网整理以下 ● 每一个动态插入的控制或部件必须在程序中调用RegisterClass进行注册 源代码网整理以下 ● 读入DFM文件自动创建部件后，如果调用了InsertControl方法， 则在关闭窗口时要调用RemoveControl方法移去该控制，否则会产生异常事件 源代码网整理以下 源代码网整理以下 2. 动态DFM文件应用之一：超媒体系统的卡片设计 软件开发网 www.mscto.com
源代码网整理以下 Delphi多种类型的可视部件，如文本部件、编辑部件、图形图像部件、数据库部件、媒体媒放部件和OLE部件等，每一种部件在屏幕中占据一定的区域，具有相当丰富的表现能力，可以作为卡片中的一种媒体，因此可以利用这些可视部件进行超媒体系统的卡片设计。 源代码网整理以下 超媒体卡片设计要求卡片中的媒体数目和媒体种类是不受限制的，而且必须能够修改和存取卡片，因此，采用动态DFM文件是比较合适的。而且如果利用Stream对象，将卡片存储在数据库BLOB字段中，就为把超文本与关系数据库技术结合起来创造了契机。 源代码网整理以下 下面是超媒体卡片设计子系统中的部分源程序，它演示了如何创建对象、插入对象和存取动态DFM文件。 源代码网整理以下 ⑴ 在应用程序中注册对象 源代码网整理以下 软件开发网 www.mscto.com 源代码网整理以下procedure TMainForm.FormCreate(Sender: TObject); 源代码网整理以下begin 源代码网整理以下RegisterClass(TLabel); 源代码网整理以下RegisterClass(TEdit); 源代码网整理以下RegisterClass(TMemo); 源代码网整理以下RegisterClass(TButton); 源代码网整理以下RegisterClass(TPanel); 源代码网整理以下RegisterClass(TPanelP); 源代码网整理以下RegisterClass(TBitBtn); 源代码网整理以下… 源代码网整理以下end; 源代码网整理以下 源代码网整理以下⑵ 创建和插入对象 源代码网整理以下 源代码网整理以下procedure TMDIChild.FormClick(Sender: TObject); 源代码网整理以下var 软件开发网 www.mscto.com 源代码网整理以下Ctrl : TControl; 源代码网整理以下Point: TPoint; 源代码网整理以下begin 源代码网整理以下GetCursorPos(Point); 源代码网整理以下Point := BackGround.ScreenToClient(Point); 源代码网整理以下case CurToolIndex of 源代码网整理以下1 : begin 源代码网整理以下Ctrl := TLabel.Create(self); 源代码网整理以下TLabel(Ctrl).AutoSize := False; 源代码网整理以下TLabel(ctrl).Caption := "Label" S; 源代码网整理以下TLabel(ctrl).Name := "Label 1"; 源代码网整理以下TLabel(ctrl).Top := Point.Y; 源代码网整理以下TLabel(ctrl).Left := Point.X; 软件开发网 www.mscto.com 源代码网整理以下TLabel(Ctrl).Height := Round(100*Res/1000/Ratio); 软件开发网 www.mscto.com 源代码网整理以下TLabel(Ctrl).Width := Round(600*Res/1000/Ratio); 源代码网整理以下TLabel(Ctrl).Color := clWhite; 源代码网整理以下TLabel(Ctrl).Font.Color := clBlack; 源代码网整理以下TLabel(Ctrl).Font.Name := "Roman"; 源代码网整理以下TLabel(Ctrl).Font.Height := -TLabel(Ctrl).Height; 软件开发网 www.mscto.com
源代码网整理以下TLabel(Ctrl).Font.Pitch := fpFixed; 源代码网整理以下TLabel(Ctrl).Enabled := False; 源代码网整理以下TLabel(Ctrl).OnClick := LabelClick; 源代码网整理以下TLabel(Ctrl).OnMouseMove := ReportPos; 软件开发网 www.mscto.com 源代码网整理以下BackGround.InsertControl(Ctrl); 源代码网整理以下CurTool.Down := False; 软件开发网 www.mscto.com 源代码网整理以下CurTool := nil; 软件开发网 www.mscto.com 源代码网整理以下… 源代码网整理以下end; 源代码网整理以下2: begin 源代码网整理以下Ctrl := TEdit.Create(self); 软件开发网 www.mscto.com 源代码网整理以下TEdit(ctrl).AutoSize := True; 软件开发网 www.mscto.com
源代码网整理以下TEdit(ctrl).Top := Point.Y; 源代码网整理以下TEdit(ctrl).Left := Point.X; 源代码网整理以下TEdit(Ctrl).Height := 20; 源代码网整理以下BackGround.InsertControl(Ctrl); 源代码网整理以下… 源代码网整理以下end; 源代码网整理以下3: 源代码网整理以下… 源代码网整理以下end; 源代码网整理以下end; 源代码网整理以下 源代码网整理以下 ⑵ 存取动态DFM文件 源代码网整理以下 源代码网整理以下procedure TMainForm.FileOpen(Sender: TObject); 软件开发网 www.mscto.com 源代码网整理以下begin 软件开发网 www.mscto.com 源代码网整理以下if OpenDialog.Execute then 源代码网整理以下begin 软件开发网 www.mscto.com 源代码网整理以下DesignWin := TMDIChild.Create(Application); 源代码网整理以下ReadComponentResFile(OpenDialog.FileName, DesignWin); 源代码网整理以下DesignWin.Init; 源代码网整理以下FileName := OpenDialog.FileName; 源代码网整理以下DesignWin.Caption := FFileName; 源代码网整理以下end; 源代码网整理以下end; 源代码网整理以下 源代码网整理以下 DesignWin是在TMainForm中定义的TMDIChild类型的窗体部件，是卡片设计平台；FFileName是私有变量，用来保存当前编辑的卡片文件名。DesignWin的Init方法实现如下： 源代码网整理以下 源代码网整理以下procedure TMDIChild.Init; 源代码网整理以下var 软件开发网 www.mscto.com 源代码网整理以下I: Integer; 源代码网整理以下Ctrl: TControl; 源代码网整理以下begin 源代码网整理以下BackGround.BringToFront; 源代码网整理以下with BackGround do 软件开发网 www.mscto.com
源代码网整理以下for I:= 0 to ControlCount - 1 do 源代码网整理以下if Controls[I].Name <> "then 源代码网整理以下ObjectIns.ObjectList.Items.AddObject(Controls[I].Name, Controls[I]); 源代码网整理以下end; 软件开发网 www.mscto.com 源代码网整理以下 源代码网整理以下 BackGround是TPanel类型的部件，所有的动态创建对象都插入到BackGround中，所以，后面调用BackGround.InsertControl(Ctrl)；ObjectIns是个仿Delphi 的媒体属性编辑器。 源代码网整理以下 动态DFM文件的存储过程是这样的： 源代码网整理以下 源代码网整理以下procedure TMainForm.FileSave(Sender: TObject); 源代码网整理以下begin 源代码网整理以下if DesignWin.CurControl <> nil then 源代码网整理以下DesignWin.CurControl.Enabled := True; 软件开发网 www.mscto.com
源代码网整理以下WriteComponentResFile(FFilename, DesignWin); 源代码网整理以下DesignWin.Caption := FileName; 源代码网整理以下end; 软件开发网 www.mscto.com 源代码网整理以下end; 源代码网整理以下 软件开发网 www.mscto.com 源代码网整理以下 因为在DesignWin的Init方法中调用了InsertControl方法，所以在关闭DesignWin窗口时要相应地调用RemoveControl，否则在关闭DesignWin窗口时会产生内存错误。 源代码网整理以下 源代码网整理以下procedure TMDIChild.FormCloseQuery(Sender: TObject; var CanClose: Boolean); 源代码网整理以下var 源代码网整理以下I: Integer; 源代码网整理以下Ctrl: TControl; 源代码网整理以下Removed: Boolean; 源代码网整理以下begin 源代码网整理以下if Modified = True then 源代码网整理以下if MessageDlg("Close the form?", mtConfirmation, 源代码网整理以下[mbOk, mbCancel], 0) = mrCancel then 源代码网整理以下CanClose := False; 软件开发网 www.mscto.com 源代码网整理以下if CanClose = True then 软件开发网 www.mscto.com 源代码网整理以下begin 源代码网整理以下repeat 源代码网整理以下removed := False; 源代码网整理以下I := 0; 源代码网整理以下repeat 源代码网整理以下if BackGround.Controls[I].Name <> " then 软件开发网 www.mscto.com 源代码网整理以下begin 源代码网整理以下BackGround.RemoveControl(BackGround.Controls[I]); 源代码网整理以下Removed := True; 源代码网整理以下end; 源代码网整理以下I := I 1 源代码网整理以下until (I >= BackGround.ControlCount) or (Removed = True); 源代码网整理以下until (Removed = False); 源代码网整理以下SendMessage(ObjectIns.Handle, WM_MDICHILDCLOSED, 0, 0); 软件开发网 www.mscto.com
源代码网整理以下end; 源代码网整理以下end; 源代码网整理以下 软件开发网 www.mscto.com 源代码网整理以下 3. 动态DFM文件应用之二：超媒体系统脚本语言设计 源代码网整理以下 超媒体脚本语言设计是超媒体系统设计的重要内容。脚本语言必须能够表达卡片中的多种媒体对象，必须是可编程，可理解的，必须是可执行的，应该可以由脚本语言生成超媒体系统中的卡片和链。 源代码网整理以下 DFM文件可以看作是超媒体系统的卡片，DFM脚本能够表达DFM文件中的多种控制，也就是说能够表达卡片中的多种媒体对象，再加上DFM脚本的对象式表达，可编辑性，可转换为DFM文件，因此用作超媒体系统脚本语言较好的形式。 源代码网整理以下 ObjectBinaryToText和ObjectTextToBinary过程提供了在部件和DFM脚本之间相互转化的功能，ObjectResourceToText和ObjectTextToResoure过程提供了DFM文件和DFM脚本之间相互转化的功能。这样就可以在应用程序中自如实现超媒体卡片和超媒体脚本语言相互转化。 源代码网整理以下 源代码网整理以下 下面是卡片和脚本语言相互转化的程序： 源代码网整理以下 源代码网整理以下procedure TMDIChild.CardToScript; 源代码网整理以下var 源代码网整理以下In, Out: TStream; 源代码网整理以下begin 源代码网整理以下In := TMemoryStream.Create; 源代码网整理以下Out := TMemoryStream.Create; 源代码网整理以下try 源代码网整理以下In.WriteComponentRes(Self.ClassName, Self); 源代码网整理以下ObjectResourceToText(In, out); 源代码网整理以下ScriptForm.ScriptEdit.Lines.LoadFromStream(Out); 软件开发网 www.mscto.com 源代码网整理以下finally 源代码网整理以下In.Free; 源代码网整理以下Out.Free; 源代码网整理以下end; 源代码网整理以下end; 源代码网整理以下 软件开发网 www.mscto.com 源代码网整理以下 ScriptEdit是个文本编辑器，它的Lines属性是TStrings类型的对象。 软件开发网 www.mscto.com
源代码网整理以下 源代码网整理以下procedure TScriptForm.ScriptToCard; 源代码网整理以下var 源代码网整理以下In, Out: TStream; 源代码网整理以下begin 源代码网整理以下In := TMemoryStream.Create; 源代码网整理以下Out := TMemoryStream.Create; 源代码网整理以下try 源代码网整理以下ScriptForm.ScriptEdit.Lines.SaveToFromStream(In); 软件开发网 www.mscto.com 源代码网整理以下ObjectTextToResource(In, out); 软件开发网 www.mscto.com
源代码网整理以下In.ReadComponentRes(DesignWin); 源代码网整理以下finally 源代码网整理以下In.Free; 源代码网整理以下Out.Free; 源代码网整理以下end; 源代码网整理以下end; 软件开发网 www.mscto.com
源代码网整理以下 源代码网整理以下 这两段程序是对整个卡片，即窗体级，进行转换的。ObjectBinaryToText和ObjectTextToBinary过程可以细化到部件级的转换。因此超媒体脚本语言的编辑可以细化到媒体对象级。 源代码网整理以下 4. 超媒体编辑和表现系统与动态DFM文件的扩展 软件开发网 www.mscto.com 源代码网整理以下 超媒体系统的媒体编辑与卡片管理有其特殊的需求，比如链接需求。这时采用已有的窗体部件和媒体部件并按常规的DFM文件处理就显得力不从心了。解决这个矛盾有两套方案： 源代码网整理以下 ● 利用Delphi部件开发技术，继承和开发新的部件增加新的超媒体特有的属性和处理方法 源代码网整理以下 ● 扩展DFM文件结构，使之能按自己的需要任意地存取和转换部件和DFM文件 源代码网整理以下 源代码网整理以下 前者是充分利用Delphi的面向对象部件开发技术，在存取和转换等处理上仍旧与常规DFM文件相同。而后者需要DFM的存取和转换上作比较大的改动。下文介绍扩展DFM文件的思路。 源代码网整理以下 扩展动态DFM文件的总体思路是降低处理操作的数据的颗粒度，即从原先窗体级降低到部件级。 源代码网整理以下 下面是存取操作的扩展示范： 源代码网整理以下 源代码网整理以下 var 源代码网整理以下FileStream: TStream; 源代码网整理以下I: Integer; 源代码网整理以下begin 源代码网整理以下FileStream := TFileStream.Create("OverView.Crd", fmOpenWrite); 源代码网整理以下With TWriter.Create(FileStream, 4096) do 源代码网整理以下try 源代码网整理以下for I := 0 to DesignWin.ControlCount - 1 do 源代码网整理以下begin 软件开发网 www.mscto.com 源代码网整理以下WriteInteger(MMID[i]); 源代码网整理以下WriteRootComponent(DesignWin.Controls[i]); 源代码网整理以下{ 写相应媒体扩展信息 } 源代码网整理以下 …… 源代码网整理以下 end; 源代码网整理以下WriteListEnd; 源代码网整理以下finally. 源代码网整理以下Free; 源代码网整理以下end; 源代码网整理以下FileStream.Free; 软件开发网 www.mscto.com 源代码网整理以下end; 源代码网整理以下 源代码网整理以下WriteInteger(MMID[i])语句是写入媒体标识。 源代码网整理以下 下面是相应的读扩展DFM的程序： 源代码网整理以下 源代码网整理以下 var 源代码网整理以下PropInfo: PPropInfo; 源代码网整理以下Method : TMethod; 源代码网整理以下FileStream: TStream; 源代码网整理以下I: Integer; 源代码网整理以下begin 源代码网整理以下FileStream := TFileStream.Create("OverView.Crd", fmOpenRead); 源代码网整理以下With TReader.Create(FileStream, 4096) do[page] 源代码网整理以下try 源代码网整理以下while not EndOfList do 软件开发网 www.mscto.com 源代码网整理以下begin 源代码网整理以下case ReadInteger of 源代码网整理以下IDText: begin 软件开发网 www.mscto.com 源代码网整理以下Ctrl := TControl(ReadRootComponent(nil)); 源代码网整理以下PropInfo := GetPropInfo(Ctrl.ClassInfo, "OnClick"); 源代码网整理以下Method.Code:= Self.MethodAddress(MethodName); 源代码网整理以下Method.Data := Self; 源代码网整理以下if Method.Code <> nil then 软件开发网 www.mscto.com 源代码网整理以下SetMethodProp(Ctrl, PropInfo, Method); 源代码网整理以下DesignWin.InsertControl(Ctrl); 源代码网整理以下end; 源代码网整理以下IDImage: 软件开发网 www.mscto.com 源代码网整理以下 …… 源代码网整理以下 end; 源代码网整理以下 …… 源代码网整理以下WriteListEnd; 软件开发网 www.mscto.com 源代码网整理以下end; 源代码网整理以下finally. 源代码网整理以下Free; 源代码网整理以下end; 源代码网整理以下FileStream.Free; 源代码网整理以下end; 源代码网整理以下 源代码网整理以下 SetMethodProp过程是用于重新联接控制和它的事件处理过程。类似的功能还可以用TReader对象的OnFindMethod事件的处理过程来实现。 源代码网整理以下 实现脚本语言扩展的基本方法与存取扩展类似，但它还要加扩展媒体信息转换为文本，并插入到部件的脚本描述中。 源代码网整理以下 软件开发网 www.mscto.com
源代码网整理以下20.3.2 数据库BLOB字段应用 源代码网整理以下 源代码网整理以下 Delphi VCL提供了TBlobStream对象支持对数据库BLOB字段的存取。Delphi 的TBlobStream对象的作用在于一方面可以使Delphi应用程序充分利用多媒体数据库的数据管理能力。另一方面又能利用Delphi Object Pascal的程序设计能力给关系型多媒体数据库提供底层控制能力和全方位的功能扩展余地。 源代码网整理以下 源代码网整理以下20.3.2.1 TBlobStream的使用 源代码网整理以下 源代码网整理以下 TBlobStream对象用一个TBlobField类型的对象作为参数来创建与BLOB字段相联的BLOB流，接着就可用流的存取方法在BLOB字段中存取数据。 源代码网整理以下 软件开发网 www.mscto.com 源代码网整理以下 var 源代码网整理以下BlobStream: TBlobStream; 源代码网整理以下I: Integer; 源代码网整理以下begin 源代码网整理以下BlobStream := TBlobStream.Create(TBlobField(CardTable.Fields[10], bmWrite); 源代码网整理以下With TWriter.Create(BlobStream, 4096) do 软件开发网 www.mscto.com 源代码网整理以下try 源代码网整理以下for I := 0 to DesignWin.ControlCount - 1 do 源代码网整理以下begin 源代码网整理以下WriteInteger(MMID[i]); 源代码网整理以下WriteRootComponent(DesignWin.Controls[i]); 软件开发网 www.mscto.com 源代码网整理以下{ 写相应媒体扩展信息 } 源代码网整理以下 …… 源代码网整理以下 end; 源代码网整理以下WriteListEnd; 源代码网整理以下finally. 源代码网整理以下Free; 源代码网整理以下end; 软件开发网 www.mscto.com 源代码网整理以下BlobStream.Free; 源代码网整理以下CardTable.Post; 源代码网整理以下end; 源代码网整理以下 源代码网整理以下 Fields变量是表示数据库记录的字段数组，Fields[10]正是数据库的BLOB 字段。CardTable的Post方法将数据库的修改反馈到数据库的物理存储上。 源代码网整理以下 上面这段程序是超媒体卡片存储的部分源程序，我们就是将卡片保存在数据库BLOB字段中，实现将超文本和关系数据库两种数据管理方式结合起来。读卡片的程序如下： 软件开发网 www.mscto.com 源代码网整理以下 源代码网整理以下 var 源代码网整理以下PropInfo: PPropInfo; 源代码网整理以下Method: TMethod; 源代码网整理以下Blobtream: TStream; 源代码网整理以下I: Integer; 源代码网整理以下begin 源代码网整理以下BlobStream := TBlobStream.Create(TBlobField(CardTable.Fields[10]), bmRead); 源代码网整理以下With TReader.Create(BlobStream, 4096) do 源代码网整理以下try 源代码网整理以下while not EndOfList do 软件开发网 www.mscto.com 源代码网整理以下begin 源代码网整理以下case ReadInteger of 源代码网整理以下IDText: begin 源代码网整理以下Ctrl := TControl(ReadRootComponent(nil)); 源代码网整理以下PropInfo := GetPropInfo(Ctrl.ClassInfo, "OnClick"); 源代码网整理以下Method.Code:= Self.MethodAddress(MethodName); 源代码网整理以下Method.Data := Self; 源代码网整理以下if Method.Code <> nil then 源代码网整理以下SetMethodProp(Ctrl, PropInfo, Method); 源代码网整理以下DesignWin.InsertControl(Ctrl); 软件开发网 www.mscto.com
源代码网整理以下end; 源代码网整理以下IDImage: 源代码网整理以下 …… 源代码网整理以下 end; 源代码网整理以下 …… 源代码网整理以下WriteListEnd; 源代码网整理以下end; 源代码网整理以下finally. 源代码网整理以下Free; 源代码网整理以下end; 源代码网整理以下FileStream.Free; 源代码网整理以下end; 源代码网整理以下 源代码网整理以下20.3.2.2 BLOB字段与图形图像 源代码网整理以下 源代码网整理以下 在多媒体数据库中处理得比较多的是图形图像，因此早期的多媒体数据库在扩展关系数据库时往往是增加一个图像字段。BLOB字段是以二进制数据存储方式，因此它完全可以表达图形图像数据。 源代码网整理以下 在TBlobField对象中提供了LoadFromBitMap和SaveToBitMap方法存取位图数据。它们在实现上都是使用BlobStream对象。 源代码网整理以下 源代码网整理以下procedure TBlobField.LoadFromBitmap(Bitmap: TBitmap); 源代码网整理以下var 源代码网整理以下BlobStream: TBlobStream; 源代码网整理以下Header: TGraphicHeader; 源代码网整理以下begin 源代码网整理以下BlobStream := TBlobStream.Create(Self, bmWrite); 源代码网整理以下try 源代码网整理以下if (DataType = ftGraphic) or (DataType = ftTypedBinary) then 源代码网整理以下begin 源代码网整理以下Header.Count := 1; 源代码网整理以下Header.HType := $0100; 源代码网整理以下Header.Size := 0; 源代码网整理以下BlobStream.Write(Header, SizeOf(Header)); 源代码网整理以下Bitmap.SaveToStream(BlobStream); 软件开发网 www.mscto.com
源代码网整理以下Header.Size := BlobStream.Position - SizeOf(Header); 源代码网整理以下BlobStream.Position := 0; 源代码网整理以下BlobStream.Write(Header, SizeOf(Header)); 源代码网整理以下end else 源代码网整理以下Bitmap.SaveToStream(BlobStream); 源代码网整理以下finally 源代码网整理以下BlobStream.Free; 源代码网整理以下end; 源代码网整理以下end; 源代码网整理以下 源代码网整理以下procedure TBlobField.SaveToBitmap(Bitmap: TBitmap); 源代码网整理以下var 源代码网整理以下BlobStream: TBlobStream; 源代码网整理以下Size: Longint; 软件开发网 www.mscto.com 源代码网整理以下Header: TGraphicHeader; 源代码网整理以下begin 软件开发网 www.mscto.com 源代码网整理以下BlobStream := TBlobStream.Create(Self, bmRead); 源代码网整理以下try 源代码网整理以下Size := BlobStream.Size; 源代码网整理以下if Size >= SizeOf(TGraphicHeader) then 源代码网整理以下begin 源代码网整理以下BlobStream.Read(Header, SizeOf(Header)); 源代码网整理以下if (Header.Count <> 1) or (Header.HType <> $0100) or 软件开发网 www.mscto.com 源代码网整理以下(Header.Size <> Size - SizeOf(Header)) then 源代码网整理以下BlobStream.Position := 0; 源代码网整理以下end; 软件开发网 www.mscto.com 源代码网整理以下Bitmap.LoadFromStream(BlobStream); 软件开发网 www.mscto.com 源代码网整理以下finally 源代码网整理以下BlobStream.Free; 软件开发网 www.mscto.com 源代码网整理以下end; 源代码网整理以下end; 源代码网整理以下 源代码网整理以下程序中按两种方式存取数据，对于位图数据，数据的起点是流的Potition为0处，对于图形或其它类型的Blob数据，则以流的Position为SizeOf(Header) 1处开始， 即多了个头信息。 源代码网整理以下 源代码网整理以下20.3.2.3 BLOB字段与文本 软件开发网 www.mscto.com 源代码网整理以下 源代码网整理以下 Delphi BLOB字段中增加了大型文本的处理能力。可以在TBlobField和Strings中自由地交换数据。 源代码网整理以下 源代码网整理以下procedure TBlobField.LoadFromStrings(Strings: TStrings); 软件开发网 www.mscto.com 源代码网整理以下var 源代码网整理以下BlobStream: TBlobStream; 软件开发网 www.mscto.com 源代码网整理以下begin 软件开发网 www.mscto.com 源代码网整理以下BlobStream := TBlobStream.Create(Self, bmWrite); 源代码网整理以下try 软件开发网 www.mscto.com 源代码网整理以下Strings.SaveToStream(BlobStream); 源代码网整理以下finally 源代码网整理以下BlobStream.Free; 源代码网整理以下end; 源代码网整理以下end; 源代码网整理以下 软件开发网 www.mscto.com 源代码网整理以下procedure TBlobField.SaveToStrings(Strings: TStrings); 源代码网整理以下var 源代码网整理以下BlobStream: TBlobStream; 软件开发网 www.mscto.com
源代码网整理以下begin 源代码网整理以下BlobStream := TBlobStream.Create(Self, bmRead); 源代码网整理以下try 源代码网整理以下Strings.LoadFromStream(BlobStream); 源代码网整理以下finally 源代码网整理以下BlobStream.Free; 源代码网整理以下end; 源代码网整理以下end; 源代码网整理以下 源代码网整理以下20.3.2.4 BLOB字段与Stream对象 源代码网整理以下 源代码网整理以下 因为Delphi中，BLOB字段是通过BLOB流来访问的，所以可以很容易地在BLOB字段和Stream对象之间传递数据。为此，TBlobField对象提供了LoadFromStream和SaveToStream方法。 源代码网整理以下 源代码网整理以下procedure TBlobField.LoadFromStream(Stream: TStream); 源代码网整理以下var 源代码网整理以下BlobStream: TBlobStream; 源代码网整理以下begin 源代码网整理以下BlobStream := TBlobStream.Create(Self, bmWrite); 软件开发网 www.mscto.com
源代码网整理以下try 源代码网整理以下BlobStream.CopyFrom(Stream, 0); 源代码网整理以下finally 源代码网整理以下BlobStream.Free; 源代码网整理以下end; 源代码网整理以下end; 源代码网整理以下 源代码网整理以下procedure TBlobField.SaveToStream(Stream: TStream); 源代码网整理以下var 源代码网整理以下BlobStream: TBlobStream; 源代码网整理以下begin 软件开发网 www.mscto.com 源代码网整理以下BlobStream := TBlobStream.Create(Self, bmRead); 源代码网整理以下try 源代码网整理以下Stream.CopyFrom(BlobStream, 0); 源代码网整理以下finally 源代码网整理以下BlobStream.Free; 源代码网整理以下end; 软件开发网 www.mscto.com
源代码网整理以下end; 源代码网整理以下 源代码网整理以下20.3.3 存取嵌入在OleContainer对象中的OLE服务器的数据 源代码网整理以下 源代码网整理以下 对象链接和嵌入(Object Linking and Embedding，简称OLE)，是一组服务功能，它提供了一种用来源于不同应用程序的信息创建复合文档的强有力方法。 源代码网整理以下 通过把图像、图形、表格、声音、注解、文件和其它表示手段描述成对象，用它能在不同软件厂家提供的应用程序中更为容易地交换合成和处理数据它是应用程序的集成更为容易。OLE2.0支持直观编辑。用户不需切换到不同窗口就能在文档中直接对对象进行操作，改进了操作环境。用户不用再关注应用程序和操作环境，只需关注于使用对象技术的数据和文件，便能完成全部工作。 源代码网整理以下 OLE已成为操作系统功能上的一大标准，各大软商纷纷在开发工具中支持OLE 2.0规范。Delphi 2.0提供了OleContainer对象支持OLE窗户应用程序的开发。 源代码网整理以下 尽管通过OLE可以用来源于不同应用程序的信息创建复合文档，充分体现以任务、以文档为中心的思想，但是很难分解来自其它应用程序中的嵌入数据，以进行特殊的处理。 源代码网整理以下 例如，一套多媒体电子文档管理系统，系统需要数据库管理功能文档编辑功能，全文检索功能等。在文档编辑功能的实现上，如果能利用中文Word 或写字板之类的强大的编辑排版功能，就可以省却重新开发一个文档编辑的费用，使用具有直观编辑的OLE复合文档嵌入Word的DOC数据或RTF数据当然是最佳的选择。 但问题在于全文检索系统要求能直接在文档中搜索关键字，因此要求将文档数据从OLE嵌入数据或文档中的本地数据中分离出来。 源代码网整理以下 Delphi 2.0的OleContainer部件支持存储OLE对象数据。OLE对象数据包括两部分：OLE类描述信息和OLE服务器嵌入数据。一般说来，OLE服务器嵌入数据是以服务器支持的数据格式存储的; 比方说，中文Word 6.0的嵌入数据的格式就是Word 6.0文档的格式。因此，要将文档数据从OLE 嵌入式文档中分离出来就是要访问第二部分数据。 源代码网整理以下我们分析了Delphi 2.0的OleContainer对象存取复合文档的程序，得到分离数据的方法。 源代码网整理以下 让我们来看一段OleContainer对象存储数据的程序： 源代码网整理以下 软件开发网 www.mscto.com 源代码网整理以下procedure TOleContainer.SaveToStream(Stream: TStream); 源代码网整理以下var 源代码网整理以下DataHandle: HGlobal; 源代码网整理以下Buffer: Pointer; 源代码网整理以下Header: TStreamHeader; 软件开发网 www.mscto.com 源代码网整理以下R: TRect; 源代码网整理以下 …… 源代码网整理以下begin 源代码网整理以下 …… 源代码网整理以下try 源代码网整理以下 …… 源代码网整理以下if FOldStreamFormat then 源代码网整理以下begin 源代码网整理以下R := BoundsRect; 源代码网整理以下Header.PartRect.Left := R.Left; 源代码网整理以下Header.PartRect.Top := R.Top; 源代码网整理以下Header.PartRect.Right := R.Right; 源代码网整理以下Header.PartRect.Bottom := R.Bottom; 源代码网整理以下end else 软件开发网 www.mscto.com
源代码网整理以下begin 源代码网整理以下Header.Signature := StreamSignature; 软件开发网 www.mscto.com
源代码网整理以下Header.DrawAspect := FDrawAspect; 源代码网整理以下end; 源代码网整理以下Header.DataSize := GlobalSize(DataHandle); 软件开发网 www.mscto.com 源代码网整理以下Stream.WriteBuffer(Header, SizeOf(Header)); 软件开发网 www.mscto.com 源代码网整理以下Buffer := GlobalLock(DataHandle); 软件开发网 www.mscto.com
源代码网整理以下try 源代码网整理以下Stream.WriteBuffer(Buffer^, Header.DataSize); 源代码网整理以下finally 源代码网整理以下GlobalUnlock(DataHandle); 源代码网整理以下end; 源代码网整理以下finally 源代码网整理以下ReleaseObject(TempStorage); 源代码网整理以下ReleaseObject(TempLockBytes); 源代码网整理以下end; 源代码网整理以下end; 源代码网整理以下 源代码网整理以下程序中，OleContainer对象执行了两次往流中写数据的操作。 源代码网整理以下 Stream.WriteBuffer(Header, Size(Header)); 源代码网整理以下Stream.WriteBuffer(Buffer^, Header.DataSize); 源代码网整理以下 源代码网整理以下前一语句是写入OLE类描述信息，后一句语句是写入OLE服务器的嵌入数据。Header是TStreamHeader记录类型的变量。TStreamHeader记录的定义如下： 源代码网整理以下 源代码网整理以下TStreamHeader = record 源代码网整理以下case Integer of 软件开发网 www.mscto.com
源代码网整理以下0: ( { 新版OLE对象 } 源代码网整理以下Signature: Integer; 源代码网整理以下DrawAspect: Integer; 源代码网整理以下DataSize: Integer); 源代码网整理以下1: ( { 旧版OLE对象 } 源代码网整理以下PartRect: TSmallRect); 源代码网整理以下end; 源代码网整理以下 源代码网整理以下 因此读OLE服务器嵌入数据时，要跳过文件头的TStreamHeader记录。下面就是如何分离OLE服务器嵌入数据的程序： 源代码网整理以下 源代码网整理以下var 源代码网整理以下Stream : TMemoryStream; 源代码网整理以下FileStream : TFileStream; 源代码网整理以下begin 源代码网整理以下Stream := TMemoryStream.Create; 源代码网整理以下FileStream := TFileStream.Create("TEST.DOC", fmCreate) ; 源代码网整理以下with OleContainer1 do 源代码网整理以下if (State <> osEmpty) then 源代码网整理以下SaveToStream(Stream); 源代码网整理以下Stream.Seek(Sizeof(TStreamHeader), 0); 源代码网整理以下FileStream.CopyFrom(Stream, Stream.Size - SizeOf(TStreamHeader)); 源代码网整理以下Stream.Free; 源代码网整理以下FileStream.Free; 源代码网整理以下end; 源代码网整理以下 源代码网整理以下OleContainer1包含的服务器对象是中文Word 6.0，程序中将分离出的数据存储在磁盘文件“TEST.DOC”上。如果希望存储在不同的媒介上，可以使用相应的Stream对象，分离的方法类似。但是，这种方法并非对所有的OLE服务器数据都适用，如Windows 95 附件中的写字板（WordPad）就不行。 源代码网推荐 源代码网供稿. |
