Ok Sergey, thanks once more.
Regards,
Fernando
>>
>
>Actually in my sample (message #1071516) I tried to resemble what I understood about Calvin's example (a simple timer loop doing something - "The code executes the timer event every 5 seconds, aligned to the 5 second real time clock (so that it occurs at exactly :00, :05, :10, … seconds past the hour).").
>>
>>To be honest with you I couldn't follow the part bellow ("The sample service code below executes a file called “vfpsrvrtn.prg” when the timer fires. However, this code is not built into the EXE. This means you can change the service’s behavior dynamically, without having to stop/rebuild/start the service">):><snip>
>
>Here's the code from my VFPService project main program
LPARAMETERS parm1, parm2
>
>#define TIMERINT 5
>
>PUBLIC oService
>oService=NEWOBJECT("vfpsrv")
>oService.logstr("Starting Service: got some params: "+TRANSFORM(parm1)+" "+TRANSFORM(parm2))
>IF _vfp.StartMode>0
> READ events
>ENDIF
>
>RETURN
>
>DEFINE CLASS vfpsrv AS form
>
> PROCEDURE Init
> this.logstr(FULLPATH(""))
> DECLARE integer MessageBeep IN WIN32API integer
> this.AddObject("mytimer","mytimer")
> WITH this.mytimer
> .enabled=.t.
> .interval=1000
> ENDWITH
>
> PROCEDURE Destroy
> ?PROGRAM()
> MessageBeep(32)
>
> PROCEDURE logstr(str as String)
> str=TRANSFORM(DATETIME())+" "+str+CHR(13)+CHR(10)
> ??str
> STRTOFILE(str, "h:\tmp\vfpsrv.log",.t.)
>
>ENDDEFINE
>
>DEFINE CLASS mytimer AS timer
> PROCEDURE timer
> DO ("vfpsrvrtn" ) with this, oService
> CLEAR PROGRAM
> dtNow=DATETIME()
> nsec=SECONDS()
> nsec=CEILING((nsec+.5)/TIMERINT)*TIMERINT
> dtTarget=DTOT(DATE())+nsec
> this.interval=(dtTarget-dtNow) * 1000
>
>ENDDEFINEAnd here is the code for vfpsrvrtn.prg
>
>LPARAMETERS oTimer,oService
>oService.logstr(PROGRAM())
>Messagebeep(0)
>
>
>Anyway there is an obscure part (parameter passing) that was a bit hard to figure out when registering the service (registry and instsrv). We found elsewhere instsrvw.exe that found a lot less cumbersome.
>> Just by using>Windows Registry Editor Version 5.00
>
>[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\VFPSrv\Parameters]
>"AppDirectory"="d:\\fox90\\test"
>"Application"="d:\\fox90\\test\\vfpsrv.exe"
>"AppParameters"="myparm1 myparm2"
>actually didn't work.>
>It works for me if I copy .REG file exactly as in the Calvins's blog ( see above).
>
>
>I can't believe that either I'm too naive or that stuff is so hard to work.
>>
>>If it's not too much to ask, did you try to make my sample work? If so, what is wrong with it?>
>I didn't try your code because it doesn't make much sense to me. The windows service is run on background w/o GUI and all your code relies on GUI presented. If you want to run it with GUI why bother with turning it into a service?
>My suggestion stays. Get Calvin's code to work, understand it and move from there.
