[delphizip] Re: Save and Exit between Compression
- From: R Peters <rpeters@xxxxxxxxxxxxx>
- To: delphizip@xxxxxxxxxxxxx
- Date: Sun, 9 Jan 2011 11:12:49 +1100
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.
Other related posts:
