Thema: Delphi MSSQL Fehler

Einzelnen Beitrag anzeigen

Benutzerbild von haentschman
haentschman

Registriert seit: 24. Okt 2006
Ort: Seifhennersdorf / Sachsen
5.388 Beiträge
 
Delphi 12 Athens
 
#5

AW: MSSQL Fehler

  Alt 3. Nov 2022, 07:51
Moin...

heute morgen hatte ich wieder 2200 Mails gehabt... Es muß die Anwendung sein. Ein Neustart...alles wieder gut.

Ich habe folgendes herausgefunden:
...es bestehen aktuell rund 12000 Connections. (Bild)

Verstehen tue es nicht. Das Modul wird bei Ausführung mit der Datenbank erzeugt und wieder freigegeben.
Delphi-Quellcode:
constructor TTaskDatabase.Create(Preferences: TTaskPreferences);
begin
  FPreferences := Preferences;
  FConnectionE := CreateConnection(ctE);
  FConnectionM := CreateConnection(ctM);
  FConnectionW := CreateConnection(ctW);
  FConnectionD := CreateConnection(ctD);

  FCurrentConnectionType := ctE;
end;

destructor TTaskDatabase.Destroy;
begin
  if Assigned(FConnectionD) then FConnectionD.Free;
  if Assigned(FConnectionW) then FConnectionW.Free;
  if Assigned(FConnectionM) then FConnectionM.Free;
  if Assigned(FConnectionE) then FConnectionE.Free;
  inherited;
end;
Muß man vor dem Free die Connection explizit trennen? Ich dachte das mit dem Free das automatisch erfolgt.

Nachtrag:
Ich habe das Modul gefunden was mit jedem Durchlauf eine neue Connection erzeugt. (Standard = Bild2)
Miniaturansicht angehängter Grafiken
database.png   database_test.png  

Geändert von haentschman ( 3. Nov 2022 um 09:10 Uhr)
  Mit Zitat antworten Zitat