¿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.