Announcement

Collapse
No announcement yet.

Fehlermeldung anzeigen

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Fehlermeldung anzeigen

    Hallo,

    mein kollege hat folgendes Problem!
    Unser Programm läuft auf einen Windows 2000-Rechner bei dem die Windowsfehlermeldungen abgeschalten sind! jetzt hat mein kollege einen fehler im Programm und würde gerne wissen wie die Fehlermeldung heißt, ohne dieeinstellung im Betriebssystem ändern zu müssen!

    hat jemand eine Idee?

    gruß

    markus
    Herzliche Grüße

    Markus Lemcke
    barrierefreies Webdesign

  • #2
    Hallo Marcus,

    schreibe doch die Fehler (wenn sie auftreten) in das Eventlog.

    MFG
    Andr&#233

    Comment


    • #3
      hi andre,

      ist eventlog ne komponente? sagt mir gerade nichts!?

      marku
      Herzliche Grüße

      Markus Lemcke
      barrierefreies Webdesign

      Comment


      • #4
        Hallo Marcus,

        ist ein Bestandteil von Windows NT/2000/XP und den Serverversionen. Ruf mal unter Start Ausführen auf und trage eventvwr ein. Damit kann man sich bestehende Einträge anschauen. Es gibt Schnittstellen um ins Eventlog zu schreiben. Bei Delphi müsste es ein entsprechendes Object geben. Ich weis jedoch nicht, ob dieses bei Deiner Delphiversion dabei ist. Das Object heist TEventlogger und befindet sich in der Unit SvcMgr.

        MFG
        Andr&#233

        Comment


        • #5
          danke andre
          Herzliche Grüße

          Markus Lemcke
          barrierefreies Webdesign

          Comment


          • #6
            So wie ich Markus verstanden habe, ist das nicht sein Problem. Die Anwendung wir von Windows geschlossen, also wird eine Exception eben nicht behandelt. Wenn Sie behandelt würde, wüßte er ja was das Problem ist...<p>
            Ich bleibe bei meiner Empfehlung aus einem anderen Thread, um das Problem einzugrenzen, einfach die Projektdatei zu modifizieren.<p>
            <pre>
            ...
            begin
            try
            Application.Initialize;
            Application.CreateForm(TMainForm, MainForm);
            Application.Run;
            except
            on e: Exception do MessageDlg('Error:'#10 + E.Message, mtError, [mbOK],0);
            end;
            end.
            </pre><p>
            Mari
            Schöne Grüße, Mario

            Comment

            Working...
            X