Чтение файлов из архива

[artemavd]

Добрый день!
Мне нужно, не распаковывая архив, получить списком имена всех TXT файлов в архиве. Просто имена. Я делаю так:

procedure TForm1.sBitBtn1Click(Sender: TObject);
var
 ArchiveItem: TZFArchiveItem;
begin
 ZipArchive.FileName:='I:\test.zip';
 ZipArchive.OpenArchive(fmOpenReadWrite);
 if (ZipArchive.FindFirst('*.txt',ArchiveItem,faAnyFile)) = True then
   begin
    sLabel2.Caption:=ArchiveItem.FileName;
   end;
 ZipArchive.CloseArchive;
end;

но в sLabel2 у меня пусто и ничего не заносится. Подскажите как мне решить эту задачу?

[Аватар]

Это ZipForge? А там точно файлы есть с таким расширением? И для получения всего списка нужно еще ZipArchive.FindNext использовать в цикле

[artemavd]

Это ZipForge?

Да.

А там точно файлы есть с таким расширением?

Ну конечно есть...

[Аватар]

Так у меня работает. В архиве только файлы

var ArchiveItem: TZFArchiveItem;
begin
 ZipForge1.FileName:='e:\zip.zip';
 ZipForge1.OpenArchive(fmOpenRead);
 if ZipForge1.FindFirst('*.txt',ArchiveItem,faAnyFile) then
   repeat
     Memo1.Lines.Add(ArchiveItem.FileName);
   until not ZipForge1.FindNext(ArchiveItem);
 ZipForge1.CloseArchive;
end;

[Человек_Борща]

ВСе работает...

procedure TForm1.Button2Click(Sender: TObject);
var
  ZIP: TFWZipReader;
  i: Integer;
begin
  ZIP := TFWZipReader.Create;
  try
    ZIP.LoadFromFile(LabeledEdit1.Text);
    for i := 0 to ZIP.Count - 1 do
    begin
      if (not ZIP[i].IsFolder) then
      begin
        if (ExtractFileExt(ZIP[i].FileName) = '.txt') then
          Memo1.Lines.Add(ZIP[i].FileName);
      end;
    end;
  finally
    FreeAndNil(ZIP);
  end;
end;

end.

Пользуюсь FWZip

[artemavd]

++ Огромное спасибо, Аватар! Все работает как надо!
Человек_Борща, тебе тоже большое спасибо за оказанную помощь!