Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
DynaZip and VFP
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Divers
Thread ID:
00592423
Message ID:
00593029
Vues:
29
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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform