TForm: Close verzögert?

[haentschman]

Hallöle...

Ich habe eine Anmeldeform welche von der Businesslogik angezeigt wird. Wenn vom Transponder gelesen wurde (DoOnReadTransponder), soll die Form geschlossen werden. Nur braucht die Form zum Schließen ca. 3 Sekunden!

Früher habe ich die Transponderlogik in der Businesslogik gehabt. Über FLoginForm.Close sollte die Form geschlossen werden. Nur das Beenden des ShowModal wurde 3 Sekunden später ausgeführt. Nun habe ich die Transponderlogik in die Anmeldeform verlegt. Das gleiche Spiel!

Zeilen (siehe Bilder)
179: sofort nach dem Lesen des Transponders. Bis 185 vergehen Milisekunden.
391: in FormClose vergehen bis 395 nur Millisekunden.
...aber zwischen 185 und 391 vergehen ca. 3 Sekunden!

PS: alle Logik ist in der Anmeldeform auskommentiert
PS: Wenn ich den Cancel Button betätige (ModalResult := mrCancel) ist die Form sofort weg.
PS: Seattle alle Updates

Jetzt seid ihr dran mir das zu erklären...

[jaenicke]

Um das zu debuggen könntest du einfach mal an der Stelle, die 3 Sekunden dauert, nach 1 Sekunde in Delphi auf Pause drücken. Dann kannst du im Stacktrace einmal schauen wo du da bist. Oft sieht man dann schon die Lösung.

Dauert es denn auch so lange, wenn du direkt Close benutzt statt das ModalResult zu setzen?

[Uwe Raabe]

Zitat von haentschman:

...aber zwischen 185 und 391 vergehen ca. 3 Sekunden!

Dann check mal den Code nach dem Aufruf von DoOnReadTransponder. Das ModalResult wird ja erst nach dem Application.HandleMessage überprüft und in diesem HandleMessage wird ja irgendwann mal das DoOnReadTransponder aufgerufen. Was immer danach kommt dauert halt so lange.

[haentschman]

Danke...

Zitat:

Dauert es denn auch so lange, wenn du direkt Close benutzt statt das ModalResult zu setzen?

...ja.

Zitat:

Dann check mal den Code nach dem Aufruf von DoOnReadTransponder...Was immer danach kommt dauert halt so lange.

...da gibt es keinen Code mehr danach.

Zitat:

PS: alle Logik ist in der Anmeldeform auskommentiert

[Uwe Raabe]

Zitat von haentschman:

Zitat:

Dann check mal den Code nach dem Aufruf von DoOnReadTransponder...Was immer danach kommt dauert halt so lange.

...da gibt es keinen Code mehr danach.

Aber ganz sicher gibt es den! Der ist nämlich für die Zeitverzögerung verantwortlich.

Zeig mal die Routine, in der dieser Event aufgerufen wird.

[haentschman]

Moin...

Zitat:

Aber ganz sicher gibt es den! Der ist nämlich für die Zeitverzögerung verantwortlich.

Ich hasse es wenn du Recht hast. Zu meiner Verteidigung: Die Unit mit der Transponderverarbeitung ist nicht von mir. Nach dem Event, welches ich verarbeite, wurde ein Comport.Open := False und danach ein ComPort.Open := True gemacht.

Zitat:

// ! Wichtig: Schießen und Öffenen

Original Zitat. Ist das bei dem TApdComPort nötig?

Danke an Alle...