Array
(
)

Except no D2005

Dessis Empresarial
   - 06 dez 2005

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.