Exception bei exception abfangen

[Meflin]

Hi,
ich will so eine exception abfangen:

Delphi-Quellcode:

try begin
...
end;
except
on EIdReadTimeout do begin
  inc(timeouts);
end;

wenn ich das mache bekomm ich allerdings nen fetten fehler. zu erwähnen ist dass das ganze in einem thread läuft und der fehler michs ehr an eine zugriffsverletzung erinnert :roll: . was gibts da zu beachten bzw woran liegt der fehler?

*MFG*

[Smokey]

Lass mal nach try das begin - end weg
und mach dafür am Ende des Codes noch ein end hin. Syntax für Exceptions in dem Fall :

Delphi-Quellcode:

try
  //dein code

except
  on Exception do
  begin
    //fehlerbehandlung

  end; //fehlerbehandlungs-block

end;//try-except

<edit> Hilfe ich werde Legastheniker <edit>

[Meflin]

nein, hat nix geholfen. erstens wird jetzt nur noch die eine exception abgefangen und keine andere mehr und der alte fehler kommt auch noch. ich wollte halt eben nur bei der speziellen exception was machen und alle anderen in silentexceptions verwandeln!

[Meflin]

hier mal der nicht funzende code:

Delphi-Quellcode:

try
  password := pwtotest;
  connect(connection_timeout);
  if connected = true then begin
    with form1 do begin
      ShowMessage(password+' was right!');
    end;
  end;
  interlockedexchangeadd(@form1.donegauge.progress,1);
  interlockedexchangeadd(tickcount,1);
except
  on EIdReadTimeout do begin
    inc(timeouts);
  end;
  interlockedexchangeadd(@form1.donegauge.progress,1);
  interlockedexchangeadd(tickcount,1);
end;

[Smokey]

Hm nunja ich bin mir nicht sicher, ob es geht, nach dem "on DeineException do begin-end" noch code auszuführen.
Zumindest habe ich sowas noch nie gesehen.
Da du aber die 2 zeilen code auf jedenfall auszuführen scheinst (sowohl bei keinem Fehler als auch bei Fehler)
würde ich das mit finally machen. also:

Delphi-Quellcode:

try

  try
    password := pwtotest;
    connect(connection_timeout);
    if connected = true then begin
      with form1 do begin
        ShowMessage(password+' was right!');
      end;
    end;
  except
    on EIdReadTimeout do begin
      inc(timeouts);
    end;
  end;

finally
  interlockedexchangeadd(@form1.donegauge.progress,1);
  interlockedexchangeadd(tickcount,1);
end;

aber ka obs daran liegt.

[Meflin]

nein daran liegts nicht, es geht nämlich nicht nach dem on blabla noch was auszuführen ;-) wenn ich die auskommentiere kommt der fehler immernoch. aber das mit dem finally werd ich versuchen (ich dacht immer man könnt nur entweder except oder finally nehmen)

*MFG*

[Christian S.]

Um "restliche" Exceptions zu behandeln, hält die Delphi-Hilfe folgendes bereit:

Delphi-Quellcode:

try
 ...
except
  on EZeroDivide do HandleZeroDivide;
  on EOverflow do HandleOverflow;
  on EMathError do HandleMathError;
else
  HandleAllOthers;
end;

[Meflin]

thx, es funzt! das handleallothers macht das aus den restlichen silentexceptions?

[Meflin]

achso ich habs gechecked! tuts nicht ;-)

[Smokey]

Aber du checkst das schon ausserhalb der Entwicklungsumgebung oder hast das stoppen bei Exceptions abgestellt?

wenn nicht : :twisted: :twisted: :twisted: :twisted:

Wenn doch : hm komisch