Hola a todos, he buscado por todos lados, pero no he encontrado solucion.
he implementado un servicio con D2005, ya esta instalado y funcionando, pero no al 100%, me refiero a:
al evento Onstart tengo:
procedure TWindowsService.OnStart(args: array of string);
begin
inherited;
try
Timer:=TTimer.Create(nil);
Timer.Enabled:=true;
Timer.OnTimer :=TimerAction; //aquí la acción
Timer.Interval := 1000;
archivo.Add('el Servicio se ha iniciado');
archivo.SaveToFile('c:\uno.txt');
except
on e: exception do begin
archivo.Add(e.ToString);
archivo.SaveToFile('c:\uno.txt');
end;
end;
end;
el problema esta que el Timer no ejecuta el ONTIMER asi que las acciones no las realiza.
procedure TWindowsService.TimerAction(Sender: TObject);
begin
try
archivo.Add('TimerAction');
archivo.SaveToFile('C:\uno.txt');
except
on e: exception do begin
archivo.Add(e.ToString);
archivo.SaveToFile('c:\uno.txt');
end;
end;
end;
que puede ser???
solo escribe al archivo la primera linea "el Servicio se ha iniciado" del Onstart
en las demos de delphi se encuentra el ejemplo, solo le agregue el Timer.
C:\Archivos de programa\Borland\BDS\3.0\Demos\Delphi.Net\WinForms\WinService
gracias por su pronta ayuda.