Italian community of Lazarus and Free Pascal

Programmazione => Generale => Topic aperto da: eddy16391 - Novembre 16, 2018, 11:25:15 am

Titolo: Creare archivio zip protetto da password
Inserito da: eddy16391 - Novembre 16, 2018, 11:25:15 am
Ciao a tutti,
sto provando a scrivere una procedura per la creazione di un archivio zip protetto da password.
Con TZipper sono riuscito a creare l'archivio ed a metterci i file dentro, però non riesco ad aggiungere una password.
Ho provato anche Abbrevia, ma non riesco a capire come poter mettere i file all'interno dell'archivio creato.
Qualcuno sa come aggiungere una password ad un archivio TZipper oppure come utilizzare Abbrevia?
Grazie
Titolo: Re:Creare archivio zip protetto da password
Inserito da: xinyiman - Novembre 16, 2018, 11:47:10 am
Una domanda, hai già provato così?

Codice: [Seleziona]
interface

uses
  .., AbZipper,AbZipTyp,AbUtils; 
.
.
.
procedure TForm1.Button1Click(Sender: TObject);
var
  Zip : TAbZipper;
begin
   Zip := TAbZipper.Create(Application);
   Zip.ArchiveType := atZip;
   Zip.FileName := 'C:\Myfiles\xx.ZIP';   <--- Rename file name to avoid overwrite
   Zip.AddFiles(Edit1.Text,1);                <---Name of your file to compress
   Zip.ZipfileComment := 'AutoGenerado.';
   Zip.CompressionMethodToUse := smBestMethod;
   zip.DeflationOption := doMaximum;
   Zip.Password := 'abcdefg123';
   zip.Save;
   zip.CloseArchive;
end;     

E' un codice trovato sulla rete.
Titolo: Re:Creare archivio zip protetto da password
Inserito da: eddy16391 - Novembre 16, 2018, 12:04:35 pm
Perfetto funziona!!
In realtà avevo trovato un codice simile che non funzionava perchè saltavano un passaggio, ovvero il save finale.
Grazie mille!
Titolo: Re:Creare archivio zip protetto da password
Inserito da: xinyiman - Novembre 16, 2018, 12:09:19 pm
Figurati