unbekanntes Speicherleck (BDE / MS-SQL)

[PT_Spawn]

Hallo liebe Community,


da die Boardsuche meinem doch recht individuellem Problem nicht zu Rande kam, schilder ich Euch mal, was das genaue Problem bei meiner Datenbankanbindung ist...

Ich habe eine umfangreiche Funktion zum archivieren und wiederherstellen einer Tabelle entworfen, die zu meiner Zufreidenheit sehr effizient arbeitet... zumindest beim Archivieren bleibt die Speicherlast konstant bei 9 MB. Beim Wiederherstellen erhöht sich der Speicherbedarf trotz ".Free" aller Komponenten jedes mal um ca 120 MB

Ein Teil dieser Funktion ist es, SQL-Abfragen für ein TQuery.SQL aufzubereiten. Bei dieser unterfunktion, die ich liebevoll "VerifyData" genannt habe, werden die Parameter validiert, um die Datenbankkompatibilität zu erhöhen!


Hier einmal die besagte Funktion... die beiden auskommentierten Bereiche habe ich mal auseinander genommen, um zu sehen, ob es an dem "IN()" liegt - ohne erfolg.

Der Code zwischen den "{ extra attendance }" ist der Code, welcher nur beim wiederherstellen einer Tabelle genutzt wird, um die Querverweise wiederherzustellen. Genau dieser Code scheint auch für das massive Speicherfressen verantwortlich zu sein:

Delphi-Quellcode:

function TMyDBActions.VerifyData(aField : TField; TableID : String) : String;
 var temp : String;
begin
  Result := '';
{ extra attendance }
  If TableID = 'TagesLeistungen21' then
  try
    DBCheckQuery.SQL.Clear;
    {DBCheckQuery.SQL.Add(Format(
      'SELECT ProjektNummer, Bereich FROM TeilProjekte' + #13#10 +
      'WHERE PK_TProjekt IN (SELECT PK_TProjekt FROM TagesLeistungen WHERE PK_TagLeistung = %s)',
      [DBQueryArchive.Fields[0].AsString]));
    DBCheckQuery.Open;
    DBCheckQuery.First;
    Result := Format('(SELECT MIN(PK_TProjekt) FROM TeilProjekte WHERE ProjektNummer=%s AND Bereich=%s)',
                [VerifyData(DBCheckQuery.Fields[0]), VerifyData(DBCheckQuery.Fields[1])]);
    DBCheckQuery.Close;}
    DBCheckQuery.SQL.Add('SELECT MIN(PK_TProjekt) FROM TagesLeistungen WHERE PK_TagLeistung = ' +
                          DBQueryArchive.Fields[0].AsString);
    DBCheckQuery.Open;
    DBCheckQuery.First;
    temp := DBQueryArchive.Fields[0].AsString;
    DBCheckQuery.Close;
    DBCheckQuery.SQL.Clear;
    DBCheckQuery.SQL.Add('SELECT ProjektNummer, Bereich FROM TeilProjekte' + #13#10 +
                         'WHERE PK_TProjekt = ' + temp);
    DBCheckQuery.Open;
    DBCheckQuery.First;
    Result := Format('(SELECT MIN(PK_TProjekt) FROM TeilProjekte WHERE ProjektNummer=%s AND Bereich=%s)',
                [VerifyData(DBCheckQuery.Fields[0]), VerifyData(DBCheckQuery.Fields[1])]);
    DBCheckQuery.Close;
    exit;
  except
    on E: Exception do
    begin
      Result := '-1';
      DoLog('Validierung: (' + TableID + ') - ' + E.Message, 11);
      DoLog('Validierung: >Query:' + DBCheckQuery.SQL.Text, 11);
    end;
  end;
  If TableID = 'TagesLeistungen31' then
  try
    DBCheckQuery.SQL.Clear;
    {DBCheckQuery.SQL.Add(Format(
      'SELECT LeistungsNr, Bereich FROM TeilLeistungen' + #13#10 +
      'WHERE PK_TLeistung IN (SELECT PK_TLeistung FROM TagesLeistungen WHERE PK_TagLeistung = %s)',
      [DBQueryArchive.Fields[0].AsString]));
    DBCheckQuery.Open;
    DBCheckQuery.First;
    Result := Format('(SELECT MIN(PK_TLeistung) FROM TeilLeistungen WHERE LeistungsNr=%s AND Bereich=%s)',
                [VerifyData(DBCheckQuery.Fields[0]), VerifyData(DBCheckQuery.Fields[1])]);
    DBCheckQuery.Close;}
    DBCheckQuery.SQL.Add('SELECT MIN(PK_TLeistung) FROM TagesLeistungen WHERE PK_TagLeistung = ' +
                          DBQueryArchive.Fields[0].AsString);
    DBCheckQuery.Open;
    DBCheckQuery.First;
    temp := DBQueryArchive.Fields[0].AsString;
    DBCheckQuery.Close;
    DBCheckQuery.SQL.Clear;
    DBCheckQuery.SQL.Add('SELECT LeistungsNr, Bereich FROM TeilLeistungen' + #13#10 +
                         'WHERE PK_TLeistung = ' + temp);
    DBCheckQuery.Open;
    DBCheckQuery.First;
    Result := Format('(SELECT MIN(PK_TLeistung) FROM TeilLeistungen WHERE LeistungsNr=%s AND Bereich=%s)',
                [VerifyData(DBCheckQuery.Fields[0]), VerifyData(DBCheckQuery.Fields[1])]);
    DBCheckQuery.Close;
    exit;
  except
    on E: Exception do
    begin
      Result := '-1';
      DoLog('Validierung: (' + TableID + ') - ' + E.Message, 11);
      DoLog('Validierung: >Query:' + DBCheckQuery.SQL.Text, 11);
    end;
  end;
{ extra attendance }

  if aField.DataType = ftInteger then
    Result := aField.AsString
  else
  if aField.DataType = ftFloat then
    Result := StringReplace(aField.AsString, ',', '.', [rfReplaceAll])
  else
    Result := #39 + aField.AsString + #39;
end;

ergenzend: Create der Query

Delphi-Quellcode:

    DBQuery := TQuery.Create(Self);
    DBQuery.SessionName  := DBSession.SessionName;
    DBQuery.DatabaseName := DBOrig;
    DBQuery.UniDirectional := True;
    DBQuery.CacheBlobs := False;
    //DBQuery.CachedUpdates := False;
    //DBQuery.RequestLive := False;

ergenzend: Destroy der Query
    DBQuery.Free;
Danke schonmal für Eure Hilfe!

Liebe Grüße, Spawn

[mkinzler]

Lass mal des .Free weg

[PT_Spawn]

ändert an der Speicherlast nichts ... und Freigeben muss ich doch, wenn ich die Prozedur sauber abschließen möchte... oder?

[mkinzler]

Zitat:

.. und Freigeben muss ich doch, wenn ich die Prozedur sauber abschließen möchte... oder?

Die Form ist ja der Besitzer und erledigt das für dich oder wird der Query öfters ausgeführt?

[PT_Spawn]

Zitat von mkinzler:

Zitat:

.. und Freigeben muss ich doch, wenn ich die Prozedur sauber abschließen möchte... oder?

Die Form ist ja der Besitzer und erledigt das für dich oder wird der Query öfters ausgeführt?

Ja richtig... das Createn der Query geschieht beim Starten der Applikation und das Destroyen wird nach dem Vorgang ausgeführt.


Das Problem mit dem Speicherleck bleibt aber weiterhin bestehen... und es tritt nur auf, wenn beim Wiederherstellen der Extracode ausgeführt wird

Delphi-Quellcode:

{ extra attendance }
  If TableID = 'TagesLeistungen21' then
  try
    DBCheckQuery.SQL.Clear;
    {DBCheckQuery.SQL.Add(Format(
      'SELECT ProjektNummer, Bereich FROM TeilProjekte' + #13#10 +
      'WHERE PK_TProjekt IN (SELECT PK_TProjekt FROM TagesLeistungen WHERE PK_TagLeistung = %s)',
      [DBQueryArchive.Fields[0].AsString]));
    DBCheckQuery.Open;
    DBCheckQuery.First;
    Result := Format('(SELECT MIN(PK_TProjekt) FROM TeilProjekte WHERE ProjektNummer=%s AND Bereich=%s)',
                [VerifyData(DBCheckQuery.Fields[0]), VerifyData(DBCheckQuery.Fields[1])]);
    DBCheckQuery.Close;}
    DBCheckQuery.SQL.Add('SELECT MIN(PK_TProjekt) FROM TagesLeistungen WHERE PK_TagLeistung = ' +
                          DBQueryArchive.Fields[0].AsString);
    DBCheckQuery.Open;
    DBCheckQuery.First;
    temp := DBQueryArchive.Fields[0].AsString;
    DBCheckQuery.Close;
    DBCheckQuery.SQL.Clear;
    DBCheckQuery.SQL.Add('SELECT ProjektNummer, Bereich FROM TeilProjekte' + #13#10 +
                         'WHERE PK_TProjekt = ' + temp);
    DBCheckQuery.Open;
    DBCheckQuery.First;
    Result := Format('(SELECT MIN(PK_TProjekt) FROM TeilProjekte WHERE ProjektNummer=%s AND Bereich=%s)',
                [VerifyData(DBCheckQuery.Fields[0]), VerifyData(DBCheckQuery.Fields[1])]);
    DBCheckQuery.Close;
    exit;
  except
    on E: Exception do
    begin
      Result := '-1';
      DoLog('Validierung: (' + TableID + ') - ' + E.Message, 11);
      DoLog('Validierung: >Query:' + DBCheckQuery.SQL.Text, 11);
    end;
  end;
  If TableID = 'TagesLeistungen31' then
  try
    DBCheckQuery.SQL.Clear;
    {DBCheckQuery.SQL.Add(Format(
      'SELECT LeistungsNr, Bereich FROM TeilLeistungen' + #13#10 +
      'WHERE PK_TLeistung IN (SELECT PK_TLeistung FROM TagesLeistungen WHERE PK_TagLeistung = %s)',
      [DBQueryArchive.Fields[0].AsString]));
    DBCheckQuery.Open;
    DBCheckQuery.First;
    Result := Format('(SELECT MIN(PK_TLeistung) FROM TeilLeistungen WHERE LeistungsNr=%s AND Bereich=%s)',
                [VerifyData(DBCheckQuery.Fields[0]), VerifyData(DBCheckQuery.Fields[1])]);
    DBCheckQuery.Close;}
    DBCheckQuery.SQL.Add('SELECT MIN(PK_TLeistung) FROM TagesLeistungen WHERE PK_TagLeistung = ' +
                          DBQueryArchive.Fields[0].AsString);
    DBCheckQuery.Open;
    DBCheckQuery.First;
    temp := DBQueryArchive.Fields[0].AsString;
    DBCheckQuery.Close;
    DBCheckQuery.SQL.Clear;
    DBCheckQuery.SQL.Add('SELECT LeistungsNr, Bereich FROM TeilLeistungen' + #13#10 +
                         'WHERE PK_TLeistung = ' + temp);
    DBCheckQuery.Open;
    DBCheckQuery.First;
    Result := Format('(SELECT MIN(PK_TLeistung) FROM TeilLeistungen WHERE LeistungsNr=%s AND Bereich=%s)',
                [VerifyData(DBCheckQuery.Fields[0]), VerifyData(DBCheckQuery.Fields[1])]);
    DBCheckQuery.Close;
    exit;
  except
    on E: Exception do
    begin
      Result := '-1';
      DoLog('Validierung: (' + TableID + ') - ' + E.Message, 11);
      DoLog('Validierung: >Query:' + DBCheckQuery.SQL.Text, 11);
    end;
  end;
{ extra attendance }

Grüße, Spawn

[mkinzler]

Ja kler, beim 2. Verwenden des Queries besteht er dann ja nicht mehr

[PT_Spawn]

Zitat von mkinzler:

Ja kler, beim 2. Verwenden des Queries besteht er dann ja nicht mehr

Ich verwende die Query (insgesamt 3 Stück ... 2 involvierte Datenbanken) mehrere 1000 mal ... beim Archivieren sowie beim Wiederherstellen...

Freigegeben werden diese erst, wenn die Prozedur Fertiggestellt wurde...

[mkinzler]

Ich würde mal
-andere Komponenenten nehmen
-Parameter verwenden

[Bernhard Geyer]

Zitat von mkinzler:

Ich würde mal
-andere Komponenenten nehmen
-Parameter verwenden

ich wollte nicht der Erste sein: Bei MS SQL-Server bieten sich ja mindestens die mitgelieferten ADOExpress-Komponenten an ...

[PT_Spawn]

Zitat von Bernhard Geyer:

Zitat von mkinzler:

Ich würde mal
-andere Komponenenten nehmen
-Parameter verwenden

ich wollte nicht der Erste sein: Bei MS SQL-Server bieten sich ja mindestens die mitgelieferten ADOExpress-Komponenten an ...

Die BDE würde ich auch nicht freiwillig nutzen... leider gehört das zur Anforderung an das Zielsystem...

Wenn ich das nun garnicht in den Griff bekomme, dann werde ich zwangsläufig alles mit ADO programmieren...

Zitat von mkinzler:

[...]
-Parameter verwenden

Was genau für Parameter währen da anzubringen?


Lg, Spawn