Hi All,

Our product is a 24/7 Hospital product and i face a critical issue in Timer control.

The below code is a small example of my process, i created an exe of this code and this runs as a process in the task manager. The issue is this eats up memory consistently in time intervals.

if this exe is ran for days the memory is used is like in MBs and slowing down the PC's performance.

TimerCtrl()

procedure TimerCtrl

LOCAL poTim

poTim = createobject( "iTimer")

poTim.interval = 1000

poTim.enabled = .t.

read events

endproc

*=========================================================================================================================

define class iTimer as timer

function timer

RETURN

ENDFUNC

enddefine



I tried using the memory allocation command in the Timer Event to limit to 6800 KB but it didnt work.

= sys(3050, 2, 6800 * 1024)

My scenario is like this we have some files in a folder from another application which i have to access constantly in a time interval of one second and read the files separate the tokens and put in my Applications DBF.

do we have any other way we can do this in VFP.

i tried with DO While .t. Loop but its eating up the processor time upto 50% which is too costly for our customer.

Please suggest me some solution where i can limit the memory usage.

Kindly Advice me.

Thanks in advance

-Venkatram