Delphi 2009 - Programm hängt manchmal beim beenden

[s.h.a.r.k]

Hier nochmal eine Aktualisierung des Problems auf einen sehr minimalen Quellcode. Ich habe eine Form und ein Memo darauf, samt einem Button zum Anstoßen dieses Codes. Was machst das Ding? Es stellt eine Verbindung zu einer dBase-Datenbank her, welche ja nur über den Pfadnamen angegeben ist, liest die verfügbaren Tabellen aus und gibts diese aus. Danach wird die Verbindung wieder abgebaut und gut is.

Delphi-Quellcode:

var
  conn : TADOConnection;
  list : TStringList;
begin
  conn := TADOConnection.Create(nil);
  list := TStringList.Create();
  try
    conn.ConnectionString := 'Provider=MSDASQL.1;Persist Security Info=False;Data Source=dBASE Files;Mode=Read';
    conn.DefaultDatabase := DBASE_DIRECTORY; // this constant represents a path on the hdd
    conn.Connected := True;
    conn.GetTableNames(list);
    Memo1.Text := list.Text;
  finally
    conn.Connected := False;
    FreeAndNil(conn);
    FreeAndNil(list);
  end;
end;

Die Anwendung hängt sich bei mir nur dann auf, wenn die Delphi IDE diese im Debug-Mode ausgeführt hat. Starte ich diese ganz normal über den Explorer funktioniert alles wunderbar. Die Zeile conn.Connected := True; macht das Problem, nur was genau kann ich leider nicht sagen.
Ich sollte auch noch dazu sagen, dass innerhalb der GetTableNames() -Methode ein TADODataSet erzeugt, damit gearbeitet und freigegeben wird.

[Codewalker]

Ich habe ein ähnliches Problem, aber ohne Verwendung von Datenbankkomponenten. Es sind zwar eine Reihe von Komponenten mit dabei (JVCL, Andorra2D, etc.) - aber der Fehler ist auch nicht wirklich reproduzierbar. Manchmal beende ich das Programm und dann hängt Delphi und es dauert teilweise 20 Sekunden, bis der Debugger den Prozess wirklich schließt und Delphi wieder reagiert. Starte ich das Programm danach erneut und mache genau das gleiche kann es sein, dass es zu keinem Hänger kommt.
Wie würdet ihr so einen Fehler finden? Es bremst einen wirklich übelst beim Programmieren...

Edit: Habe auch mal alle .dcu-Dateien etc. gelöscht -> kein Effekt

[Codewalker]

*Push*
Bin bisher nicht weitergekommen - hat keiner eine Idee?

[Schorschi5566]

Hallo Codewalker,

auch wenn der Fehler nicht zu reproduzieren ist, musst Du ihn irgendwie eingrenzen.

Oder hängt Dein Programm auch, wenn Du gar nichts tust?

Unter welchen Umständen tritt das Problem auf? Tritt es auch ohne Delphi auf?

Wenn Du einen bestimmten Codeblock im Verdacht hast, versuche ihn mal wegzulassen oder mit anderem Code zu ersetzen oder natürlich zu debuggen.

Dann wirst Du dem Problem schon auf die Spur kommen.

Benutzt Du eigene Pointer? Wenn Delphi solche "Kunstpausen" macht, war es bei mir schon häufig so, dass ich irgendwo ganz übel im Speicher rumgemalt hatte.


Grüße,
Uwe

[Codewalker]

Zitat von Schorschi5566:

Oder hängt Dein Programm auch, wenn Du gar nichts tust?

Nein, es geht ja darum, dass - wenn ich mein Programm beende - der Prozess nicht geschlossen wird. Und solange der Prozess läuft, kehrt der Debugger nicht zurück. Deswegen habe ich auch keinen Codeteil im Verdacht, weil das Debuggen da eigentlich schon vorbei ist. Ist habe in der Zwischenzeit mal AQTime benutzt und wollte herausfinden, wo er so lange verweilt, aber auch AQTime beendet die Zeitmessung vorher.

Zitat von Schorschi5566:

Unter welchen Umständen tritt das Problem auf?

Keine Ahnung, passiert wahllos in ca. 40% der Fälle.

Zitat von Schorschi5566:

Tritt es auch ohne Delphi auf?

Ja, aber dann fällt es nicht auf, weil es kein Fenster oder ähnliches gibt, sondern der Prozess nur noch für einige Sekunden im TaskManager zu sehen ist. Aber beim Debuggen ist das halt viel nerviger.

Zitat von Schorschi5566:

Benutzt Du eigene Pointer? Wenn Delphi solche "Kunstpausen" macht, war es bei mir schon häufig so, dass ich irgendwo ganz übel im Speicher rumgemalt hatte.

Ich nicht, aber Andorra nutzt einige Konstrukte, um dynamisch mit Plugins arbeiten zu können. Das war aber bisher nie ein Problem.

Ich werde einfach mal in alle Units im finalization-Abschnitt ein OutputDebugString einbauen und dann mal sehen, wo ich überall ankomme. Evtl. hilft das weiter.

[blackfin]

Das Problem habe ich auch manchmal...eine definierte Lösung habe ich dafür auch noch nicht gefunden.
Ich weiss nur, woran es ungefähr liegt, falls es bei dir auch um eine 3D-Applikation geht: Manchmal braucht der Treiber der Grafikkarte irgendwie unverschämt lange, um den Rendering Context zu deaktivieren. Manchmal ja, manchmal nein.
Ich habe bei mir das ganze schonmal runtergetrackt und gesehen, dass da anscheinend noch der Graka-Treiber Aufräumarbeiten tätigt, und das bei mir teilweise bis zu einer Minute!!!
Ich würde das auch gerne loswerden, da es wirklich nervt! Allerdings habe ich festgestellt, dass das teilweise auch bei kommerziellen Spielen auftritt, dass es ewig dauert, bis das Spiel endlich beendet wird.

[Codewalker]

Das klingt treffend. Ich habe das in zwei Projekte, eines mit Andorra (definitiv mit 3D-Beschleunigung) und in einer Filmverwaltung mit CoverFlow (von TMsSoftware), dass auch eine DirectX-Surface nutzt. Von daher könnte genau dass bei mir auch die Ursache sein.
Einerseits beruhigt es mich ja, dass ich keinen Blödsinn programmiert habe, aber andererseits kann man dagegen auch nichts tun.
Vielen Dank für den Hinweis