OnError und Windows 7

[Jac de Lad]

Hallo Roland.

Wenn ich in ein Programm folgende Zeilen einfüge:

errorproc
messagebox("Fehler","",0)
endproc

Set("Errorlevel",-1)
Set("OnError",1)
...Code
Messagebox(0)'Fehlerhafte Syntax

kommt bei Windows 7 trotzdem die profaneigene Fehlermeldung, obwohl die eigentlich unterdrückt werden sollte.

Ähnlich kommts bei Errorlevel=2. Ich weiß jetzt nicht ob ich zum Abfangen aller Fehler 2 oder -1 nehmen muss. Jedenfalls kommt bei Windows 7 die "Original"-Fehlermeldung trotzdem noch.

Jac

[RGH]

Hallo,

ich habe gerade noch mal das Beispiel aus der Hilfe genommen und OnError funktioniert bei mir unter Windows 7 exakt so wie auch unter XP.

Gruß
Roland

BTW: OnError fängt natürlich nur XProfan-Fehlermeldungen ab, keine Windows-Meldungen. Wenn Du also einen Fehler produzierst, der XProfan zum Absturz bringt (das geht leider tatsächlich), dann hilft auch OnError nicht.

[Jac de Lad]

Hier mal eine Zeile abgeändert. Ich habs mal auf dem Netbook probiert, das klappt bei beiden Windows-Versionen nicht. Aber wie kann ich nun einen solchen Fehler abfangen?

ErrorProc

   Set("ErrorLevel", 1)

   Print "<----ErrorProc---->"

   Print %Error, %ErrNumber, %ErrLine, $ErrStr, $ErrFile

   Print "<----------------->"

   Set("ErrorLevel", -1)

EndProc

 

CLS

Set("ErrorLevel", -1)

Set("OnError", 1)

 

Print Match$("^H[aA]us$","HAus")

messagebox(0)
'Print %MatchPos, %MatschLen  '  <-- hier ist ein Fehler: Unbekannte Systemvariable (Fehlernr 100)

 

WaitInput

End

[RGH]

Zitat von Jac de Lad

Hier mal eine Zeile abgeändert. Ich habs mal auf dem Netbook probiert, das klappt bei beiden Windows-Versionen nicht. Aber wie kann ich nun einen solchen Fehler abfangen?

Leider überhaupt nicht. Den sollte ich eigentlich zunächst in XProfan selbst abfangen ... und dann liesse er sich mit OnError abfangen. Es gibt leider seit der Umstellung auf lange Strings noch einige Stellen, wo die Abfrage auf falsche Syntax zu Systemfehlern (meist NullPointerException) führt. Einige habe ich schon ausgemerzt, aber nicht alle.
Hintergrund (Delphi-Beispiel):

If Zeile[1] > '0' Then Begin ...

Diese Zeile funktionierte mit kurzen Strings auch dann wie erwartet, wenn Zeile ein Leerstring ist: Die Bedingung liefert false.
Bei langen Strings führt der Zugriff auf das erste Zeichen zum Systemfehler, wenn Zeile ein Leerstring ist, deshalb muss zuvor abgefragt werden,ob die Länge des Strings Zeile >= 1 ist:

If Length(Zeile) >= 1 Then If Zeile[1] > '0' Then Begin ...

Da leider nicht alle Vorkommen dieser Problematik so einfach zu erkennen sind wie im Beispiel, habe ich offensichtlich noch nicht alle Stellen erwischt. Und hier ist es dann auch möglich, dass Interpreter und Runtime unterschiedlich reagieren, da der Parser logischerweise den Unterschied zwischen beiden ausmacht.

Gruß
Roland

[Jac de Lad]

Hm, aha, ok. Ich war mir ziemlich sicher, dass ich vorher alle Fehler abfangen konnte, aber dann liegts wahrscheinlich daran, dass es andere Fehler waren, die eben abbrechbar sind.

Noch eine Frage:
Muss ich nun ErrorLevel -1 oder 2 nehmen? So wie ich das verstehe unterdrückt -1 die Fehler und gibt sie auch nicht an Errorproc weiter. 2 hingegen registriert alles als Fehler und gibt es an Errorproc weiter (ohne aber eine Meldung auszugeben, weil Errorproc das ja bearbeitet).

Jac

[RGH]

Zitat von Jac de Lad

Muss ich nun ErrorLevel -1 oder 2 nehmen? So wie ich das verstehe unterdrückt -1 die Fehler und gibt sie auch nicht an Errorproc weiter. 2 hingegen registriert alles als Fehler und gibt es an Errorproc weiter (ohne aber eine Meldung auszugeben, weil Errorproc das ja bearbeitet).

Hallo,
Du musst -1 nehmen. ErrorProc wird für die Fehler angesprungen, die nicht per Messagebox gemeldet werden. Bei 2 würden selbst Warnungen als Fehler gemeldet!
Also: Wenn die ErrorProc angesprungen werden soll, den ErrorLevel immer auf -1 setzen. In der ErrorProc selbst dann sofort auf 0 bis 2, damit nicht ein Fehler in der ErrorProc zu einer Endlosschleife führt. (Also beim Setzen des ErrorLevels 0, 1 oder 2 ganz besonders auf die korrekte Syntax achten! ). Vor Verlassen der ErrorProc diesen wieder auf -1 setzen. Bei ErrorLevel 0 - 2 wird ErrorProc nicht angesprungen.

Gruß
Roland

[Bangkok]

ich denke mal, dass es so richtig ist.

Set("ErrorLevel", -1)

Set("OnError", 1)

[RGH]

Zitat von Bangkok

ich denke mal, dass es so richtig ist.

Set("ErrorLevel", -1)

Set("OnError", 1)

Korrekt!

Gruß
Roland

[Jac de Lad]

Ah alles klar. Vielleicht kann man das ja noch in der Hilfe unterbringen. Wenn es dir noch in XProfan 12 gelänge ALLE Probleme umzuleiten, das wär geil.