[Cyberaxx]

Hallo,

Ich weiß nicht ob ich hier in der Sparte richtig bin aber ich versuchs einfach mal.

Ich möchte hier mal eine kleine Komponente vorstellen, sie ist zwar schon funktionstüchtig aber meiner Meinung nach noch nicht so der Hit. Entstanden ist sie dadurch, das in der Firma wo ich tätig bin, schon ein paar meiner Programme im Einsatz sind und es ab und an mal zu diversen und unvorhergesehenen Fehlerchen kommt.

Die Komponente ist ein Fehlerdialog:
- Datum und Uhrzeit des Fehlers
- Programmname
- Fehlerbeschreibung
- Fehlertyp
- Sender der Fehlermeldung

Zusätzlich kann dieser kleine Fehlerbericht als Email versendet werden. Bisher nur auf Knopfdruck, soll aber auch noch automatisch passieren können, sofern man die Option setzt.
An einen SMS versand habe ich auch noch gedacht aber erstmal muss es ja so laufen.

Es ist soweit auch alles einstellbar, bis auf das ich vllt das erstellen des Logs oder versenden der Email noch als Ereignis einbauen sollte, wo ich das grad beim schreiben sehe.

Vielleicht hat hier ja jemand noch Änderungs- oder Verbesserungsvorschläge.

Gruß

Cyber

Hab da mal grad eine kleine Frage.

Bisher lass ich meine Komponente über den ApplicationEvent laufen.
Wie kann ich das anstellen das ich nur die Komponente drauf ziehen muss und er springt automatisch an bei einem Fehler?

Ich hätte noch einen Voschlag: wie wäre es mit der Ausgabe der Code-Zeile, in der es kracht? Für den Entwickler sicher sehr interessant

Für weitere Anregungen musst du dir nur die Konkurrenz anschauen, z.B. madExcept

Daran dachte ich auch bereits, haut aber wohl nicht hin in der Kompilierten Exe wenn ich das hier im Forum richtig verstanden habe.

Wenn ich mich irre lasse ich mich gerne eines besseren belehren

Zitat von Meflin:

Für weitere Anregungen musst du dir nur die Konkurrenz anschauen, z.B. madExcept

Oder schau Dir die JCL an, die ist OpenSource. Dort gibt es auch solche Funktionen wie in madExcept.
Die kannst Du dann in Deine eigenen Programme einbauen.

Das für Dich interesannte Modul der JCL ist jclDebug.

Es ging noch ein wenig einfacher, hab mir einfas TApplicationEvrents angeschaut.
War eigentlich nicht so schwer wie ich dachte.
Jetzt nur noch Komponente aufs Form ziehen und es wird jeder Fehler abgefangnen.
Die Komponente ApplicationEvents geht noch einen Schritt weiter und prüft welches Ereignis selbst abgefangen wird.
Ich denke das kommt bei mir auch noch rein aber sonst denke ich ist es für mich gut von nutzen.

zusammenfalten · markieren

Delphi-Quellcode:

Uses
  Forms,...

constructor TErrorEventForm.Create(AOwner: TComponent);
begin
  Inherited Create(AOwner);

FAppEvents := TComponentList.Create(False);

...

procedure TErrorEventForm.HandleException(Sender: TObject; E: Exception);
begin
SetError(Sender, '', E);
end;

destructor TErrorEventForm.Destroy;
begin
  Application.OnException := nil;
  FAppEvents.Free;

  inherited Destroy;