Hi,

Actually, my form did had use the dynazip status bar display activex too.
But I update the progress only in the MajorStatus event. The form will
just halt after I see the progress bar reached 100%. Below are the code
in my MajorStatus event method. Is this causing the problem. Please
advise ,thank a lot.


OleStatus.MajorStatus
*** OLE Control Event ***
LPARAMETERS itemname, percent, cancel

THISFORM.oleStatus.StatusPercent = Percent


>Sounds like you may have a dangling object reference
>
>Since you are using the MajorStatus event (since you are setting the MajorStatusFlag = .T.) you are obviously displaying some sort of progress thermometer. By any chance are you instantiating the progress thermometer and attaching it to a property of the form? If you are doing this and forget to remove the reference to the progress thermometer, the form cannot release itself.
>
>For example are you doing something like this in the MajorStatus event:
>
>

>LPARAMETERS itemname,percent,cancel
>IF TYPE("thisform.oTherm")!="O"
>   thisform.oTherm = CREATEOBJECT("MyThermometer")
>   thisform.oTherm.Show()
>ENDIF
>
>thisform.oTherm.Update(itemname,percent)
>

>
>Then you may want to execute something like the following in your init
>
>

>_VFP.AutoYield = .F.
>THISFORM.oleunZip.ActionDz = 8 && Unzipping
>_VFP.AutoYield = .T.
>thisform.oTherm.Release()
>thisform.oTherm = .NULL.
>this.Release()
>

>
>Hope this helps,
>Rick
>
>>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.