Delphi. DecompressionStream. Распаковка .gz архива. 'data error'

[Artsiom]

Доброго времени суток.
Нашел в Делфях распаковку архива.
Решил попробовать встроенный пример:

procedure TForm1.btnDecompressClick(Sender: TObject);
var
  LInput, LOutput: TFileStream;
  LUnZip: TZDecompressionStream;

begin
  { Create the Input, Output, and Decompressed streams. }
  LInput := TFileStream.Create(Edit1.Text, fmOpenRead);
  LOutput := TFileStream.Create(ChangeFileExt(Edit1.Text, 'txt'), fmCreate);
  LUnZip := TZDecompressionStream.Create(LInput);
 
  { Decompress data. }
  LOutput.CopyFrom(LUnZip, 0);
 
  { Free the streams. }
  LUnZip.Free;
  LInput.Free;
  LOutput.Free;
end;

Немного переделал, чтоб интересней было:

  LInput := TFileStream.Create('players_2016.csv.gz', fmOpenRead);
  LOutput := TFileStream.Create(ChangeFileExt('players', '.csv'), fmCreate);

И пошагово отладил, на что мне выдаёт

  LOutput.CopyFrom(LUnZip, 0);

ошибку 'data error'
которая значит The input data was corrupted or incomplete.
Я не понимаю, повреждены/неполные данные? Почему, хм, и как исправить?
Помогите пожалуйста.

[Artsiom]

Может тогда ещё как можно распаковать gz? Но только без внешних программ, средствами делфи.

[Аватар]

TZDecompressionStream работает если архив создан с помощью TZCompressionStream

[Artsiom]

Рррр, а почему тогда в справке этого не было?(
Спасибо, буду думать дальше.

[Serge_Bliznykov]

ставьте дополнительные компоненты.
например, поищите бесплатный TurboPower Abbrevia

Abbrevia is a compression toolkit for Embarcadero Delphi, C++ Builder, and Kylix, and FreePascal. It supports PKZip, Microsoft CAB, tar, gzip, bzip2 and zlib compression formats, and the creation of self-extracting executables. It includes several visual components that simplify displaying zip files.