Iniciar y Detener un Servicio en Windows 7 x32 y x64

[[nlsgarcia]]

glsaavedra,

Empezado por glsaavedra

...Delphi - XE3...VCL compilado en 32...detiene el servicio pero la función no finaliza...Probado en W7 64 con MySQL 32 y W7 32 con MySQL 32...

La falla reportada es con la versión 1 del programa que esta en el Msg #1.

Pregunto : ¿Probastes la versión 2 del programa que esta en el Msg #10?

Nelson.

[glsaavedra]

Nelson

pruebo con el Msg #10 y te comento

Saludos

Guillermo

Empezado por nlsgarcia

glsaavedra,


La falla reportada es con la versión 1 del programa que esta en el Msg #1.

Pregunto : ¿Probastes la versión 2 del programa que esta en el Msg #10?

Nelson.

[[nlsgarcia]]

glsaavedra,

Empezado por glsaavedra

...pruebo con el Msg #10 y te comento...

Una pequeña corrección :

En las funciones ServiceStart, ServiceStop y StopDependentServices del código incluido en el Msg #10 hacer el siguiente cambio:

Código Delphi [-]
Sleep(SrvSts.dwWaitHint) cambiarlo por Sleep(WaitTime)

Espero sea útil

Nelson.

[glsaavedra]

Nelson

Perfecto !!!!
Todo funciona correctamente

Nuevamente gracias

Guillermo

[glsaavedra]

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

[glsaavedra]

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

Empezado por nlsgarcia

glsaavedra,


La falla reportada es con la versión 1 del programa que esta en el Msg #1.

Pregunto : ¿Probastes la versión 2 del programa que esta en el Msg #10?

Nelson.