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