![]() |
|
#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 есть библиотека, которая позволяет с ним общаться без дополнительных модулей.
|