Einzelnen Beitrag anzeigen

bernhard_LA

Registriert seit: 8. Jun 2009
Ort: Bayern
1.136 Beiträge
 
Delphi 11 Alexandria
 
#1

INDY 10 exections abfangen oder nicht

  Alt 16. Apr 2012, 13:12
nicht jede indy exeception speziell auf server seite ist ja ein fehler http://www.swissdelphicenter.ch/en/showarticle.php?id=1, man kann in der delphi IDE die exception überdrücken. ist es folglich sinnlos mit folgendem Code die
exception auf der server seite noch zu verfolgen ?


Delphi-Quellcode:

procedure TForm1.ServerException;
begin
  Memo1.Lines.Add('A Exception happend');
end;

procedure TForm1.IdTCPServer1Exception(AContext: TIdContext;
  AException: Exception);
begin
  TIdNotify.NotifyMethod(ServerException);
  Memo1.Lines.Add(AException.ClassName);
end;

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
  ...
  AException: Exception;
  LSize: LongInt;
begin

  try
  begin

  Memo1.Lines.Add('svr start execute !');

  ...
  
  .....

  ..

  .

  Memo1.Lines.Add('svr end execute !');
  end;
  except
  on e: exception do
        begin
        IdTCPServer1Exception(AContext, AException);
        Raise;
        end;
  end;
end;
  Mit Zitat antworten Zitat