ActiveDelphi

[JCMF]

Bom dia amigos.

Depois de todos os problemas, até então, resolvidos com a ajuda de vcs... me surgiu uma novidade.

Na verdade, é um comportamento meio que estranho e que ocorre de vez em quando. Espero que alguns de vcs já tenham passado por isso para que possa me dar alguma dica

Tenho dois aplicativos, Cliente e Servidor, rodando via Datasnap de forma normal. Mas, algumas vezes e sem motivo aparente, quando finalizo a aplicação cliente de forma normal (via debug ou não), ela dá um erro e, logo em seguida, a aplicação servidor tb dá um erro.

Seguem as imagens na sequencia: 1º erro na aplicação cliente, 2º erro na aplicação servidor.

Erro da aplicação Cliente, quando é fechada de forma normal.


Erro da aplicação Servidor, depois que a aplicação cliente fecha e dá o erro acima.

[felipecaputo]

Olá amigo,

Já tentou garantir a desconexão antes de finalizar a aplicação?

O client possui mais de uma conexão com o servidor?

No servidor, os seus ServerMethods estão como Server, Session ou Instance?
_________________
if Post.State = psResolvido then
Post.Caption := Post.Caption + ' [RESOLVIDO]';
_____________________________________________
O único homem que está isento de erros, é aquele que não arrisca acertar. Albert Einstein

[JCMF]

[Djarum]

Falai man,

Eu tive esse mesmo problema usando Socket's (Client/Server); Acontecia de dar uma mensagem semelhante a sua no cliente; Coloquei uma função no Client que verifica se ele está conectado antes de desconectar.
Aqui resolveu.

[JCMF]

[felipecaputo]

Já tentou SQLConnection.CloseDataSets?
_________________
if Post.State = psResolvido then
Post.Caption := Post.Caption + ' [RESOLVIDO]';
_____________________________________________
O único homem que está isento de erros, é aquele que não arrisca acertar. Albert Einstein

[JCMF]

[Djarum]

Já testou também os dois juntos?

[felipecaputo]

não está ficando algo em execução ou em comunicação quando o sistema está fechando?

vc usar timer ou thread?
_________________
if Post.State = psResolvido then
Post.Caption := Post.Caption + ' [RESOLVIDO]';
_____________________________________________
O único homem que está isento de erros, é aquele que não arrisca acertar. Albert Einstein

[JCMF]

[JCMF]

[felipecaputo]

Já testou não fechar a conexão ou trocar o owner da instancia?
_________________
if Post.State = psResolvido then
Post.Caption := Post.Caption + ' [RESOLVIDO]';
_____________________________________________
O único homem que está isento de erros, é aquele que não arrisca acertar. Albert Einstein

[JCMF]

[JCMF]

Depois de alguns testes para descobrir o problema... constatei que o erro acontece no TDSProviderConnection.

Na lógica, é preciso dois componentes básicos para se ter um Dataset via Datasnap: o TClientDataSet e o TDSProviderConnection.

A ligação entre eles tb é básica. Mas, quando comentei a linha em que a conexão é definida para o TDSProviderConnection, o erro parou de dar! (??)

Exatamente nessa linha abaixo:

[JCMF]

O problema foi "resolvido" da seguinte forma:

Simplesmente removi a linha que realiza a desconexão com a aplicação servidor. (??)

Esse trecho de código não é mais realizado pela aplicação cliente: