ضغط الملفات بصيغة zip في الدلفي

[kachwahed]

من المكتبة Synopse تجميع خوارزميات الضغط في مكتبة وحيدة pascal خام!
مرفق SynLZ و SynZip دون استخدام مكتبات ربط (dll). للاستخدام:

كود :

http://synopse.info/forum/viewtopic.php?pid=163

بشكل مسبط وملف وحيد:

PHP كود :

procedure CompressZip(AFileName: String);
var
  Data: TMemoryStream;
begin
  Data := TMemoryStream.Create;
  with TZipWrite.Create(ChangeFileExt(AFileName,'.zip')) do
  try
    Data.LoadFromFile(AFileName);
    AddDeflated(AnsiString(ExtractFileName(AFileName)), Data.Memory, Data.Size);
    Assert(Count=1);
  finally
    Free;
    FreeAndNil(Data);
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  CompressZip('c:\test.txt');