![]() |
|
|
#1
|
|||
|
|||
|
Как с помощью библиотеки 7 zip.dll открыть архив формата tar, содержащий .sign .xml .raw файлы! Нужно вывести все xml файлы! Подскажите, пожалуйста!
|
|
#2
|
||||
|
||||
|
Бросьте на форму кнопку и мемо
Код:
uses SevenZip;
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
Arc: I7zInArchive;
begin
Memo1.Clear;
Arc:= CreateInArchive(CLSID_CFormatTar);
Arc.OpenFile('Имя архива.tar');
for i := 0 to Arc.NumberOfItems - 1 do
if not Arc.ItemIsFolder[i] then
if ExtractFileExt(Arc.ItemPath[i]) = '.xml' then
Memo1.Lines.Add(Arc.ItemPath[i]);
end; |
|
#3
|
|||
|
|||
|
Вообще, tar очень простой формат. Где-то на torry есть библиотека, которая позволяет с ним общаться без дополнительных модулей.
|