General information
Category:
COM/DCOM and OLE Automation
Environment versions
Network:
Windows 2003 Server
Yep, it's been a good learning experience. Here's a quick and dirty example.
*--Main Class
DEFINE CLASS myclass AS session OLEPUBLIC
PROCEDURE MaxOutCPU AS VOID
*--Count to Half a billion.
lnStart = SECONDS()
FOR i = 1 TO 500000000
NEXT i
=STRTOFILE("Process Took: " + TRANSFORM(SECONDS() - lnStart) + " seconds" + CHR(13) + CHR(10), "C:\FoxStats.txt",1)
ENDPROC
PROCEDURE CallExternal(cExternal as String) &&--Must contain UNC path and file name.
DO (cExternal)
=STRTOFILE("Ran external Func: " + TRANSFORM(DATETIME()) + CHR(13) + CHR(10), "C:\FoxStats.txt",1)
ENDPROC
ENDDEFINE
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only