Verificar se servidor DataSnap DbxConnection com FireMonkey está rodando
09/09/2014
0
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***
Posts
09/09/2014
Marisiana Battistella
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...
09/09/2014
Frederico Brigatte***
09/09/2014
Frederico Brigatte***
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.
27/01/2017
Hermeson Gonçalves
Clique aqui para fazer login e interagir na Comunidade :)