Servicio en D2005 con TTimer

[Kastor]

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.

[[__hector]]

Saludos,

No se como esta programado el timer, pero seria bueno que intentaras asignar todas las propiedades antes de cambiarle el estado. Ademas de esto, puedes validar que el metodo se este ejecutando, quizas lanzando una exepcion o algo, para identificar que el error no esta a nivel de la llamada, sino quizas de la escritura en el archivo o algo parecido (poder identificar exactamente el error).

Suerte!

[juanelo]

Que tal Kastor,
El problema de usar un TTimer con un servicio de windows, es que este depende de los mensajes de ventana para poder ejecutarse.
Lo que deberias de hacer es crearte un timer de "bajo nivel" y que no dependa de alguna ventana.
Checate la funcion SetTimer del api de windows:

Código Delphi [-]
UINT SetTimer(

    HWND hWnd,    // handle of window for timer messages
    UINT nIDEvent,    // timer identifier
    UINT uElapse,    // time-out value
    TIMERPROC lpTimerFunc     // address of timer procedure
   );

En donde en tu caso primer parametro va NULL y el segundo a Cero (0).

Con esto creas el timer y almancenas el valor que te devuelve la funcion para posteriormente poder "matar" al timer identificado con este valor

Código Delphi [-]
The KillTimer function destroys the specified timer. 
BOOL KillTimer(

    HWND hWnd,    // handle of window that installed timer
    UINT uIDEvent     // timer identifier
   );

Ahora lo que te queda es crearte una funcion que se llamara cada vez que se de el tiempo en el timer:

Código Delphi [-]
void CALLBACK FuncionDeTimer(HWND HWindow, UINT uMsg, UINT idEvent,
 DWORD dwTime)

Espero te sirva.
Saludos

[Kastor]

gracias muchachos, probare con lo que me dicen y les cuento.


tengo otro servicio en Visual y si funciona el Timer, pero es un system.timers.Timer, pero no se como diablos implementarlo en Delphi.

[Kastor]

me he complicado demasiado al parecer.

busque todo lo referente al SetTimer y temporizadores, pero nada me resulta con buen termino.

para empezar la funcion tiene STDCALL, pero me envia un error de:
"Procedure definition must be ILCODE calling convention"

probe con {$UNSAFECODE ON}, pero solo funciono en la declaracion de la funcion.

esto es lo que he implementado:

Código Delphi [-]
procedure TWindowsService.TimerProc( wnd : HWND;  msg : UINT; iTimerID : UINT; dwTime : DWORD );
begin

//TimerAction;

try
    archivo.Add('TimerAction');
    archivo.SaveToFile('C:\un_texto.txt');
except
  on e: exception do begin
    archivo.Add(e.ToString);
  archivo.SaveToFile('c:\un_texto_Error.txt');

  end;
end;
end;

en el evento Onstart

Código Delphi [-]
procedure TWindowsService.OnStart(args: array of string);

begin
  inherited;
  try
    SetTimer(NULL,0,3000, @timerproc );
  except
    on e: exception do begin
      archivo.Add(e.ToString);
      archivo.SaveToFile('c:\error.txt');
    end;
  end;
end;

para poder usar la variable NULL es necesario agregar unit "variants"

me da el siguiente error:
"Borland.Vcl.EVariantTypeCastError: Invalid variant type conversion of Null variant into LongWord
at Borland.Vcl.VariantHelper.VarTypeCastError(Int32 ASourceType, Int32 ADestType)
at Borland.Vcl.VariantHelper.HandleExceptionTranslation(Exception E, Int32 AFirstType, Int32 ASecondType)
at Borland.Vcl.VariantHelper.UnhandledConversionException(Exception E, Int32 OldType, Int32 NewType)
at Borland.Vcl.VariantHelper.ToUInt32(Object AObject)
at Service.TWindowsService.OnStart(String[] args)
"

este link tambien lo revise
http://www.clubdelphi.com/foros/showthread.php?t=44155
(que ademas tiene unas frases para el Oscar, que me rei mucho )



la ultima pregunta es, en que lugar debo llamar a KillTimer, creo que al evento:
OnStop, OnPause, OnShutDown ???

gracias camaradas.

[Kastor]

gracias a san google pude implementar el Timer de bajo nivel.

Código Delphi [-]
uses
System.Timers

tTimer:System.Timers.Timer;

procedure TimerAction(Sender: TObject; e: System.Timers.ElapsedEventArgs);


constructor TWindowsService.Create;
begin
  inherited Create;

   ttimer:=System.Timers.Timer.Create;
  //la proxima linea soluciono un error que genera .NET
   include(tTimer.Elapsed, TimerAction);

   ttimer.Interval:=300000;//cada 5 minutos
   ttimer.Enabled:=true;

 
end;

procedure TWindowsService.TimerAction(Sender: TObject; e: System.Timers.ElapsedEventArgs);
begin
   //escribir la accion que necesitas, se llamara cada X milisegundos del
   //Timer
    
end;

el error solucionado por Include es:

v.ServerValidate := CustomValidator1_ServerValidate ;


But in .Net world this causes an error:


'read/write not allowed for CLR events. Use Include/Exclude procedure
(E2298)Multicast events cannot be assigned to or read from traditional
Delphi read/write events. Use Include/Exclude to add or remove methods' .

la explicacion y solucion detallada la encuentran en :
http://www.delphi3000.com/printartic...ArticleID=4434



saludos