INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Jobs

General

How can I cancel out of a zip operation? by ChrisRChamberlain
Posted: 27 Feb 08 (Edited 10 Nov 10)

If you need to add compression to a VFP app, look no further than Craig Boyd's excellent VFPcompression.fll.

Free and fast, documentation and download are available at http://www.sweetpotatosoftware.com/SPSBlog/CommentView,guid,07ed8874-8781-4e76-878b-92b3f4cfc8b3.aspx#commentstart

Under certain circumstances, it's possible to utilise the callback feature to allow a user to cancel out of the current operation.

To enable this, try the following:-

Add two new properties .lCancel and .lUserDidCancel to an in scope object, say oObjectName

In the calling function/procedure/method put:-

CODE

ZipCallBack([oObjectName.mZipStatus()])
ZipOpen([MyZipFile.zip],[C:\],.F.)
ZipFile([C:\SomeVeryLargeFile.txt],.F.)

IF oObjectName.lUserDidCancel
    oObjectName.lUserDidCancel = .F.
    
&& Delete incomplete .zip file
ELSE   
    ZipClose()
    ZipCallBack([])    
ENDI
    

Add a command button or other suitable control to the app and in the .Click() event put:-

CODE

oObjectName.lCancel = .T.
In the callback function/procedure/method, oObjectName.mZipStatus(), put:-

CODE

DOEVENTS

IF oObjectName.lCancel
    oObjectName.lCancel = .F.
    IF MESSAGEBOX(        ;
        [Do you want to cancel?],;    
            4 + 32 + 0    ,;
            [Cancel operation]) = 6
        oObjectName.lUserDidCancel = .T.
        ZipClose()
        ZipCallBack([])    
    ENDI
ENDI

The above example works but you will need to determine for yourself under what other circumstances the methodology will work.

Back to Microsoft: Visual FoxPro FAQ Index
Back to Microsoft: Visual FoxPro Forum

My Archive

Resources

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close