Gerenciamento de Multiplas Conexões [DataSnap + TDATABASE]

29/01/2013

2

Boa tarde!

Desenvolvida uma aplicação servidor e uma Aplicação Cliente, onde o app_Server possui um componente [TDATABase] para se adequar a nossa realidade.

Quando a app_Cliente conectar na app_Server será estabelecido uma conexao com banco de dados utilizando o componente [TDATABase] no lado do servidor e criado dinamicamente o componente:

veja abaixo a função:

function TMinhaClasse.criandoConexaoBDE(FAlias: String)):boolean;
begin
Try
DTCONEXAOBDE := TDatabase.Create(nil);
DTCONEXAOBDE.DatabaseName := ''BD_BANCO'';
DTCONEXAOBDE.AliasName := FAlias;
DTCONEXAOBDE.KeepConnection := TRUE;
DTCONEXAOBDE.Connected := TRUE;
result := true;
except
raise Exception.Create(''Erro ao Conectar Banco de Dados!'');
End;
end;

App_Client1 - estabelecendo uma conexao
Passando Alias = "conn1" OK

App_Client2 - estabelecendo uma conexao
Passando Alias = "conn123" Falha.


Aparentemente parece sem sentido o que estou propondo, mas para este teste estou com dois banco de dados aberto sendo q cada Alias chama um banco de dados distinto.

Não posso derrubar a primeira conexao mas preciso estabelecer a segunda conexão,
alguem tem alguma sugestão?

Agradeço.
Responder

Post mais votado

29/08/2013

resolvido
Responder

Mais Posts

16/08/2013

Hudson Leite

Post Concluído!
Responder