Delphi 2009 - Programm hängt manchmal beim beenden

[s.h.a.r.k]

Ich habe nur folgende Klassen im Einsatz: TADOConnection, TADOCommand, TADODataSet. Über diese stelle ich eine Verbindung zu einer dBase und einer Access-Datenbank her.

// edit

TClientDataSet und TADODataSet sind aber beide von der Basisklasse TDataSet abgeleitet.

[bwolf]

Hast du mal getestet ob der Fehler auch kommt wenn das Dataset nicht geöffnet wird?

[s.h.a.r.k]

TADOConnection bietet mit die Methode GetTableNames() an, die intern automatisch ein TADODataSet öffnet und die Tabellennamen aus der DB ausliest. Diese werden dann in eine TWideStringList geschrieben. Wenn ich diesen Aufruf einmal mache, dann klappt das wunderbar, aber kein zweites mal.

Greifst du evtl. über ODBC auf eine Datenbank zu?! Weil ich kurz davor bin, zu glauben, dass es daran liegt.

// edit

Habe mir nur ein Testprojekt geschrieben, welches eine Connection zu einer Access-DB öffnet, ebenso zu einer DBase-DB. Beides läuft über AnyDAC 2.0.17 und ich komme zum gleichen Resultat, wie über die ADO-Komponenten, ergo muss es irgendwie an den Basisklassen liegen. Mal schauen, was sich da noch so zeigen wird...

[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