[firebase-br] Meio Off: Firebird Rodando (Delphi)

[Daniel / Tecnobyte]

Isto deve resolver seu problema:

function ExPingPort(const Host: string; const Port, TimeOut: Integer): 
Boolean;
var
  TCPClient: TIdTCPClient;
begin
  TCPClient := TIdTCPClient.Create(nil);
  try
    try
      TCPClient.Host := Host;
      TCPClient.Port := Port;
      TCPClient.ConnectTimeout := TimeOut;
      TCPClient.Connect;
      Result := TCPClient.Connected;
    except
      Result := false;
    end;
  finally
    TCPClient.Free;
  end;
end;


Atenciosamente.

Daniel P. Guimarães
Tecnobyte Informática
www.tecnobyte.com.br

----- Original Message ----- 
From: "Denis (listas gmail)" <listas.denisguerra em gmail.com>
To: "'FireBase'" <lista em firebase.com.br>
Sent: Thursday, January 31, 2008 11:00 AM
Subject: [firebase-br] Meio Off: Firebird Rodando (Delphi)


Pessoal,
Duas dúvidas:

1) Alguém tem alguma função em Delphi que verifique se o Firebird está ou
não carregado?

2) Tem como definir a "ordem" em que os serviços do Windows são carregados?
Parece que o Firebird é um dos últimos serviços a ser carregado no Windows
quando o micro é ligado.
Para sistemas que são carregados automaticamente no menu iniciar ou para
usuários apressados, o sistema é aberto antes do Firebird ser carregado. Daí
dá pau logo na abertura do sistema, tendo que fechar e reabrir o sistema.
Se tiver como definir esta ordem, coloco o Firebird para ser um dos
primeiros serviços a carregar e resolvo o problema...

Abraços a todos.

[ ]'s
~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~
Denis da Silva Guerra
São José do Vale do Rio Preto - RJ
denisdsguerra em gmail.com
~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~











______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
Para saber como gerenciar/excluir seu cadastro na lista, use: 
http://www.firebase.com.br/fb/artigo.php?id=1107
Para consultar mensagens antigas: http://firebase.com.br/pesquisa