Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Timer base class
Message
De
08/02/2004 17:09:44
Victor Lapid
Phil. Long Distance Tel. Co.
Manila, Philippines
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Classes - VCX
Titre:
Timer base class
Divers
Thread ID:
00875287
Message ID:
00875287
Vues:
52
Hi,

I've created a DLL using a timer object to perform a certain task continuosly. I tried to create the object manually in VFP using createobject
and it seems to work but the timer doesn't work continuosly.

code:
define class Process as custom olepublic
ADD OBJECT TimerObj as Timer

interval = 5000
Enabled = .T.

Procedure timer

cEwsdFle="F:\ewsd\notes.og"
if !file((cEwsdFle))
cPath=fcreate((cEwsdFle),0)
else
cPath=fopen((cEwsdFle),2)
=FPUTS(cPath,"creating log file,this is only a test")
=fclose(cPath)
endif
endproc

enddefine
Thanks for any help
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform