D11 : Programm hängt zieht 25% CPU bei UI Aktualisierung

[stalkingwolf]

[QUOTE=Michael II;1517910][QUOTE=stalkingwolf;1517904]

Zitat von Michael II:

Zitat von stalkingwolf:

Und das mit dem "Hänger". Hast du nun mal mit Eurekalog gecheckt, was aufgezeichnet worden ist?

ich habe die Einstellung nicht gefunden.

Die Einstellung findest du natürlich erst, nachdem du Eurekalog installierst hast.

das erklärt es
Ich hab es eingebunden und aktiv.

Nun erhalte ich im Programm die Meldung "Datenbank ist nicht zugewiesen." Mit der Option das Programm zu beenden und mir eine Meldung anzuzeigen.
Bei allem hängt danach das Programm komplett und nichts passiert mehr.

[Jasocul]

Zitat von stalkingwolf:

Nun erhalte ich im Programm die Meldung "Datenbank ist nicht zugewiesen." Mit der Option das Programm zu beenden und mir eine Meldung anzuzeigen.
Bei allem hängt danach das Programm komplett und nichts passiert mehr.

Das klingt für mich nach zwei Fehlern.
DB nicht zugewiesen muss nicht bedeuten, dass die Meldung den korrekten Fehler meldet. Es könnte auch sein, dass eine Einstellung nicht korrekt ist und erstmal versucht wird, an die DB zu kommen (Programm hängt).
Wenn die Zuweisung der DB oder deren Einstellung im OnCreate gemacht wird: Siehe den Beitrag von himitsu über OldCreateOrder.
In Kombination dieser Fehler könnte das beschriebene Verhalten entstehen.

Windows-Messaging-Probleme würde ich allerdings auch nicht ausschließen. iirc kann da auch die exzessive Nutzung von ProcessMessages mit reinspielen.

[stalkingwolf]

Zitat von Jasocul:

Zitat von stalkingwolf:

Nun erhalte ich im Programm die Meldung "Datenbank ist nicht zugewiesen." Mit der Option das Programm zu beenden und mir eine Meldung anzuzeigen.
Bei allem hängt danach das Programm komplett und nichts passiert mehr.

Das klingt für mich nach zwei Fehlern.
DB nicht zugewiesen muss nicht bedeuten, dass die Meldung den korrekten Fehler meldet. Es könnte auch sein, dass eine Einstellung nicht korrekt ist und erstmal versucht wird, an die DB zu kommen (Programm hängt).
.

D.h die Meldung ist nicht von dem EurkaLog sondern aus dem Programm?

[Jasocul]

Zitat von stalkingwolf:

D.h die Meldung ist nicht von dem EurkaLog sondern aus dem Programm?

Ich habe Eurekalog noch nie verwendet, aber ich könnte mir vorstellen, dass das eine Exception anzeigt, die innerhalb der Anwendung verdeckt wurde:

Delphi-Quellcode:

try
  // Mache irgendwas
except
  // keine Behandlung der Exception
end;

Aber das ist jetzt nur geraten.

[Michael II]

Zitat von stalkingwolf:

Nun erhalte ich im Programm die Meldung "Datenbank ist nicht zugewiesen." Mit der Option das Programm zu beenden und mir eine Meldung anzuzeigen.
Bei allem hängt danach das Programm komplett und nichts passiert mehr.

In den Optionen von Eurekalog (Delphi IDE > Projekt > Eurekalog, dann dort unter "Bug report" kannst du angeben wo deine App die Problemmeldungen speichern soll, zum Beispiel %AppData%\<MEINEAPP>\Eurekalog\
Geh nach dem Testen deiner App in diesen Ordner und öffne einen Report, klick oben in Report Fenster auf Stack Trace. Klick auf eine der Zeilen; Delphi wird geöffnet und zeigt dir die Stelle im Code an.
(Bei Hänger Problemen - zum Beispiel wegen Misshandlung der Windows Warteschlange - siehst du immerhin, was gerade so lief; bei echten Exceptions hilft's natürlich noch mehr.)

...und lösch zuerst alle ProcessMessages aus deinem Code .

[stalkingwolf]

Zitat von Michael II:

Zitat von stalkingwolf:

Nun erhalte ich im Programm die Meldung "Datenbank ist nicht zugewiesen." Mit der Option das Programm zu beenden und mir eine Meldung anzuzeigen.
Bei allem hängt danach das Programm komplett und nichts passiert mehr.

In den Optionen von Eurekalog (Delphi IDE > Projekt > Eurekalog, dann dort unter "Bug report" kannst du angeben wo deine App die Problemmeldungen speichern soll, zum Beispiel %AppData%\<MEINEAPP>\Eurekalog\
Geh nach dem Testen deiner App in diesen Ordner und öffne einen Report, klick oben in Report Fenster auf Stack Trace. Klick auf eine der Zeilen; Delphi wird geöffnet und zeigt dir die Stelle im Code an.
(Bei Hänger Problemen - zum Beispiel wegen Misshandlung der Windows Warteschlange - siehst du immerhin, was gerade so lief; bei echten Exceptions hilft's natürlich noch mehr.)

...und lösch zuerst alle ProcessMessages aus deinem Code .

Eurekalog legt mir keine Logs bei dem Ablauf an. Nur wenn ich einen Fehler produziere.
Was mir nun noch aufgefallen ist. Die Messagedlg sind unsichtbar welche angezeigt werden. Erst mit ALT+TAB sieht man diese und das auch nur, wenn man sein Hauptfenster zur Seite schiebt. Die sind dann auch bedienbar.

Das Projekt ist aus meiner Sicht nicht mehr zu retten und kostet mich gerade viel zu viel Zeit.
Ich werde das Projekt am Montag neu aufsetzen. Evtl bekomme ich dadurch raus was genau klemmt. Ich berichte.

Dennoch vielen Dank für die ganzen Infos. Vor allem für genannten Tools welche sehr interessant sind.

[Michael II]

Hast du wie in #8 erwähnt in Eurekalog die "hang detection" eingeschaltet?
Dann sollte es loggen.

Also so:
Delphi IDE Menu Projekt > Eurekalog Optionen unter "Features > Hang Detection" "gewünschte" Zeit einstellen.

Ich habe fertig - Flasche leer. Viel Glück beim neu Aufsetzen.

[stalkingwolf]

Zitat von Michael II:

Hast du wie in #8 erwähnt in Eurekalog die "hang detection" eingeschaltet?
Dann sollte es loggen.

Also so:
Delphi IDE Menu Projekt > Eurekalog Optionen unter "Features > Hang Detection" "gewünschte" Zeit einstellen.

Ich habe fertig - Flasche leer. Viel Glück beim neu Aufsetzen.

ja habe ich. auf 4sek ( Standardeinstellung )

[stalkingwolf]

Ok habe das Projekt heute "neu" gemacht.

Ich habe ein neues Projekt eröffnet und die Main Form erstellt.
Habe dann alle UI Elemente der Mainform aus dem kaputten Projekt rüber kopiert und die nötigsten Quellcode Anpassungen durchgeführt damit das Programm läuft.

Zum Kunden übertragen und alles funktioniert.
Danach habe ich alle 35 weiteren Units eingebunden. Gleiche Test und funktioniert immer noch.
Danach den gesamten Quellcode der Main Unit als dem alten Projekt rüber kopiert und die ganzen Eigenschaften in der Mainform per Hand gesetzt.

Programm läuft nun einwandfrei.

D.h das einzige was nun anders ist, das ist Form1. Ich weiß immer noch nicht woran es lag. Aber Projekt läuft und mein Chef fragt mich nicht mehr 5x am Tag was Sache ist