¿Está activo FB?

[Angel.Matilla]

Esta pregunta no sé si debe ir aquí o en el subforo de C++ Builder. Tengo una aplicación hecha en BCB 6 con FB 2.5 y me ha surgido una duda: ¿Hay alguna forma de saber si está instalado y ejecutándose dicho motor? Sobre todo teniendo en cuenta que puede instalarse como servicio o como programa, aunque yo recomiendo instalarlo como servicio. Ahora tengo este código:

Código PHP:

if (GetWindow(GetDesktopWindow, GW_HWNDNEXT) == FindWindow("FB_Server", "Firebird Server")  && // Ver 1.5
    GetWindow(GetDesktopWindow, GW_HWNDNEXT) == FindWindow("IB_Server", "InterBase Server"))    // Ver 1.0
     return false;
else
     return true; 


pero he comprobado que no funciona bien o no soy capaz de "ejecutarlo" bien.

[Angel.Matilla]

Dicho de otra forma: Me da la impresión que si bsucamos un servicio, con ese código no se encuentra si está ejecutándose o no.

[Casimiro Notevi]

Depende de la versión, tendrás que verificar un servicio u otro:

Superserver -> fbserver
Classicserver -> fb_inet_server
Superclassic -> fb_smp_server

[ecfisa]

Hola.

Fijate si te sirve esta opción,

checkFirebird.h:

Código PHP:

#ifndef checkFirebirdH
#define checkFirebirdH

bool isFirebirdRunning( void );

#endif 


checkFirebird.cpp:

Código PHP:

#pragma hdrstop

#include "checkFirebird.h"
#include "WinSvc.hpp"

#pragma package( smart_init )

DWORD ServiceStatus( const char* &sMachine, const char* &sService )
{
  SC_HANDLE schm, schs;
  TServiceStatus ss;
  DWORD dwStat = 0;

  schm = OpenSCManager( sMachine, NULL, SC_MANAGER_CONNECT );

  if ( schm > 0 ) {
    schs = OpenService( schm, sService, SERVICE_QUERY_STATUS );

    if ( schs > 0 ) {
      if ( QueryServiceStatus ( schs, &ss ) )
        dwStat = ss.dwCurrentState;
      CloseServiceHandle( schs );
    }

    CloseServiceHandle ( schm );
  }
  return dwStat;
}

bool isFirebirdRunning( void )
{
  return ServiceStatus( "", "FirebirdServerDefaultInstance" ) == SERVICE_RUNNING;
} 


Ejemplos de uso:

Código PHP:

...

#include "checkFirebird.h"

...

void __fastcall TForm1::ButtonCheckClick( TObject *Sender )
{
  ShowMessage( (isFirebirdRunning() ? "Servicio de Firebird activo" : "Servicio de Firebird inactivo") );
  ...
  if ( isFirebirdRunning() )
  ... 


Saludos

[Angel.Matilla]

Gracias a los dos. En cuanto pueda lo probaré y os diré como ha ido.

[Angel.Matilla]

ecfisa: Gracias. Funciona a la perfección.

[Angel.Matilla]

Estuve haciendo pruebas que como os he dicho funcionan a la perfección. Sin embargo he pensado que tal vez sea más efectivo preguntar por el servicio Firebird Guardian

Código PHP:

bool isFirebirdRunning( void )
{
  return ServiceStatus( "", "FirebirdGuardianDefaultInstance" ) == SERVICE_RUNNING;
} 


ya que si se lanza este, automátciamente se arranca el servidor. No sé que os parece.

[ecfisa]

Hola.

No veo buena idea preguntar solamente por Firebird Guardian, de echo se usa cuando Firebird es ejecutado como aplicación no como servicio y era esencial en Windows 9x/MS por ejemplo.
Pero con seguridad en los S.O. mas actuales la mayoría opte por no ejecutarlo, lo que no lo haría un indicador fiable de que Firebird esté activo o no.

( What is the Firebird Guardian ? )

Saludos

[Angel.Matilla]

Gracias por la observación; la tendré en cuenta. Sin embargo yo tengo instalado FB como servicio y tengo lanzados ambos; no sé si estaré de alguna forma interfiriendo en el buen rendimiento del motor.

[ecfisa]

Hola Angel.

No no creo que degrade el rendimiento, al menos no lo he escuchado.

Saludos

[Casimiro Notevi]

Guardian se usaba en win95/98, versión superserver y ejecutándose como aplicación, no como servicio.
Después de eso no es necesario para nada realmente, aunque muchas veces se instala por la "sensación extra" de seguridad que da.
No afecta casi para nada al rendimiento porque básicamente solo está pendiente de que esté andando el server, para lanzarlo si no se está ejecutando.

[Angel.Matilla]

Perfecto. Muchas gracias por las aclaraciones.

[Angel.Matilla]

Voy un pasito más allá con este hilo.

Igual que me habéis enseñado a averiguar si un servicio está o no activo, ¿se podría saber si está instalado FB? He estado viendo la ayuda sobre OpenService pero no me queda muy claro si existe algún comando que averigüe ese punto.

[ecfisa]

Hola.

En un parrafo de este enlace Testing your installation dice:

If everything works as designed, the Firebird server process will be running on your server upon completion of the installation. It will start up automatically whenever you restart your server.

por lo que controlando los puntos anteriores debería bastar. (creo que algo similar ya comentaste en un mensaje anterior)

Algo que se me ocurre para verificar si existe alguna versión de Firebird instalada es revisar si el nombre existe en la lista de programas instalados, ejemplo:

Código PHP:

...
#include <registry.hpp>

bool isFirebirdInstalled()
{
  AnsiString CKEY = "Software\\Microsoft\\Windows\\CurrentVersion\\Uninstall";
  TRegistry   *rg = new TRegistry;
  TStringList *ts = new TStringList;
  bool found = false;

  rg->RootKey = HKEY_LOCAL_MACHINE;
  if( rg->OpenKeyReadOnly( CKEY ) )
    rg->GetKeyNames( ts );
  rg->CloseKey();

  for ( int i = 0; i < ts->Count && !found; i++ ) {
    rg->RootKey = HKEY_LOCAL_MACHINE;
    rg->OpenKeyReadOnly( CKEY + '\\'+ ts->Strings[i] );
    AnsiString str = rg->ReadString( "DisplayName" );
    found = str.Pos( "Firebird" ) != 0;
    rg->CloseKey();
  }

  delete rg;
  delete ts;
  return found;
}

void __fastcall TForm1::Button1Click( TObject *Sender )
{
  if ( isFirebirdInstalled() )
    ShowMessage( "Instalado" );
  else
    ShowMessage( "No instalado" );
} 


Saludos

[Angel.Matilla]

Muchas gracias ecfisa. No se me había ocurrido lo de buscar en el registro, pero lo cierto es que le tengo mucho respeto a meterme con él.