《Mastering Delphi 6》学习笔记之十 (转)

《Mastering Delphi 6》学习笔记之十 (转)[@more@]

Delphi中的Serialiation 

 

熟悉MFC的人对Serialize这个虚拟函数大概不会陌生。在MFC中，如果要用Serialization机制读取和保存数据，大概是这样：XML:namespace prefix = o ns = "urn:schemas-microsoft-com:Office:office" />

void CMyDoc::Serialize(CArchive& ar)

{

  if (ar.IsStoring())

  {

ar << myString;

ar << myInt;

  }

  else

  {

ar >> myString;

ar >> myInt;

  }

}

object Pascal中有没有类似的机制呢？接触到TReader和TWriter这两个类之后，我知道我找到答案了。

不需多讲理论，来看一个实际的例子。在Form上面放三个Edit和两个Button，另外再加一个OpenDialog和SaveDialog。代码如下：

procedure TForm1.Button1Click(Sender: TObject);

begin

  if SaveDialog1.Execute then

  Serialize(SaveDialog1.FileName,True);

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

  if OpenDialog1.Execute then

  Serialize(OpenDialog1.FileName,False);

end;

 

procedure TForm1.Serialize(const FileName:string; bSave: Boolean);

var

  Reader : TReader;

  Writer : TWriter;

  Stream : TFileStream;

begin

  if bSave then begin

  Stream := TFileStream.Create(FileName,fmOpenWrite or fmCreate);

  Writer := TWriter.Create(Stream,4096);

  Writer.WriteString(Edit1.Text);

  Writer.WriteInteger(StrToInt(Edit2.Text));

  Writer.WriteFloat(StrToFloat(Edit3.Text));

  Writer.Free;

  Stream.Free;

  end 

  else begin

  Stream := TFileStream.Create(FileName,fmOpenRead);

  Reader := TReader.Create(Stream,4096);

  Edit1.Text := Reader.ReadString;

  Edit2.Text := IntToStr(Reader.ReadInteger);

  Edit3.Text := FloatToStr(Reader.ReadFloat);

  Reader.Free;

  Stream.Free;

  end;

end;

如果愿意的话，完全可以将Serialize包装成一个virtual method，从而让派生类中的实现更加简洁。

TReader和TWriter不仅能够读取和写入Object Pascal中绝大部分标准数据类型，而且能够读写Collection/List/Variant这些高级类型，甚至能够读写Perperties和Component。不过，TReader/TWriter自身实际上提供的功能很有限，大部分实际的工作是由TStream这个非常强大的类来完成的。从TReader和TWriter的声明中可以看到一些特别为Component而设计的方法，不难猜想，Delphi开发环境本身很可能就是利用TReader/TWriter，将构件的属性写入.DFM文件以及从.DFM文件中读取属性值的。

下面的例子很有用也非常有趣，它的效果完全相当于FoRM Designer中的View As Text命令：

var

  DFMBuf, TextBuf : TStream;

begin

  DFMBuf := TMemoryStream.Create;

  DFMBuf.WriteComponent(Self);

  TextBuf := TMemoryStream.Create;

  DFMBuf.Seek(0,soFromBeginning);

  ObjectBinaryToText(DFMBuf,TextBuf);

  TextBuf.Seek(0,soFromBeginning);

  Memo1.Lines.LoadFromStream(TextBuf);

  TextBuf.Free;

  DFMBuf.Free;

 

甚至可以从可执行文件中读取Form的信息：

var

  DFMBuf, TextBuf : TStream;

  buf : pointer;

begin

  DFMBuf := TResourceStream.Create(HInstance,'TForm1',RT_RCDATA);

  DFMBuf.Position := 0;

  TextBuf := TMemoryStream.Create;

  DFMBuf.Seek(0,soFromBeginning);

  ObjectBinaryToText(DFMBuf,TextBuf);

  TextBuf.Seek(0,soFromBeginning);

  Memo1.Lines.LoadFromStream(TextBuf);

  TextBuf.Free;

  DFMBuf.Free;

end;

(说明：如果窗体不是TForm1，那么请将TResourceStream.Create一句中的第二个参数改为相应的窗体类名。)

好好读懂这些代码，相信自己做一个DFM Viewer也不是遥不可及的事情了吧!

 

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10796304/viewspace-951982/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10796304/viewspace-951982/