Herhangi dolu bir klasörü Zipleme nasıl oluyor?

[delphiibo]

İyi günler ve iyi çalışmalar. Ben herhangi bir klasörü .ziplemek istiyorum. Ama bir türlü yapamadım. Normal dosyaları .zipleyebiliyorum. Aşağıdaki kodla. Ama klasörü zipleyemiyorum. Klasör içinde alt klasörlerde olacak. Şimdiden yardım eden arkadaşlara bol bol teşekkürler.

Kod: Tümünü seç

Function TAyarunit.CompressFile(FileName,CompressedFileName:String): Byte;

Var
  InFile,OutFile:TFileStream;
  Comp:TCompressionStream;

Begin
  Try
    InFile:=TFileStream.Create(FileName,fmOpenRead);

  Except

    Result:=01;
    Exit;

  End;
  Try
    OutFile:=TFileStream.Create(CompressedFileName,
    fmCreate);

  Except

    Result:=02;
    InFile.Free;

    Exit;
  End;

  Try
    Comp:=TCompressionStream.Create(clMax,OutFile);


  Except

    Result:=03;
    InFile.Free;
    OutFile.Free;

    Exit;
  End;
  Result:=00;
  Try

    Comp.CopyFrom(InFile,0);
  Except
    Result:=04;
  End;
  Comp.Free;
  InFile.Free;

  OutFile.Free;
End;



Function TAyarunit.DecompressFile(FileName,DeCompressedFileName:String):Byte;


Var
  InFile,OutFile:TFileStream;
  DeComp:TDeCompressionStream;
  Buffer:Array[0..4095] Of Byte;
  Count:Integer;

Begin
  Try
    InFile:=TFileStream.Create(FileName,fmOpenRead);

  Except
    Result:=01;
    Exit;

  End;
  Try
    OutFile:=TFileStream.Create(DeCompressedFileName,
    fmCreate);
  Except
    Result:=02;
    InFile.Free;
    Exit;
  End;

  Try
    DeComp:=TDeCompressionStream.Create(InFile);
  Except
    Result:=03;
    InFile.Free;

    OutFile.Free;

    Exit;
  End;
  Result:=00;

  Repeat
    Try
      Count:= DeComp.Read(Buffer,SizeOf(Buffer));
      If Count<>
    0 Then OutFile.WriteBuffer(Buffer,
    Count);
    Except
      Result:=04;
      Count:=0;
    End;

  Until Count=0;
  DeComp.Free;
  InFile.Free;
  OutFile.Free;

End;

[mrmarman]

Ben herhangi bir klasörü .ziplemek istiyorum.

- Bu methodun bu hali ile WinZIP uyumlu bir sıkıştırma yapmış olmazsın. Öncelikle bunu bilmen gerekir.

- Bir dosyayı sıkıştırmak için Uses ZLIB deyip bu yazdığın tekniği kullanabilirsin ama kendi paket dosya biçimini tasarlaman gerekir. Şöyle ifade edeyim.

- Bir dosya kuru kuruya sıkıştırıp kaydetmek istersen bu yazmış olduğun procedure yeterlidir. Birden fazla dosya sıkıştırıp tek dosya haline getirmek istersen her dosya için ön hazırlık yaparak, geri dönüşüm (açma) işlemi için dosya ile ilgili derlediğin en az iki bilgiyi (DosyaAdı ve Yolu ile Uzunluğu) paket içerisinde barındırman gerekir.

- Bunu yapmak istiyorsan söyle anlatalım. Diğer türlü Abbrevia bileşen paketini (opensource ve freeware'dir) kullanarak bunu kısa yoldan yaptırabilirsin. Forumda bununla ilgili açıklama vardı.

Ref : http://www.delphiturkiye.com/index.php? ... m#Abbrevia

Not : Normalde üçündü parti bileşen reklamı yapmam. Freeware ve açık kaynak kodlu olduğundan bu seferlik biraz esneklik gösterdim. Bu pakette kodlar kontrolün altında. İşin görülsün.

[sabanakman]

Bir başka ücretsiz bileşen de ben önereyim.

ZipMaster bileşen paketi.

indirmek için = http://v179.delphizip.org/files/zm179setup0802.exe