Fehlermeldung Global abfangen

[dw40u]

Hallo, vielecht hat ja jemand eine idee, warum folgender Code nicht geht...

Ich möchte gerne global evtl. Fehler in einem Logbuch schreiben

Code: Alles auswählen

...
  private
    procedure OnError(Sender: TObject; E: Exception);
...
 
procedure TForm1.OnError(Sender: TObject; E: Exception);
begin
  form1.logbuch(E.Message);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  application.OnException := @OnError;
end;
 
...

[Christian]

... Code geht nicht ...



... korrigier ihn halt ...

[Euklid]

dw, verwendest du try except?

[pluto]

Was heißt hier code geht nicht ? Was geht denn nicht ?
OnException wird auch nur aufgerufen wenn so ein Dialog kommt. mit zwei buttons drauf *G*.... sonst nicht.

Mir sagt der erste Beitrag nicht viel. Es müsste eigentlich gehen. im Code sind keine Fehler drin... auf den ersten Blick.

Wird denn TForm1.OnError aufgerufen ?

[Christian]

LOL, OnException kommt wenn ein Dialog kommt mit 2 Buttons Drauf. Genau.

[monta]

Pluto meint den Fehlerdialog, der sonst kommt

Aber um mal beim Thema zu bleiben, was geht denn nun eigentlich nicht? Vielleicht kannst du das mal eingrenzen. Ansonsten dient Application.OnException ja zum Anwendungsweiten abfangen (http://www.freepascal.org/docs-html/fcl ... ption.html" onclick="window.open(this.href);return false;) Nebenbei gibts noch HandleEvent/HandleException usw...

Code: Alles auswählen

unit Unit1; 
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
    procedure OnError(Sender: TObject; E: Exception);
  public
    { public declarations }
  end; 
 
var
  Form1: TForm1; 
 
implementation
 
procedure TForm1.OnError(Sender: TObject; E: Exception);
begin
  ShowMessage(E.Message);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnException := @OnError;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var test: TStringList;
begin
  test.Add('dg');
end;
 
initialization
  {$I unit1.lrs}
 
end.

Der Code geht wunderbar, und es gibt die entsprechende Showmessage, also irgendwie hab ich das Problem nicht verstanden.

[pluto]

Genau Monta, So habe ich es auch gemeint. es gibt ja unterschiedliche Fehler Meldungen. Aber alle im gleichen Dialog.

[Christian]

ja der dialog wird nunmal bei ner exception ausgelöst...
as ereignis komt aber nicht wenn der dialog kommt sondern wenn ne exception ausgelöst wird.
ist halt schon manchmal n bissl lustig von jemandem der jury bei programmierwettbewerben spielen will.

[pluto]

Du hast mich Falsch verstanden. Das Event wird ausgelöst sobald eine Fehler Meldung kommt. klar, was folgt meistens danach ? Ein Dialog.

[Christian]

Du hast mich Falsch verstanden. Das Event wird ausgelöst sobald eine Fehler Meldung kommt. klar, was folgt meistens danach ? Ein Dialog.

OnException wird auch nur aufgerufen wenn so ein Dialog kommt. mit zwei buttons drauf *G*.... sonst nicht.

Nö, du hast dich falsch ausgedrückt.

[pluto]

Du wusstest aber was ich meine !