>In my app I need to pause the current process and display a message on an external (thru COM port) device. Since data is coming in from other ports on the computer that I monitor, I use a form class with a timer.
>
>Form Props:
>
>Top = 468
>Left = 4
>Height = 22
>Width = 104
>ShowWindow = 1
>DoCreate = .T.
>Caption = "Form1"
>Visible = .T.
>WindowType = 1
>Name = "delayform"
>
>Methods:
>
>PROCEDURE Init
>PARAMETERS nInterval
>ThisForm.Timer1.Interval = nInterval
>ThisForm.Timer1.Enabled = .T.
>ENDPROC
>
>PROCEDURE Unload
>ret_value = .T.
>RETURN ret_value
>ENDPROC
>
>The timer1 has this code in it's timer event:
>
>PROCEDURE Timer
>This.Enabled = .F.
>Thisform.Release
>ENDPROC
>
>So I call it as so
>
>obb = CREATEOBJECT("delayform",5000)
>obb.show
>
>So the form starts up and enables the timer which fires after 5 seconds. The Timer1.Timer event disables the timer and closes the form.THus I get my 5 second delay. (INKEY is out as it allows keystrokes to terminate it. )
>
>This works fine for my needs. But of late I have noticed that I get an error at the CREATEOBJECT line
>
>"Not Enough Memory to complete this operation" running in NT as well as 95/98.
>
>I have checked in the locals window and the form object is released when the form closes. What is causing this memory error. Am I doing something wrong in the calling and releasing of the form? Is there a leak in memory?
>
>Please help
>
>Bernard
I was getting the same thing on my laptop (W98), right after I installed VS SP3.
The only thing that seemed to work for me was completely removing VS6, and reinstalling VS6 and SP3 again. Reinstalling VFP6 by itself didn't help.