Verificar se servidor DataSnap DbxConnection com FireMonkey está rodando
Pessoal, preciso de uma ajuda. Estrou tentando verificar se meu servidor DataSnap esta rodando e não estou conseguindo. Verifico se o componente SQLConnection é verdadeiro ou falso mas não está funcionando se o servidor não está rodando. Como faço isso? Faço assim:
Num Timer no frmPrincipal, ta isso:
Se o servidor não está rodando não vai.
Num Timer no frmPrincipal, ta isso:
if CDM.Conexao.Connected = False then
begin
CDM.Conexao.Connected := true;
pnlBotoes.Enabled := true;
AniIndicator1.Enabled := false;
end;
if not CDM.Conexao.Connected then
begin
ShowMessage('Erro ao conectar no Servidor. Verifique conexão!');
Timer1.Enabled := False;
frm_main.Hide;
Halt;
FreeAndNil(Application);
end;
Se o servidor não está rodando não vai.
Frederico Brigatte***
Curtidas 0
Respostas
Marisiana Battistella
09/09/2014
Olá Frederico!
Encontrei este artigo [url]http://www.andreanolanusse.com/pt/datasnap-compartilhando-conexao-com-o-banco-entre-diferentes-server-classes-a-partir-do-mesmo-cliente-session/[/url]
Talvez ele possa te ajudar, pelo que vi ele tem uma explicação detalhada sobre como criar a conexão....
Espero que te ajude...
Encontrei este artigo [url]http://www.andreanolanusse.com/pt/datasnap-compartilhando-conexao-com-o-banco-entre-diferentes-server-classes-a-partir-do-mesmo-cliente-session/[/url]
Talvez ele possa te ajudar, pelo que vi ele tem uma explicação detalhada sobre como criar a conexão....
Espero que te ajude...
GOSTEI 0
Frederico Brigatte***
09/09/2014
Marisiana, você me ajuda, não to sabendo implementar isso. Checar se esta offora eu sei, checo se connected = false, não sei verificar se esta on.
GOSTEI 0
Frederico Brigatte***
09/09/2014
Checar se está off eu fiz, ta funcionando legal. Deixo Conexao.Connected = False como default.
Isso ta num Timer
O problema ta checar se o servidor ta rodando e dar Conexao.Connected = True.
Isso ta num Timer
if not CDM.Conexao.Connected then
begin
ShowMessage('Erro ao conectar no Servidor. Verifique conexão!');
Timer1.Enabled := False;
frm_main.Hide;
Halt;
FreeAndNil(Application);
end;
O problema ta checar se o servidor ta rodando e dar Conexao.Connected = True.
GOSTEI 0
Frederico Brigatte***
09/09/2014
Alguém poderia ajudar?
GOSTEI 0
Hermeson Gonçalves
09/09/2014
estou com a mesma dúvida... o que você quer saber, é se a sessão está ativa não é??? se tu achar posta aqui... kkk
GOSTEI 0