Zeos Query - too many connections

[bl3nder]

Also das ganze FastMM hat mir bisher nicht weitergeholfen.

Ich habe eine Lösung gefunden, allerdings dauert eine Datenbankabfrage laenger als normal, aber immerhin laeuft es so

Delphi-Quellcode:

procedure TDatabase.Disconnect;
begin
  FSqlConnection.Disconnect;
end;

//..





//..
  while not FCQuery.EOF do
begin
//..
    if (FCQuery.FieldByName('DockingstationID').AsInteger > 0) then
      begin
        FMyDSearch := TDockingstationSearch.Create;
        FMyDCriteria := TDockingstationAttributes.Create;
        // Search for the dockingstation that is used by the computer
        FMyDCriteria.SetID(
          FCQuery.FieldByName('DockingstationID').AsInteger);
        FDList := FMyDSearch.DBSearch('vague',FMyDCriteria);
        // Create the dockingstation object for the computer object
        FMyDockingstation := FDList[0] as Model.TDockingstation;

        FMyDSearch.Disconnect;
        FMyDSearch.Free;
      end;
end;
//..

FMyDSearch.Disconnect; ..