FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Servicio en D2005 con TTimer (solucionado)
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. Última edición por Kastor fecha: 24-01-2008 a las 15:11:06. Razón: Solucionado |
#2
|
||||
|
||||
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!
__________________
Héctor Geraldino Software Engineer |
#3
|
||||
|
||||
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:
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
Ahora lo que te queda es crearte una funcion que se llamara cada vez que se de el tiempo en el timer:
|
#4
|
|||
|
|||
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. |
#5
|
|||
|
|||
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:
en el evento Onstart
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. |
#6
|
|||
|
|||
Solución
gracias a san google pude implementar el Timer de bajo nivel.
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 |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Como arrancar o parara un servicio en funcion de otro servicio ?? | QuarkBcn | API de Windows | 12 | 15-06-2011 14:46:11 |
Instalacion Firebird en D2005 | cesarsoftware | Conexión con bases de datos | 1 | 27-11-2006 21:24:44 |
ORD? diferente resultado en D7 k en D2005????? | arantzal | Varios | 0 | 24-06-2005 09:39:17 |
Aplicaciones MDI en D2005 y .NET | adcoma | .NET | 2 | 13-04-2005 16:39:51 |
Ayuda de D2005 | bpesoj | Varios | 0 | 25-12-2004 11:41:42 |
|