Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > Firebird e Interbase
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 12-11-2010
Angel Vicente Angel Vicente is offline
Miembro
 
Registrado: may 2006
Posts: 15
Poder: 0
Angel Vicente Va por buen camino
¿Lentitud en arranque de servicio?

Hola...

Tengo una instalacion con Fb 2.5 arrancandose como servicio, un programa que utiliza la base de datos, que se arranca desde el grupo Inicio (todo ello en XP), y tengo modificado el registro para que se registre un usuario por defecto.

Funciona todo, pero hay falta de sincronia: parece que arranca antes el programa que el servicio de la base de datos, con lo que el primero falla y aborta (no ejecuta), si espero unos segundos mas, al arranque de la base de datos, puedo arrancar el programa sin ningun problema.

Mi pregunta es si existe alguna forma de asegurar que la base de datos esta arrancada antes de ejecutar el programa, alguna forma de ordenar el arranque de los servicios y de los programas, o de establecer algun tipo de dependencia en el programa del grupo Inicio o algo asi. En el msconfig no he visto como hacerlo.

Saludos y gracias de antemano
Responder Con Cita
  #2  
Antiguo 12-11-2010
Avatar de Axel_Tech
Axel_Tech Axel_Tech is offline
Miembro
 
Registrado: nov 2008
Ubicación: lugar en que está ubicado algo.
Posts: 85
Poder: 16
Axel_Tech Va por buen camino
Se me ocurre una forma (aunque seguro que no es la más elegante): investigar cuántos segundos transcurren más o menos desde que inicia Windows hasta que inicia la base de datos y al principio de tu aplicación hacer un
Código Delphi [-]
Sleep(n)
donde n será el número de milisegundos que deberá esperar para hacer la conexión a la base de datos.
__________________
No hope, no dreams, no love, my only escape is Underground
Responder Con Cita
  #3  
Antiguo 12-11-2010
Angel Vicente Angel Vicente is offline
Miembro
 
Registrado: may 2006
Posts: 15
Poder: 0
Angel Vicente Va por buen camino
Tratare de hacerlo asi, porque no veo como ordenar los arranques, ni como comprobar si un servicio esta arrancado

Gracias
Responder Con Cita
  #4  
Antiguo 19-11-2010
Avatar de rastafarey
rastafarey rastafarey is offline
Miembro
 
Registrado: nov 2003
Posts: 927
Poder: 21
rastafarey Va por buen camino
Resp

Si notas algunos prohrams que dependen de servicios se ejecutan de la siguiente manera por ejemplo kavsperky se llama asi
C:\Archivos de programa\Kaspersky Lab\avp.exe /waitservice

Yo tengo un progrma que hace lo mismo y cuando lo llamo desd el run de windows osea cuando arranca el sistema operativo. si veo que esta el parametro realizo un ciclo repeat durente un tiempo o hasta que el serviocioeste levantado.

Código Delphi [-]
Function VerficicarServicio(Srv: String): Boolean;
Begin
   //cooidgo que verifica si el servicio esta levantado
End;

Procedure xxxxxxx;
Var
   ServicioCorriendo: Boolean;
   TiempoAgotado: Boolean;
Begin
repeat
   ServicioCorriendo := VerficicarServicio('xxxxx');
   //Codigo para vefiicar el tiempo maximo 
Until ServicioCorriendo or TiempoAgotado;
End;
__________________
Todo se puede, que no exista la tecnología aun, es otra cosa.
Responder Con Cita
  #5  
Antiguo 19-11-2010
celades1 celades1 is offline
Miembro
 
Registrado: ago 2005
Posts: 116
Poder: 19
celades1 Va por buen camino
Hola

Vete a Panel de control
Herramientas administrativas
Servicios
Firebird server
doble clic y cambiale su forma de abrir ponlo en automatico si es que esta
en manual (que es su defecto) ya que es el firebird guardian el que solo esta
en automatico.

Saludos
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

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 15:46:11
Arranque minimizado Cecilio Varios 2 25-06-2008 12:54:59
quiero hacer un programa que arranque automaticamente cuando arranque windows federiconqn21 Varios 7 24-04-2007 23:31:35
Arranque servicio windows wod Varios 2 15-03-2007 13:58:01
Arranque Windows Mínimo MaGNa Windows 6 10-08-2005 12:25:05


La franja horaria es GMT +2. Ahora son las 18:17:44.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi