Except no D2005

06/12/2005

2

Saudações

Estou desenvolvendo uma aplicação em DataSnap (3 Camadas) e estou tendo problemas para realizar o tratamento de exceção na entrada no FrontEnd.

Criei um método para testar se a conexão com o Servidor de Aplicação está ocorrendo e quando há algum problema, ele simplesmente não trata o erro, acusa a mensagem no depurador do Deplhi e simplesmente aborta as demais linhas de código do procedimento e entra no sistema, claro que há problemas pois ele não executa as demais linhas de código necessárias para carregar o sistema, mas não entendo porque ele não cai no except.

Segue função:

function TDmDados.ConectarServidor: Boolean;
begin
Try

if not SocketConnection.Connected then
SocketConnection.Connected := True;

Result := True;

except
on E : exception do
begin
Raise EAbort.Create(E.Message);
Result := False;
end;
end;
end;

Lembrando, o problema ocorre quando executo a linha SocketConnection.Connected := True, ele nem cai no except, apenas ignora as demais linhas de código.

Não sei se alguem já se deparou com isso...

Mas desde já agradeço.

Anderson.


Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar