[教程]本用 System.Zip 从流中获取解压数据

【前言】

写这个教程的原因，是因为要实现下面的场景：

1、通过 THttpClient 从网络上下载压缩包到内存流中。

2、将内存流中的 ZIP 格式压缩数据中的特定扩展名文件，在内存中直接解压处理，而不是解压到磁盘，再加载。

【实现流程】

1、下载压缩包到内存流中，这个本身直接通过 THttpClient.Get 或 BeginGet 就可以实现，注意 BeginGet 是异步操作，需要在回调中调用 EndAsynHttp 以便触发可能的异常。

var
  AResp: IHttpResponse;
  AStream: TFileStream;
begin
  try
    AResp := FHTTPClient.EndAsyncHTTP(ASyncResult);
    AStream:=AResp.ContentStream;
...

var

AResp: IHttpResponse;

AStream: TFileStream;

begin

try

AResp := FHTTPClient.EndAsyncHTTP(ASyncResult);

AStream:=AResp.ContentStream;

...

2、IHttpResponse.ContentStream 就是我们需要的内存流对象，下面是真正的代码工作时间：

第一步：需要确定流格式的有效性。System.Zip.TZipFile 类提供了 IsValid 函数来做这一判断。
第二步：将源内存流的位置调整到开始，然后创建 TZipFile 实例，并调用 Open 方法，打开这一内存流。
第三步：通过 TZipFile.FileCount 和 TZipFile.FileNames 属性，来找到内存流中特定扩展名的文件。
第四步：找到文件后，调用 TZipFile.Read 来获取解压后的数据流对象。
第五步：从返回的流中加载数据

if TZipFile.IsValid(AStream) then
    begin
      AStream.Position := 0;
      AZip := TZipFile.Create;
      AZip.Open(AStream, TZipMode.zmRead);
      for I := 0 to AZip.FileCount - 1 do
        begin
        if LowerCase(ExtractFileExt(AZip.FileNames&#91;I])) = '.json' then
          begin
            AZip.Read(I, AJsonStream, AHeader);
              try
                //这里是实际处理流中数据代码，AJsonStream 不需要预先创建
                AJson.LoadFromStream(AJsonStream);
              finally
                FreeAndNil(AJsonStream);
              end;
            break;
          end;
        end;
    end

if TZipFile.IsValid(AStream) then

begin

AStream.Position := 0;

AZip := TZipFile.Create;

AZip.Open(AStream, TZipMode.zmRead);

for I := 0 to AZip.FileCount - 1 do

begin

if LowerCase(ExtractFileExt(AZip.FileNames[I])) = '.json' then

begin

AZip.Read(I, AJsonStream, AHeader);

try

//这里是实际处理流中数据代码，AJsonStream 不需要预先创建

AJson.LoadFromStream(AJsonStream);

finally

FreeAndNil(AJsonStream);

end;

break;

end;

end

登录