Fórum Verificar se o IB está aberto #243961

esta sua pergunta tah um pouco complicada.

vc quer saber se o servidor IB esta iniciado?
se for isso vou te repassar a resposta que obtive aki no forum:

´UTILIZE OS COMPONENTES DA PALETA INDY E FAÇA UMA PESQUISA PELA FAIXA DE IP USADA NA REDE E TENTE A CONEXAO NA PORTA 3050 TCP´

espero ter ajudado,

Uildenei

Colega,

Acho que a forma mais indicada no seu caso e de muitos outros é simplemente tentar abrir uma tabela (try...except), se não conseguir, onde o problema poderá vir de diversas fontes, mas na prática o sistema não poderá ser ´ativado´.

vc poderia me dar uma ajuda de como usar os componentes Indy pra fazer isso?

abraço

Eu faço assim so source do meu programa

if ModoOperacao =´SERVIDOR´ Then
begin
if FindWindow(´Fb_Guard´, nil) > 0 then
begin

end
else
begin
MensagemTela(´Aviso ao Usuário´,´ UM PROGRAMA NESCESSÁRIO,´
+Chr(13)+´PARA O FUNCIONAMENTO DESTA APLICAÇÃO ´
+Chr(13)+´NÃO ESTÁ ATIVO, O SISTEMA TENTARÁ´
+Chr(13)+´ ATIVA-LO AUTOMATICAMENTE !.´,´´,Mb_OK + Mb_IconError);
WinExec(´C:\Arquivos de Programas\Firebird\FireBird_1_5\Bin\FbGuard.Exe -a´ ,1);
if FindWindow(´Fb_Guard´, nil) > 0 then
begin

end
else
begin
MensagemTela(´Aviso de Erro´, ´O SISTEMA NÃO CONSEGUIU ATIVAR,O PROGRAMA´
+Chr(13)+ ´CHAMADO FIREBIRD. TENTE REINICIAR O COMPUTADOR,´
+chr(13)+ ´SE NÃO RESOLVER TENTE REINSTALAR ESTE PROGRAMA,´
+chr(13)+´QUE ECONTRA-SE NO CD DE INSTALAÇÃO.´
+Chr(13)+´ O PROGRAMA SERÁ FINALIZADO !.´,´´,Mb_OK + Mb_IconError);
Halt
end;
end;
end;