（7）序列化与压缩

因为ServiceObject的函数签名格式是统一的，可以传递的参数只有一个AParams:OLEVariant，客户端的多个参数需要使用数组传递。如：

var vParams:OLEVariant; vResult:integer; begin ... vParams:=VarArrayCreate([0,1],varVariant); vParams[0]:=3; vParams[1]:=2; ... vResult:=BizService.Call('system.Test','Sum',vParams);

但是这种方式不太直观，AParams内部的元素严重依赖顺序，一旦写好，很难改变。另一种方式是使用序列化的Object，如：

TMarshalSumParams=class published A:integer; B:integer end;

使用某种编码方式，把这个元件序列化成一个stream，这样就很容易传递到服务器，服务器的ServiceObject再把stream反序列化TMarshalSumParams。

序列化在delphi中，有两种方式可以利用：

1、使用TWriter和TReader。这两个元件，是delphi用来读写其dfm文件的，你在剪切/黏贴元件时，也是它们在工作。但是两个元件只写元件published属性，也没有专门考虑来做客户端服务器的序列化，所以任何published不支持的数据类型，它都不处理，如动态数组，Variant也只支持byte数组。这里需要修改。TWriter写出的是二进制流，效率比文本高。

procedure TVariantWriter.WriteArray(const Value: Variant); var i:integer; Lo,Hi:integer; begin WriteValue(vaArray); Lo:=VarArrayLowBound(Value,1); Hi:=VarArrayHighBound(Value,1); Write(Lo,SizeOf(integer)); Write(Hi,SizeOf(integer)); for i:=Lo to Hi do WriteVariant(Value[i]); end; procedure TVariantWriter.WriteVariant(const Value: Variant); var CustomType: TCustomVariantType; OuterStream, InnerStream: TMemoryStream; OuterWriter: TWriter; StreamSize: Integer; VarStreamer: IVarStreamable; LInt64: Int64; begin if VarIsArray(Value) then begin if (VarType(Value) and varByte)=varByte then WriteByteArray(Value) else WriteArray(Value); end else case VarType(Value) and varTypeMask of varEmpty: WriteValue(vaNil); varNull: WriteValue(vaNull); varOleStr: WriteWideString(Value); varString: WriteString(Value); varByte, varShortInt, varWord, varSmallInt, varInteger: WriteInteger(Value); varSingle: WriteSingle(Value); varDouble: WriteFloat(Value); varCurrency: WriteCurrency(Value); varDate: WriteDate(Value); varBoolean: if Value then WriteValue(vaTrue) else WriteValue(vaFalse); varLongWord, varInt64: begin LInt64 := Value; WriteInteger(LInt64); end; else try if not FindCustomVariantType(TVarData(Value).VType, CustomType) or not Supports(Value, IVarStreamable, VarStreamer) then WriteString(Value) else begin InnerStream := nil; OuterStream := TMemoryStream.Create; try InnerStream := TMemoryStream.Create; OuterWriter := TWriter.Create(OuterStream, 1024); try VarStreamer.StreamOut(TVarData(Value), InnerStream); StreamSize := InnerStream.Size; OuterWriter.WriteString(CustomType.ClassName); OuterWriter.Write(StreamSize, SizeOf(StreamSize)); OuterWriter.Write(InnerStream.Memory^, StreamSize); finally OuterWriter.Free; end; StreamSize := OuterStream.Size; WriteValue(vaBinary); Write(StreamSize, SizeOf(StreamSize)); Write(OuterStream.Memory^, StreamSize); finally InnerStream.Free; OuterStream.Free; end; end; except raise EWriteError.CreateRes(@SWriteError); end; end; end;

2、使用SOAP对TRemotable元件的编码方式，编码成XML格式。同样它对Variant只支持byte数组，如果你要支持别的variant类型，需要自己改造。需要说明的是，XML编码效率比较低，数据量越大越明显。

function TMarshalComponent._MarshalToXMLStream( AStream: TStream): WideString; const Signature:WideChar=#$FEFF; var vDoc:IXMLDocument; vConverter:IObjConverter; {$IFDEF Ver150} RefID:WideString; {$ELSE} RefID:InvString; {$ENDIF} begin //为何输出的XML文件没有encoding? ActiveX.CoInitialize(nil); vDoc:=TXMLDocument.Create(nil); try (vDoc as IXMLDocumentAccess).DocumentObject.DOMVendor:=GetDOMVendor(sMSXML); vDoc.Active:=true; vDoc.Version:='1.0'; vDoc.StandAlone:='yes'; vDoc.Encoding:='utf-8'; vDoc.DocumentElement:=vDoc.CreateNode(Self.ClassName); vConverter:=OPToSOAPDomConv.TOPToSoapDomConvert.Create(nil); try vConverter.ObjInstanceToSOAP(Self,vDoc.DocumentElement,vDoc.DocumentElement, Self.ClassName,'',[],RefID); //用SaveToStream编码有问题 vDoc.SaveToXML(Result); //需要增加签名，否则IE打不开 Result:=Signature+Result; if AStream<>nil then begin AStream.Size:=0; AStream.Write(Result[1],Length(Result)*2); end; vDoc.Active:=false; finally vConverter:=nil; end; finally vDoc:=nil; ActiveX.CoUninitialize; end; end;

在Delphi2010的时候，支持了Json格式的序列化，它应该是比XML更高效的一种方式。

一旦序列化成stream，我们就可以使用任何压缩方式在传递前压缩，如zlib,leo,等。