Descobrindo se o FB esta conectado!

Firebird

08/07/2005

Em codigo delphi, como faz pra saber se o FB esta conectado (serviço ou modo aplicaçao), caso n esteja, conecta-se ele antes de abrir o sistema por completo?

exite alguma forma?

um abraço


Njuniorba

Njuniorba

Curtidas 0

Respostas

Sergiomatos

Sergiomatos

08/07/2005

tente esta funcao

é necessario declarar a unit idTCPClient


function ServerIsRunning(AHost: String; APort: Integer):Boolean;
begin
 with TIdTCPClient.Create(Nil) do
   begin
     Host := AHost;
     Port := APort;
     Result := True;
     try
       Connect;
       Disconnect;
     except
       Result := False;
     end;
     Free;
 end;
end;



GOSTEI 0
POSTAR