Actually, I opend the dzactx.dll that comes with DynaZip in the
VFP Object Browser, and the events I want to trap are there.
I various ways, I tried:
LOCAL oDynaZip, oHandler, lBound
oDynaZip = CREATEOBJECT("dzactx.dzactxctrl")
oHandler = CREATEOBJECT("DzHandler")
lBound = EVENTHANDLER(oDynaZip, oHandler)
DEFINE CLASS DzHandler AS Custom
IMPLEMENTS _dzactxEvents IN dzactx.dzactxctrl
PROCEDURE ZipMajorStatus(ItemName As String, Percent As Numeric, Cancel As Numeric) As None
ENDPROC
PROCEDURE ZipMemToMemCallback(lAction As Numeric, lpMemBuf As String, pdwSize As Numeric, dwTotalReadL As Numeric, dwTotalReadH As Numeric, dwTotalWrittenL As Numeric, dwTotalWrittenH As Numeric, plRet As Numeric) As None
ENDPROC
PROCEDURE ZipMessageCallback(MsgID As Numeric, mbType As Numeric, p1 As Numeric, p2 As Numeric, sz1 As String, sz2 As String, rc As Numeric) As None
ENDPROC
PROCEDURE ZipMinorStatus(ItemName As String, Percent As Numeric, Cancel As Numeric) As None
ENDPROC
PROCEDURE ZipRenameCallback(ItemName As String, iDate As Numeric, iTime As Numeric, lAttrib As Numeric, OrigItemName As String, rc As Numeric) As None
ENDPROC
ENDDEFINE
but I could'nt get it work. Any thoughts?
Kevin
Everything makes sense in someone's mind
public class SystemCrasher :ICrashable
In addition, an integer field is not for irrational people