jbzip jak to obsłu?żyć?

0

Nie wiem ale próbowałem juz różnymi metodami ale nie umiem przy pomocy tego komponentu ( http://4programmers.net/file.php?id=801 ) wypakować plików z zipa a co dopiero spakować. Jak dodać dwa pliki do zipa a potem wypakować?

jest jakiś inny komponent do zipów który nie wymaga dll'a i ma opcje hasła do archiwum?

0

Szukaj na torry.net

0
  1. Aby spakować:
  • Do pakowania służy komponent Tzip. W inspektorze objektow (lub na poczatku procedury pakowania) musisz wypelnic wartosci: ARCNAME oraz FILES
    np: zip1.arcname:='c:\archiwom.zip';
    zip1.files:='c:\folder*.*';
    nastepnie: if(zip1.Execute=true)then showmessage('Sie spakowało!!!');

Dodatkowo: zip1.owerwrite:=true; -> powoduje zastapienie pliku w przypadku gdy juz istnieje.
zip1.OnError -> w przypadku wystapienia bledu jest wykonywana procedura przypisana do tego zdarzenia...
zip1.OnProgress -> dzieki temu <ort>możesz</ort> obsluzyc pasek postepu itd..

  1. Aby wypakowac (tylko archiwa wymagajace dearchiwizatora wersji 1.0)
  • Do wypakowania służy komponent TUnzip. W inspektorze objektow (lub na poczatku procedury pakowania) musisz wypelnic wartosci: ARCNAME, EXTRPATH oraz FILES(pliki do wypakowania)

np: zip1.arcname:='c:\archiwom.zip';
zip1.extrpath:='c:\wypakowanepliki';
zip1.files:='*.jpg'; (pozostawinie pustego pola = wszystkie pliki)

nastepnie: if(Unzip1.Execute=true)then showmessage('Sie wypakowało!!!');

Dodatkowo: zip1.owerwrite:=true; -> powoduje zastapienie plików w przypadku gdy juz istnieją.

zip1.OnError -> w przypadku wystapienia bledu jest wykonywana procedura przypisana do tego zdarzenia...

np:

procedure TForm1.Zip1Error(Sender: TObject; const ErrorMsg: String);
begin
showmessage(ErrorMsg); //pokazuje okienko z treścią blędu
end;

zip1.OnProgress -> dzieki temu <ort>morzesz</ort> obsluzyc pasek postepu itd..

np:

procedure TForm1.Zip1Progress(Sender: TObject; AProgress: Smallint);
begin
gauge1.progress:=gauge1.progress+1; //jesli mamy gauge1 na formie :)
end;

Mam nadzieje ze trochę wyjaśniłem.

0

wypas, koleś widze ze nie podziekował ale za to ja to robie
pzdr

1 użytkowników online, w tym zalogowanych: 0, gości: 1