Delphi'de Zip Sıkıştırması

Delphi'nin güncel sürümlerinde üçüncü parti bir bileşen vs. kullanmadan Zip sıkıştırması yapmak mümkün.

Bir Memo bileşenindeki adresleri bulunan dosyaları sıkıştırmak için şu kod yeterli oluyor:

uses System.Zip

procedure TForm1.SıkıştırClick(Sender: TObject);
var
  zip: tzipfile;
  i: integer;
begin
  Zip := TZipFile.Create;
  try
    Zip.Open('ZipFile.zip', zmWrite);
    for i:=0 to memo1.Lines.Count-1 do
      zip.Add(memo1.Lines[i]);
  finally
    Zip.Free;
  end;
end;

Daha ayrıntılı bilgi için buraya bakabilirsiniz.

26.01.2017 08:33:49

Yorumlar

Bu yazıya henüz yorum yapılmamış.

Yazı hakkında yorum yapmak için, buraya tıklayın.

Kategoriler :

Arşiv :

Etiketler :

Bağlantılar :