难! 怎样从ZIP压缩包中直接读取里面的文件的内容?

Question

怎样从ZIP压缩包中直接读取里面的文本文件的内容?   
由于不解压不产生本地文件，完全是在内存中处理,即保护了硬盘加快了速度.
能否实现?
我见过有人用VB做过这样的程序.
D7能否实现?
谢谢

Answer 1

楼主去下个bs控件，上面有个zip控件

Answer 2

已解决.用VclZip即可.谢谢大家
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  AStream: TStream;
begin
  VCLUnZip1.ZipName := 'bb3.zip';
  AStream := TMemoryStream.Create;
  try
    VCLUnZip1.UnZipToStream(AStream, '2.txt');
    AStream.Position := 0;
    Memo1.lines.LoadFromStream(AStream);    //ListBox1.Items.LoadFromStream(AStream);
  finally
    AStream.Free;
  end;
end;