FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Saber si un servicio esta corriendo en una IP REMOTA
Buenas tardes.
Hay alguna manera de saber si un servicio esta iniciado en una IP Remota a la cual debo conectarme pero solo si el servicio está iniciado, algo que sea rápido de comprobar y mi aplicación no demore tanto en abrir Porque actualmente tengo un código que lo verifica pero se demora 30 segundos en saber si está iniciado y es demasiada espera para un usuario iniciar una aplicación.
Gracias. Última edición por Soa Pelaez fecha: 30-05-2017 a las 23:27:58. |
#2
|
||||
|
||||
Como saber el estado de un servicio en una IP REMOTA
Buenas tardes.
Hay alguna manera de saber si un servicio esta iniciado en una IP Remota a la cual debo conectarme pero solo si el servicio está iniciado, algo que sea rápido de comprobar y mi aplicación no demore tanto en abrir Porque actualmente tengo un código que lo verifica pero se demora 30 segundos en saber si está iniciado y es demasiada espera para un usuario iniciar una aplicación. Código Delphi [-] // 26/02/2016 Verifica el estado del servicio, si esta ensendido, apagado, sin instalar, instalado ... //sMachine --> IP Donde se verifica el servicio //sService --> Nombre del servicio //Si lo que retorna es diferente de 4 es porque el servicio no está corriendo //Posibles resultados. {******************************************} {*** Parameters: ***} {*** sService: specifies the name of the service to open {*** sMachine: specifies the name of the target computer {*** ***} {*** Return Values: ***} {*** -1 = Error opening service ***} {*** 1 = SERVICE_STOPPED ***} {*** 2 = SERVICE_START_PENDING ***} {*** 3 = SERVICE_STOP_PENDING ***} {*** 4 = SERVICE_RUNNING ***} {*** 5 = SERVICE_CONTINUE_PENDING ***} {*** 6 = SERVICE_PAUSE_PENDING ***} {*** 7 = SERVICE_PAUSED ***} {******************************************} function ServiceGetStatus(sMachine, sService: PChar): DWORD; var SCManHandle, SvcHandle: SC_Handle; SS: TServiceStatus; dwStat: DWORD; begin dwStat := 0; // Open service manager handle. SCManHandle := OpenSCManager(sMachine, nil, SC_MANAGER_CONNECT); if (SCManHandle > 0) then begin SvcHandle := OpenService(SCManHandle, sService, SERVICE_QUERY_STATUS); // if Service installed if (SvcHandle > 0) then begin // SS structure holds the service status (TServiceStatus); if (QueryServiceStatus(SvcHandle, SS)) then dwStat := ss.dwCurrentState; CloseServiceHandle(SvcHandle); end; CloseServiceHandle(SCManHandle); end; Result := dwStat; Gracias. |
#3
|
||||
|
||||
No crees un hilo nuevo para preguntar lo mismo que en el otro.
Y no olvides usar las etiquetas para el código. Saludos. PD: Los he unido. |
#4
|
||||
|
||||
Me disculpo es que no me deja eliminar el primer hilo.
|
#5
|
||||
|
||||
Hola, es que no hay que eliminarlo, solamente debes escribir un nuevo post en el mismo hilo, tal y como he hecho, así se continua con el mismo
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Saber el estado de un Servicio | mcsebas | API de Windows | 4 | 26-02-2010 09:54:56 |
saber el estado de los botones del ratón | droguerman | API de Windows | 2 | 13-04-2007 05:29:57 |
Cómo saber el "nombre real" de un servicio | Casimiro Notevi | Windows | 10 | 11-04-2007 20:13:58 |
Saber el estado de un Trigger | muli | Firebird e Interbase | 4 | 28-08-2006 12:20:49 |
|