1.组件对象的序列化
从TCOMPONENT继承下来的组件对象序列化都简单，因为它本身支持流化，通过流化也就达到了序列化组件对象的目的。
TReader和TWriter都只支持Tcomponent流化,除非你自己写个TReader和TWriter,就有可能支持TPersiten的流化. function ComponentToString(Component: TComponent): string; var BinStream:TMemoryStream; StrStream: TStringStream; s: string; begin BinStream := TMemoryStream.Create; try StrStream := TStringStream.Create(s); try BinStream.WriteComponent(Component); BinStream.Seek(0, soFromBeginning); ObjectBinaryToText(BinStream, StrStream); StrStream.Seek(0, soFromBeginning); Result:= StrStream.DataString; finally StrStream.Free; end; finally BinStream.Free end; end; function StringToComponent(Value: string): TComponent; var StrStream:TStringStream; BinStream: TMemoryStream; begin StrStream := TStringStream.Create(Value); try BinStream := TMemoryStream.Create; try ObjectTextToBinary(StrStream, BinStream); BinStream.Seek(0, soFromBeginning); Result := BinStream.ReadComponent(nil); finally BinStream.Free; end; finally StrStream.Free; end; end;
2.非组件对象的序列化
非组件对象，也就是从TObject或者从Tpersisten继承下来的对象的序列化却要变通一下。
方法很简单,就是sizeof(TMyObject)的大小,定义一个buffer指向对象,直接把那一块内存写入文件,反序列化时从文件读取就可以了, 这就是对非组件对象有效的序列化.
服务端序列化对象发送流程：
第一步：
var
buffer: array[0..1023] of char;//定义一个缓冲区
第二步：
Move(myobj, Buffer, Sizeof(count));//将对象的内存搬移到缓冲区
第三步：
WriteFileFromBuffer();//将缓冲区写入文件
第四步：
发送这个文件给客户端
客户端反序列化还原对象流程：
第一步：
接收這個文件
第二步：
ReadFileToBuffer()
第三步：
move(buffer,myobj,sizeof(count)) //还原对象
