FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
glsaavedra,
Cita:
1- ¿La aplicación en cuestión donde se implementa el código del Msg #1 es VCL o FireMonkey?, ¿Esta compilada en 32 Bits o 64 Bits?. 2- ¿Cuando te refieres a mal Detener, quieres indicar que el servicio MySQL se detiene pero la función ServiceStop no finaliza?, ¿Es correcto?. 3- ¿El servicio de MySQL es de 32 o 64 bits?. 4- ¿Los servicios que inician y detienen correctamente son de 32 o 64 bits?. 5- ¿Puedes probar el iniciar y detener el servicio de MySQL en un ambiente de 32 Bits?. Espero sea útil Nelson. |
#2
|
||||
|
||||
Club Delphi,
Revisen este código: El código anterior es la versión 2 del código del Msg#1 que permite iniciar o detener un Servicio en Windows por medio de las Service Functions APIs. El código fue probado en Delphi 7, Delphi 2010 y Delphi XE4 (VCL 32 Bits y 64 Bits) bajo Windows 7 Professional x32 y x64, funcionando correctamente según lo esperado con los servicios de prueba utilizados tanto en 32 como 64 bits. Nota: 1- La versión 2 verifica los posibles estatus pertinentes en la apertura (Función ServiceStart) y cierre (Función ServiceStop) del servicio a procesar. 2- La versión 2 cierra los servicios activos que son dependientes del servicio a finalizar por medio de la Función StopDependentServices la cual es llamada desde la Función ServiceStop encargada de cerrar el servicio requerido y derivados, esto debe ser tomado en cuenta al momento de cerrar un servicio, si se obvia la Función StopDependentServices todos los servicios dependientes fallaran al cerrar el servicio principal. 3- La versión 2 tiene un control de TimeOut configurable para todas las funciones, en caso de producirse un Timeout en las funciones de Apertura o Cierre de un Servicio, estas devolverán el último estatus registrado del servicio al momento del TimeOut. Espero sea útil Nelson. Última edición por nlsgarcia fecha: 20-05-2014 a las 20:10:59. |
#3
|
|||
|
|||
Hola Nelson
Paso a responder 1 - VCL compilado en 32 2 - exacto, detiene el servicio pero la función no finaliza 3 - Probado en W7 64 con MySQL 32 y W7 32 con MySQL 32 4 - de ambos 5 - probado con igual resultado - para corroborar, le pasé el ejecutable a un amigo que tiene todo 32 y se comporta del mismo modo. Saludos Guillermo Cita:
|
#4
|
||||
|
||||
glsaavedra,
Cita:
Pregunto : ¿Probastes la versión 2 del programa que esta en el Msg #10? Nelson. Última edición por nlsgarcia fecha: 21-05-2014 a las 02:42:04. |
#5
|
|||
|
|||
Nelson
pruebo con el Msg #10 y te comento Saludos Guillermo |
#6
|
||||
|
||||
glsaavedra,
Cita:
En las funciones ServiceStart, ServiceStop y StopDependentServices del código incluido en el Msg #10 hacer el siguiente cambio: Espero sea útil Nelson. Última edición por nlsgarcia fecha: 21-05-2014 a las 16:37:00. |
#7
|
|||
|
|||
Nelson
Perfecto !!!! Todo funciona correctamente Nuevamente gracias Guillermo |
#8
|
|||
|
|||
Hola gente ... Hola Nelson
Te molesto por una consulta, para ampliar, el tema de la "machine" donde iniciar o detener el servicio. Hay alguna consideración especial ? Hasta ahora solo he probado con \\127.0.0.1, pero quiero hacer pruebas con un MySQL en otra IP de la red Saludos y gracias Guillermo |
#9
|
|||
|
|||
Nelson
probé, solo tuve que cambiar los boolean por integer de las funciones start y stop, porque si no el case daba error de compilación. Salvado eso, el comportamiento es el mismo, inicia bien, detiene, sigue deteniendo pero no finalizando Saludos Guillermo |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Detener un servicio Windows | cmfab | Varios | 4 | 09-03-2014 18:21:47 |
Iniciar y detener jobs!! | Melissa_12 | MS SQL Server | 3 | 20-11-2012 18:27:17 |
Iniciar servicio de windows | jocey | Varios | 1 | 19-09-2008 21:29:13 |
Problema al iniciar servicio con windows. | mcalmanovici | Varios | 2 | 27-06-2008 17:13:21 |
Detener\Iniciar proceso de windows | jocey | Varios | 3 | 19-02-2008 02:41:26 |
|