gzip компонент Abbrevia

[z768]

Вопрос по сжатию файлов в архив *.gz
Как изменить параметра сжатия ?

На форуме поддержки вопрос задал, но боюсь что долго буду ждать ответ.
В мануале и примерах ничего проясняющего не нашел.
Декомпрессия с дефолтными параметрами проходит на "ура".

[ZuBy]

из демо-примеров abbrevia

AbZipOutline1.CompressionMethodToUse := TAbZipSupportedMethod( тут видимо число от 1-9 );

[z768]

Это для *.zip
В примерах '*.gz' как-то обошли стороной.

[z768]

все устаканилось...
подключаем AbGzTyp.pas к проекту, смотрим rfc 1952 ....
и пару функций на startup...

function TAeForm.DeCompressGZip(Stream: TStream): TMemoryStream;
var
  GZ: TAbUnZipper;
begin
  GZ := TAbUnZipper.Create(nil);
  try
    GZ.ArchiveType := atGzip;
    GZ.ForceType := True;
    GZ.Stream := Stream;
    Result := TMemoryStream.Create;
    GZ.ExtractToStream(GZ.Items[0].FileName, Result);
  finally
    GZ.Free;
  end;
end;

function TAeForm.CompressGZip(Stream: TStream): TMemoryStream;
var
  GZ: TAbZipper;
begin
  GZ := TAbZipper.Create(nil);
  try
    GZ.ArchiveType := atGzip;
    GZ.ForceType := True;
    Result := TMemoryStream.Create;
    GZ.Stream := Result;
    GZ.AddFromStream('', Stream);
  finally
    GZ.Free;
  end;
end;

procedure TAeForm.UnZipClick(Sender: TObject);
var
  FS: TFileStream;
  GZ: TMemoryStream;
  ss: string;
begin
  if OpenDlg.Execute then
    begin
       FS := TFileStream.Create(OpenDlg.FileName, fmOpenRead);
      try
        GZ := DeCompressGZip(FS);
        GZ.SaveToFile('c:\AE\aaa.unz');
      finally
        FS.Free;
      end;
    end;
end;

procedure TAeForm.ZipClick(Sender: TObject);
var
  FS: TFileStream;
  GZ: TMemoryStream;
begin
  if OpenDlg.Execute then
    begin
      FS := TFileStream.Create(OpenDlg.FileName, fmOpenRead);
      try
        GZ := CompressGZip(FS);
        GZ.SaveToFile('c:\AE\bbb.zip');
      finally
        FS.Free;
      end;
    end;
end;