AnyDAC (FireDAC) - Exception beim schließen einer TADConnection

[MichaelT]

Was passiert wenn du die BDE Connection nicht zumachst dasselbe oder du die zwei Statements umgekehrt anordnest?

Entlädt die BDE beim Connection Close die Client Library?

Der Fehler kam mir bestenfalls in multi-threaded Szenarien unter oder wenn es mit der Client Library was hat (aber an letzteres glaube ich so mal nicht).

Zitat von Cashew:

Hallo zusammen,

wir sind gerade dabei unsere Delphi 7 Anwendung von der BDE Komponente auf die AnyDAC 8.0.5 (FireDAC) Komponente umzustellen...


Hat jemand schon mal diesen Fehler? Oder eine Idee woher der Fehler kommen könnte?

[Cashew]

Vielen Dank für die Antworten ...

@MEissing
Die AnyDAC hat bereits die Property DataSetCount.
Ich werde beim Schließen der Datenbankverbindungen jetzt eine Protokollierung einbauen, die über den DataSetCount prüft, ob noch Verbindungen offen sind...

@MichaelT
Bei dieser Exception habe ich leider das Problem, dass ich bisher keine Konstellation hinbekommen habe, in der der Fehler zuverlässig auftritt ...
Ich werde daher mal die Reihenfolge vom Schließen der Datenbankverbindungen, wie von Dir vorgeschlagen, umkehren... D. h. zuerst die AnyDac (FireDAC) Datenbankverbindungen schließen und dann die BDE Datenbankverbindungen ...


Könnte es auch sein das der ADManager Probleme macht? Würde es eventuell mein Problem lösen, wenn ich vor dem Schließen der AnyDAC (FireDAC) Datenbankverbindungen den ADManager deaktiviere:

Delphi-Quellcode:

procedure TfrmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  [...]
  ADManager.Active := False;
  //--------------------------------------------------------------------
  try
    dacConnection.Connected := False;
  except
    on e:exception do
      MessageDlg('dacConnection' + #13#10 + e.message, mtError, [mbOK], 0);
  end;
  //--------------------------------------------------------------------
  try
    BDEConnection.Connected := False;
  except
    on e:exception do
      MessageDlg('BDEConnection' + #13#10 + e.message, mtError, [mbOK], 0);
  end;
  [...]
end;

[MichaelT]

Einfach probieren und rückmelden. Es wäre interessant ob die Client Library überhaupt entladen wird.

Dann müsste die BDE fliegen meiner Vermutung nach.

Ob das überhaupt parallel so friktionsfrei geht, kann ich mich nicht mehr erinnern. Ich habe BDE nie benutzt. Die Support Anfragen aus Zeiten von AnyDAC sind Jahre her. Ich kann mich erinnern, dass es mal was gab in die Richtung, aber nicht mehr mit welcher Version.

Die Interfaces auf der in der Meldung verwiesen wird sind jene auf mehrere Connections im Fall bspw. von Multithreading gegenüber einem Oracle Session Pool werden gehalten.

Die dürften dich im Normalfall gar nicht berühren. Weswegen eher der Verdacht nahe liegt, dass es irgendetwas mit der An- resp. Abwesenheit der Client DLL zu tun hat.

Zitat von Cashew:

Vielen Dank für die Antworten ...

@MEissing
Die AnyDAC hat bereits die Property DataSetCount.
Ich werde beim Schließen der Datenbankverbindungen jetzt eine Protokollierung einbauen, die über den DataSetCount prüft, ob noch Verbindungen offen sind...

@MichaelT
Bei dieser Exception habe ich leider das Problem, dass ich bisher keine Konstellation hinbekommen habe, in der der Fehler zuverlässig auftritt ...
Ich werde daher mal die Reihenfolge vom Schließen der Datenbankverbindungen, wie von Dir vorgeschlagen, umkehren... D. h. zuerst die AnyDac (FireDAC) Datenbankverbindungen schließen und dann die BDE Datenbankverbindungen ...


Könnte es auch sein das der ADManager Probleme macht? Würde es eventuell mein Problem lösen, wenn ich vor dem Schließen der AnyDAC (FireDAC) Datenbankverbindungen den ADManager deaktiviere:

Delphi-Quellcode:

procedure TfrmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  [...]
  ADManager.Active := False;
  //--------------------------------------------------------------------
  try
    dacConnection.Connected := False;
  except
    on e:exception do
      MessageDlg('dacConnection' + #13#10 + e.message, mtError, [mbOK], 0);
  end;
  //--------------------------------------------------------------------
  try
    BDEConnection.Connected := False;
  except
    on e:exception do
      MessageDlg('BDEConnection' + #13#10 + e.message, mtError, [mbOK], 0);
  end;
  [...]
end;

[Cashew]

Zitat von MichaelT:

Was passiert wenn du die BDE Connection nicht zumachst dasselbe oder du die zwei Statements umgekehrt anordnest?

Entlädt die BDE beim Connection Close die Client Library?

Noch eine Nachfrage zu dem Thema... Wenn die BDE die Client Library entlädt, dann müsste ich doch immer die Exception bekommen, oder seh ich das falsch?

[MichaelT]

Ja. Du bekommst die Exception nicht immer?

Zitat von Cashew:

Zitat von MichaelT:

Was passiert wenn du die BDE Connection nicht zumachst dasselbe oder du die zwei Statements umgekehrt anordnest?

Entlädt die BDE beim Connection Close die Client Library?

Noch eine Nachfrage zu dem Thema... Wenn die BDE die Client Library entlädt, dann müsste ich doch immer die Exception bekommen, oder seh ich das falsch?

[Cashew]

Zitat von MichaelT:

Ja. Du bekommst die Exception nicht immer?

Nein, ich konnte bisher noch nicht nachvollziehen wann der Fehler auftritt... Sorry hatte ich in meinem ersten Post nicht erwähnt, ich werds noch ergänzen...

[hoika]

Hallo,
die BDE entlädt die Dll nicht, das macht Windows.
Und erst, wenn alle Programme sie per FreeLibrary freigeben haben.

Denke ich mal vorsichtig.


Warum Disconnectest Du dich überhaupt?
Das macht doch die TAdConnection selber.

[Cashew]

@MichaelT
Vielen Dank für deine detailierten Infos... Aufgrund von anderen Problemen bin ich gestern leider nicht dazu gekommen das Thema weiter zu verfolgen...

Wie bereits erwähnt habe ich in unseren Anwendung die folgenden Änderungen vorgenommen:

• Geänderte Reihenfolge beim Schließen der Datenbankverbindungen (zuerst AnyDAC/FireDAC dann BDE). Ergebnis: Exception kommt immer noch
• Protokollierung zum prüfen des <TADConnection>.DataSetCounts eingefügt. Ergebnis: Exception kommt immer noch und die DataSetCounts sind = 0, bei beiden <TADConnections>

Ich werd mich jetzt dann mal ins InternalClose reinhängen wie von dir Empfohlen...


@hoika
Naja, gehört doch eigentlich dazu das man seine Connections schließt wenn man sie öffnet?!

[hoika]

Hallo,
ja, eigentlich schon

Aber: Was passiert denn, wenn Du Dein Close/Free wegläßt, kommt dann immer noch die Exception?

Prinzipell sollte man natürlich alles schließen, was man selbst geöffnet hat.
Ich würde mal ein leeres Projekt mit ausschließlich dem BDE-Open/Connect FD-Open/Connect und dem Close/Free machen.
Meistens ist es nämlich eine andere Stelle, die das Problem verursacht und nur zufällig im Close/Free den Fehler erzeugt,
z.B. doppeltes Free oder irgend eine andere Speicherverletzung.

Du solltest mal FastMM4 auf Dein Programm loslassen, um sowas zu prüfen.