当前位置：首页 > news >正文

数据流的压缩、编码及传递困扰

news 来源：原创 2024/5/6 0:35:58

问题：

在使用流据流对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截图如下：