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;