Как распаковать gz файл в Delphi?

Question

[Дониёр Маматкулов]

Нужно написать программу для извлечения файлов из gz-архива.
Что имеется: gz файл размером около 150 МБ. Внутри у него один файл с расширением .log (логи от роутера).
Что необходимо сделать:
1. Взять архив gz и распаковать его содержимое во временную папку.
2. Достать из .log файла строчки и добавить их в TMemo.

Answer 1

[Константин Цветков]

1. ShellExecute (Например, 7-zip)
2.Lines.LoadFromFile

Answer 2

[pfemidi]

Зачем во временную папку? Надо просто использовать поток TZDecompressionStream из юнита ZLib (System.ZLib в новых версиях Delphi, просто ZLib в старых). Вот тут всё подробно объяснено самим Embarcadero.

Answer 3

[d'Ivan]

Изобретаем zcat и grep в Делфях?

Распаковывать лог 150 МБ прямо в TMemo не рекомендую: забьет всю доступную ОЗУ и все повиснет нафиг.

Лучше так:
zcat big_log.gz | grep "то что ищем"
"Просматривать" результат лучше постранично, при помощи pipe.

Comments

[pfemidi]

Delphi подразумевает Windows. А в Windows никакого zcat и grep нету. Если только какой-нибудь Cygwin/msys не установлен.

[d'Ivan]

pfemidi, почему нет?
gnuwin32.sourceforge.net/packages/gzip.htm
gnuwin32.sourceforge.net/packages/grep.htm

[pfemidi]

Роман Мирр, про утилиты GnuWin32 я тоже знаю как и про msys с Cygwin, но в стандартной поставке Windows ведь этого нет. Дониёр Маматкулов может себе на машину разработчика это установить, но вдруг его готовой программой будет пользоваться не только он, а ещё и какая-нибудь Мария Ивановна из бухгалтерии (образно), у которой на компе уж точно не будут установлены утилиты GnuWin32? А вот если программа, которую напишет Дониёр Маматкулов, будет самодостаточна и не будет требовать установки ничего дополнительного, то Мария Ивановна из бухгалтерии будет довольна и начальник Дониёр Маматкулов выпишет тому премию :-)

[d'Ivan]

pfemidi, Марья Ивановна будет анализировать логи от роутера размером по 150 МБ в формате gzip? Тут какой-то подвох... Она точно из отдела бухгалтерии?

[pfemidi]

Роман Мирр, ну я образно, образно.

[Дониёр Маматкулов]

Ребят, делаю так - и ничего полезного (и бесполезного) не происходит:
ShellExecute(0, nil, '"C:\Program Files\7-Zip\7z.exe"', pchar('e '+Form1.Label1.Caption) , nil, SW_HIDE);

[d'Ivan]

Дониёр Маматкулов, а зачем двойные кавычки внутри одиночных?

[Дониёр Маматкулов]

Установлен 7zip C:\Program Files\7-Zip\7z.exe
Мой код:

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(0, nil, 'C:\Program Files\7-Zip\7z.exe', pchar('e '+Form1.Label1.Caption) , nil, SW_HIDE);
end;

ничего не происходит. просто нажимается кнопка. Так, как распаковать этот gz архив в локальную папку?

[d'Ivan]

Дониёр Маматкулов, пробуй отлаживать код. Может pchar излишне?