Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Dynazip cannot release form help
Message
From
06/04/2000 22:42:58
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Third party products
Title:
Dynazip cannot release form help
Miscellaneous
Thread ID:
00356631
Message ID:
00356631
Views:
87
Hi,

I am using dynazip 4.0 activex to zip and unzip my application
data files. However, my form which zip and unzip when pass in with
their source file and destination location, will zip/unzip and
'halt' without auto releasing the form. Below are code of my
unzip form. I still unable to find the problem, please advise or help. Thank a lot.


FORM.Init Method code
=====================

#DEFINE NO_ACTION 0
#DEFINE USO_MINORCANCEL 2
#DEFINE USO_EXTERNALPROG 4
#DEFINE USO_EXTPROGCANCEL 8

* source file name, destination where zip file will be extract to
LPARAMETERS pvInputFileName, pvOutputFileName


THISFORM.oleunzip.zipfile = ALLTRIM(pvInputFileName)
ThisForm.oleunzip.RecurseFlag = .T.
THISFORM.oleunzip.filespec='*.*'
THISFORM.oleunzip.AllQuiet = .F.
THISFORM.oleunzip.QuietFlag = .F.
THISFORM.oleunzip.Destination = ALLTRIM(pvOutputFileName)
THISFORM.oleunzip.OverwriteFlag = .T.
THISFORM.oleunzip.MajorStatusFlag = .T.

THISFORM.oleunzip.MessageCallbackFlag = .F.
THISFORM.oleunzip.BackGroundProcessFlag = .T.
ThisForm.oleunzip.NoDirectoryItemsFlag = .T.
ThisForm.oleunzip.NoDirectoryNamesFlag = .F.


_VFP.AutoYield = .F.

THISFORM.oleunZip.ActionDz = 8 && Unzipping

_VFP.AutoYield = .T.

* after this part, it will not release this form even though
I had 'release thisform' add here.
Best Regards
Virusim
Next
Reply
Map
View

Click here to load this message in the networking platform