Auslöser einer Exception?

[Angel4585]

Hallo,

ich versuche gerade herauszufinden wer der Auslöser einer Exception ist.

Da ich in meinem Programm in ca. 20 verschiedenen Prozeduren eine TIdHTTP Komponente verwende und diese jeweils Fehlercodes wie 400,404 und diverse Socketserrors auslösen kann, dachte ich mir das ich dazu am besten die "globale" Application.Onexception "missbrauche" und dort einfach sämtliche Derartige Fehler abfange und auswerte.

Diese Prozedur habe ich mir in etwa so zusammengedacht:

Delphi-Quellcode:

procedure TData.AppException(Sender:TObject; E: Exception);
begin
Screen.Cursor:=crDefault;
if Sender is TIdHTTP then
  with TIdHTTP(Sender) do
    begin
    if Response.ResponseCode <> 200 then
      begin
      ShowMessage('Fehler in der Verbindung!'+sLineBreak+
                  'Mögliche Ursachen:'+sLineBreak+
                  '1. Fehlerhafte Proxy-Einstellungen'+sLineBreak+
                  '2. Server down.');

      end;
    end
else ShowMessage(TComponent(sender).Name+e.Message);

Also das ist jetzt nur so grob zum testen.

Das Problem ist jetzt das Sender jedesmal das Formular ist von welchem die Prozedur aaufgerufen wird darstellt, als "Sender is TIdHTTP" niemals zutrifft.

Kann mir jetzt jemand sagen wo drinsteht wer den Fehler ausgelöst hat?

Danke schonmal

:angel:

[Bernhard Geyer]

Schau dir mal in der Jedi die JCLExcept*-Klassen und Demoanwendungen an.

[Angel4585]

Also in dieser Prozedur selbst kann ich nicht rausfinden welche Komponente die Exception ausgelöst hat?

Edit: Ich hab gerade gesehen das die Fehler vom Typ EIdException sind, mit der modifizierten Version kann ich die Fehler jetzt abfangen:

Delphi-Quellcode:

procedure TData.AppException(Sender:TObject; E: Exception); 
begin 
Screen.Cursor:=crDefault; 
if E is EIdException then 
  begin
  //Hier muss ich jetzt noch schauen was das für Fehler sind
  end;
end;