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