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
