Молния без сжатия (Delphi)

Question

Я использую класс TZipFile , изначально предоставленный Delphi, и мне интересно , возможно ли упаковать / распаковать без сжатия , аналогично команде tar в unix. В этом случае мы стремимся максимально эффективно извлекать и записывать файлы в пакет. Спасибо.

Answer 1

Решение: zip-без сжатия- delphi

Ключом является использование опции ZcStored в процедуре TZipFile.Add.

Прилагается рабочий пример, который отвечает на мой вопрос, на случай, если кто-нибудь попадет в ту же проблему, которая была любезно решена * Томом Брунбергом

// Используется system.zip;

Procedure MakeZipFile;
Var
 fZip: TzipFile;
 PathZip, MyPathFile: String;
begin
 fZip := TZipFile.Create;
 Try
   PathZip := 'C:\example.zip';
   MyPathFile := 'C:\myfile.txt';
   fZip.Open(PathZip, zmWrite);
   fZip.Add(MyPathFile, '', ZcStored); // Thanks Tom
   fZip.Close;
 Finally
   fZip.Free; 
 end;
end;