- 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..
- 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.