GARANTIR DESCONTO

Fórum Carregar Firebird pela aplicação #47991

10/11/2004

0

Gostaria de saber se alguém sabe como detectar pela aplicação se o servidor está carregado ou não, e caso negativo ativá-lo para depois abrir o banco.

Pois acabei de atualizar a versão do IBEasy+ e ele faz exatamente isso. Ao tentar abrir o banco ele apresenta a mensagem ´O servidor não foi iniciado? Você deseja fazer isso?´ Clicando em Sim, ele carrega o firebird e abre o banco.


Aerreira

Aerreira

Responder

Posts

11/11/2004

Fsflorencio

Amigo,
achei isto no fórum Delphi:


program Project1;
uses
Forms,
Windows,
Dialogs,
Unit1 in ´Unit1.pas´ ;
{$R *.RES}
Var HprevHist : HWND;
begin
Application.Initialize;
HprevHist := FindWindow(Nil, PChar(´TheProgrammer´));

if HprevHist = 0 then
begin
MessageDlg(´não está sendo executado´, mtInformation, [mbOK], 0);

//shellexecute ...
end
else
MessageDlg(´já está sendo executado´, mtInformation, [mbOK], 0);
end;

Talvez não funcione se o firebird estiver sendo rodado como serviço. Não tive a oportunidade de testar.


Responder

Gostei + 0

12/11/2004

Aerreira

(...) HprevHist := FindWindow(Nil, PChar(´ibserver´)); (...) Talvez não funcione se o firebird estiver sendo rodado como serviço. Não tive a oportunidade de testar.


No Win98 ele não consegue identificar o ´ibserver´ rodando. Sempre diz que não está ativo, e carrega novamente. Porém esta seria uma solução somente para uso local, pois no caso do sistema num ambiente cliente/servidor isto não seria possível mesmo, pois o server precisa estar rodando no servidor e não no cliente. Vou esquecer esta ideia.

De qualquer modo, obrigado


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar