Kann mein Programm "merken" wo es sich aufgehängt hat?

**Der schöne Günther**

Übermüdete Entwickler bauen manchmal while-Schleifen die unter bestimmten Umständen nie verlassen werden. Manchmal posten sie danach in der Delphi-Praxis.

Exceptions kann man ja super loggen und kann genau sagen "In Zeile XY knallt es weil ...". Wenn allerdings die Anwendung (bevorzugt im Hauptthread) hängt kann der Kunde nur ungläubig auf den Bildschirm starren und irgendwann den Stecker ziehen.

Meine Frage: Geht das besser? Außer weniger schlecht programmieren?

Speziell festzustellen ob der Hauptthread hängt sollte kein Problem sein. Meine Frage wäre nur: Wie komme ich an den Stack? Im Debugger kann ich einfach sagen "Verbinde mit Prozess", halte die Anwendung an, und schaue wo er grade hängt. Wie würde man das in einer laufenden Anwendung machen? Kurz anhalten, irgendwie die Aufrufreihenfolge feststellen, loggen, weitermachen.

// Update

Alles klar, langsam werde ich wach. War doch einfacher als gedacht

zusammenfalten · markieren

Delphi-Quellcode:

			uses JclDebug;

procedure TForm3.Button2Click(Sender: TObject);

var

   infoList: TJclStackInfoList;

   strings: TStrings;

begin

   infoList := JclDebug.JclCreateThreadStackTrace(True, myThread.Handle);

   strings := TStringList.Create();

   try

      infoList.AddToStrings(strings);

      Memo1.Lines.Assign(strings);

   finally

      strings.Destroy();

   end;

end;

So zumindest kann ich den Stack eines anderen Threads auslesen. Wird von einem "Watchdog"-Thread welcher den Stack des Hauptthreads auslesen möchte wohl genauso funktionieren

Kann mein Programm "merken" wo es sich aufgehängt hat?

Kann mein Programm "merken" wo es sich aufgehängt hat?

Forumregeln