After many interruptions it is now possible with the new build. Note that is done differently to before. See the help under TZMProgressDetails -> Stop property or http://www.delphizip.org/Help190/stop_property-example.htm <http://www.delphizip.org/Help190/stop_property-example.htm> Russell Peters On Fri, Dec 17, 2010 at 9:05 AM, R Peters <rpeters@xxxxxxxxxxxxx> wrote: > I forgot that I had to move that function, now it won't do what I wanted. > Leave it with for a few days and I will see what I can do to allow stopping > before it finishes processing all files. > Russell Peters > > On Fri, Dec 17, 2010 at 12:15 AM, Allan Fernandes < > allan_fernandes@xxxxxxxxxxx> wrote: > >> Hi, >> >> I tried out the code you suggested. I took a file that takes 30 secs to >> compress. >> Made 8 copies of it and after 2 mins I change NeedToStop:=True; >> But the ZipMaster191SetAddName does not get triggered once compression >> starts. >> >> Regards >> Allan >> >> var >> NeedToStop: Boolean; >> FilesYetToBeDone: TStringList; >> >> .... >> >> procedure TForm1.Button1Click(Sender: TObject); >> begin >> Timer1.Enabled :=true; >> ZipMaster191.ZipFileName:='c:\Partial.zip'; >> ZipMaster191.FSpecArgs.Clear ; >> ZipMaster191.FSpecArgs.add('c:\Data\A1.gdb'); >> ZipMaster191.FSpecArgs.add('c:\Data\A2.gdb'); >> ZipMaster191.FSpecArgs.add('c:\Data\A3.gdb'); >> ZipMaster191.FSpecArgs.add('c:\Data\A4.gdb'); >> ZipMaster191.FSpecArgs.add('c:\Data\A5.gdb'); >> ZipMaster191.FSpecArgs.add('c:\Data\A6.gdb'); >> ZipMaster191.FSpecArgs.add('c:\Data\A7.gdb'); >> ZipMaster191.FSpecArgs.add('c:\Data\A8.gdb'); >> ZipMaster191.add; >> end; >> >> procedure TForm1.Timer1Timer(Sender: TObject); >> begin // After 2 mins ie: during compression of A4.gdb I need to pack up >> the Zip containing A1,A2,A3,A4 only >> Timer1.Enabled :=false; >> NeedTostop:=true; >> end; >> >> procedure TForm1.ZipMaster191SetAddName(Sender: TObject; var FileName: >> string;const ExtName: string; var IsChanged: Boolean); >> begin >> if NeedTostop then >> begin >> FilesYetToBeDone.Add(ExtName); >> FileName := ''; // tell it not to use any any name (won't save it at >> all) >> IsChanged := True; >> end; >> end; >> >> procedure TForm1.FormCreate(Sender: TObject); >> begin >> FilesYetToBeDone:= TStringList.Create ; >> end; >> >> >> >> >> ----------- >> To unsubscribe from this list, send an empty e-mail >> message to: >> delphizip-request@xxxxxxxxxxxxx >> and put the word unsubscribe in the subject. >> > > ----------- To unsubscribe from this list, send an empty e-mail message to: delphizip-request@xxxxxxxxxxxxx and put the word unsubscribe in the subject.