问题:
在使用流据流对ClientDataSet.XMLData内容进行压缩、编码后无法正常取得原文内容。
解决之道:
数据流存入内容之前必须确定编码格式,至于想用何种编码并不重要,但必须明确的设置,否则在进行压缩、编码之后,还原原文时会有问题,按道理用默认编码是一样的,可是若没有明确设置流的存储编码就是有问题,这个问题困扰了我整整两个星期,啥办法都尝试过直到写出这个才算解决了。
但至于用默认编码为何不行,现在还未弄明白,希望有网友能解惑。
1、对字符串进行压缩、编码、传输的例子:
procedure TTestMain.Button1Click(Sender: TObject); var s1,s2:String; d1,d2:string; SourceStream1,SourceStream2,SourceStream3:TStringStream; DestStream1,DestStream2,DestStream3:TStringStream; begin PageControl1.ActivePageIndex := 0; Memo2.Clear; s1 := Memo1.Text; {************************************************************************** TStream.Create之后,其position的值自动设置为0,其他操作必须人工干预position, 否则position的取值为上一次操作之后的位置。 关键点:数据流存入内容之前必须确定编码格式,至于想用何种编码并不重要,但必须 明确的设置,否则在进行压缩、编码之后,还原原文时会有问题,按道理用默认编码是 一样的,可是若没有明确设置流的存储编码就是有问题,这个问题困扰了我整整两个星 期,啥办法都尝试过直到写出这个才算解决了。 但至于用默认编码为何不行,现在还未弄明白,希望有网友能解惑。 ***************************************************************************} //把s1字符串中的内容以UTF8的编码格式存入SourceStream1中。 SourceStream1 := TStringStream.Create(s1,TEncoding.UTF8);//原始内容流 SourceStream2 := TStringStream.Create('',TEncoding.ASCII);//用来存储压缩流 SourceStream3 := TStringStream.Create('',TEncoding.UTF8);//用来存储Encode流,以便远程传递 try System.ZLib.ZCompressStream(SourceStream1,SourceStream2);//压缩内容 SourceStream2.Position := 0; Soap.EncdDecd.EncodeStream(SourceStream2,SourceStream3);//进行编码以便远程传递 SourceStream3.Position := 0; s2 := SourceStream3.DataString;//取出编码后的内容,显示在Memo1中 Memo1.Lines.Add('-------------以下为压缩并编码之后的内容:---------------'); Memo1.Lines.Add(s2); ShowDataSize(Edit1,SourceStream1,SourceStream2,SourceStream3); finally SourceStream1.Free; SourceStream2.Free; SourceStream3.Free; end; {................................................................. .....s2的内容为Encode之后字符串,经过网络传递之后,传至客户端..... ..................................................................} d2 := s2; //取得从远程传递过来的经过了Encode编码之后的文本串 Memo2.Text := d2; DestStream3 := TStringStream.Create(d2,TEncoding.UTF8);//读取远程经过了Encode编码之后的文本串 DestStream2 := TStringStream.Create('',TEncoding.UTF8);//用来存储Decode之后的内容 DestStream1 := TStringStream.Create('',TEncoding.UTF8);//用来存储解压缩流之后的原文内容 try DestStream3.Position := 0; Soap.EncdDecd.DecodeStream(DestStream3,DestStream2); DestStream2.Position := 0; System.ZLib.ZDecompressStream(DestStream2,DestStream1); DestStream1.Position := 0; d1 := DestStream1.DataString; Memo2.Lines.Add('-------------以下为还原编码并解压后的内容:---------------'); Memo2.Lines.Add(d1); ShowDataSize(Edit2,DestStream1,DestStream2,DestStream3); finally DestStream1.Free; DestStream2.Free; DestStream3.Free; end; end;1、对ClientDataSet记录集进行压缩、编码、传输的例子:
procedure TTestMain.Button2Click(Sender: TObject); var s1,d1: String; sStream,sZipStream,sCodeStream, dStream,dZipStream,dCodeStream: TStringStream; begin PageControl1.ActivePageIndex := 1; if not ClientDataSet1.Active then ClientDataSet1.Active := True; {************************************************************************** TStream.Create之后,其position的值自动设置为0,其他操作必须人工干预position, 否则position的取值为上一次操作之后的位置。 关键点:数据流存入内容之前必须确定编码格式,至于想用何种编码并不重要,但必须 明确的设置,否则在进行压缩、编码之后,还原原文时会有问题。 ***************************************************************************} sStream := TStringStream.Create('',TEncoding.UTF8); sZipStream := TStringStream.Create('',TEncoding.ASCII); sCodeStream := TStringStream.Create('',TEncoding.ASCII); try ClientDataSet1.SaveToStream(sStream,dfXMLUTF8); //读取原始记录内容 sStream.Position := 0; ZCompressStream(sStream,sZipStream);//压缩原文内容 sZipStream.Position := 0; EncodeStream(sZipStream,sCodeStream);//编码以便网络传递 //把sCodeStream流的文本内容取出为字符串类型,方便进行网络传输 sCodeStream.Position := 0; s1 := sCodeStream.DataString; ShowDataSize(Edit1,sStream,sZipStream,sCodeStream); finally sStream.Free; sZipStream.Free; sCodeStream.Free; end; {................................................................... .....s1的内容为Encode之后的字符串,经过网络传递之后,传至客户端..... ....................................................................} d1 := s1; //接收 dCodeStream := TStringStream.Create(d1,TEncoding.ASCII); //存入接收流中,此时流中为编码后的内容 dZipStream := TStringStream.Create('',TEncoding.ASCII); dStream := TStringStream.Create('',TEncoding.UTF8); try DecodeStream(dCodeStream,dZipStream);//解码到dZipStream流中,此时dZipStream中为压缩流 dZipStream.Position := 0; ZDecompressStream(dZipStream,dStream);//解压缩到dStream流中,此时dStream中为还原后的内容 dStream.Position := 0; ClientDataSet2.LoadFromStream(dStream); ShowDataSize(Edit2,dStream,dZipStream,dCodeStream); finally dCodeStream.Free; dZipStream.Free; dStream.Free; end; end;Demo截图如下:
Demo下载:Test.rar下载