盒子论坛 v2.1

function GetResult(Response: IHTTPResponse):THttpResult;
var
  Match:TMatch;
  s:string;
  Encoding:TEncoding;
  ds:TDecompressionStream;
  ss:TStringStream;
begin
  Result.StatusCode:=Response.StatusCode;
  Result.StatusText:=Response.StatusText;
  Result.MimeType:=Response.MimeType;
  Result.Cookies:=Response.Cookies.ToArray;
  Result.Headers:=Response.Headers;
  Result.ContentCharSet:=Response.GetContentCharSet;
  //ShowMessage(Response.ContentLength.ToString);
  if (Response.ContentStream <> nil) and (Response.ContentStream.Size > 0) then
  begin
    if Response.ContentEncoding.ToLower = 'gzip' then
    begin
      ds:=TDecompressionStream.Create(Response.ContentStream);
      ss:=TStringStream.Create('',TEncoding.UTF8);
      try
        ss.CopyFrom(ds,ds.Size);
        Result.Text:=ss.DataString;
      finally
        ds.Free;
        ss.Free;
      end;
    end
    else
    begin
      Result.Text:=Response.ContentAsString(TEncoding.GetEncoding(Response.ContentCharSet));
    end;
  end;
end;
对流解压缩那里出错，请各位大神帮忙，谢谢！
----------------------------------------------

作者：

jopher3 (樵夫的马六甲)	▲▲▲▲▲	-
	普通会员

2024/3/27 19:43:44

1楼：

用gzip算法解压
indy里有单元可以
----------------------------------------------
樵夫的大马甲

作者：

cenunus (cenunus)	★☆☆☆☆	-
	普通会员

2024/3/27 20:43:28

2楼：

jopher3
我知道，能演示一下吗？
----------------------------------------------

作者：

jopher3 (樵夫的马六甲)	▲▲▲▲▲	-
	普通会员

2024/3/27 21:11:27

3楼：

uses
   idZlib, IdZLibHeaders;

//
// GZIP流压缩...
procedure GZCompressStream(InStream: TMemoryStream; OutStream: TMemoryStream);
begin
   InStream.position:=0;
   CompressStream(InStream,OutStream,clFastest,zsGZip);
end;

//
// GZIP流解压...
procedure GZDecompressStream(InStream: TMemoryStream; OutStream: TMemoryStream);
begin
   InStream.position:=0;
   DecompressStream(InStream,OutStream);
end;
----------------------------------------------
樵夫的大马甲

信息

登陆以后才能回复