• Najnowsze pytania
  • Bez odpowiedzi
  • Zadaj pytanie
  • Kategorie
  • Tagi
  • Zdobyte punkty
  • Ekipa ninja
  • IRC
  • FAQ
  • Regulamin
  • Książki warte uwagi

Delphi [wątki] - ogromne wycieki pamięci po wczytaniu z bazy

VPS Starter Arubacloud
0 głosów
176 wizyt
pytanie zadane 30 stycznia 2017 w Inne języki przez a.kowalczyk47 Nowicjusz (180 p.)
Czesc. Mam problem z czyszczeniem pamięci po wczytaniu z bazy danych 100 tys rekordów ( używam wątku żeby podczas wczytywania nie zatrzymywać głównej formy). Przesylam mój kod zebyście mogli mi pomóc. nie wiem gdzie jest błąd

procedure TWczytywanieADO.Execute;
var
  I : integer;
begin
try
  NameThreadForDebugging('WczytywanieADO');
  { Place thread code here }
  ConnectionString := TMSConnection.Create(nil);
  with ConnectionString do
    begin
      ConnectString := dm.ADOConnectionServer.ConnectString;
      Pooling := true;
    end;

  ado := TMSQuery.Create(nil);
    with ado do
      begin
        try
          NonBlocking := true;
          Connection := ConnectionString;
          SQL.Text := SQLText^;
          FetchAll := true;
          Name := 'IQWatek';

          repeat
            if Formatka^ = nil then
              sleep(60)
            else if (DSource^.DataSet <> NIL) then
              sleep(60)
            else if DSource^.DataSet <> ado then
              begin

                EnterCriticalSection(cls);
                  DSource^.DataSet := ado;
                LeaveCriticalSection(cls);

                Open;
                repeat

                until THGrid^.RowCount > ado.RecordCount - 1;
                  ThGrid^.Enabled := true;
             end;
          until THGrid^.RowCount > ado.RecordCount - 1;
        finally
          EnterCriticalSection(cls);
            DSource^.Enabled := false;
            DSource^.DataSet := nil;
          LeaveCriticalSection(cls);
        end;
      end;
  finally
//    ado.Free;
    DeleteCriticalSection(cls);

    FreeMem(Formatka);
    FreeMem(ThGrid);
    FreeMem(sqltext);
    FreeMem(DSource);
    FreeandNIl(ado);

  end;
end;

Zaloguj lub zarejestruj się, aby odpowiedzieć na to pytanie.

Podobne pytania

0 głosów
1 odpowiedź 372 wizyt
0 głosów
2 odpowiedzi 447 wizyt
+1 głos
2 odpowiedzi 1,011 wizyt

92,452 zapytań

141,262 odpowiedzi

319,077 komentarzy

61,854 pasjonatów

Motyw:

Akcja Pajacyk

Pajacyk od wielu lat dożywia dzieci. Pomóż klikając w zielony brzuszek na stronie. Dziękujemy! ♡

Oto polecana książka warta uwagi.
Pełną listę książek znajdziesz tutaj.

Akademia Sekuraka

Akademia Sekuraka 2024 zapewnia dostęp do minimum 15 szkoleń online z bezpieczeństwa IT oraz dostęp także do materiałów z edycji Sekurak Academy z roku 2023!

Przy zakupie możecie skorzystać z kodu: pasja-akademia - użyjcie go w koszyku, a uzyskacie rabat -30% na bilety w wersji "Standard"! Więcej informacji na temat akademii 2024 znajdziecie tutaj. Dziękujemy ekipie Sekuraka za taką fajną zniżkę dla wszystkich Pasjonatów!

Akademia Sekuraka

Niedawno wystartował dodruk tej świetnej, rozchwytywanej książki (około 940 stron). Mamy dla Was kod: pasja (wpiszcie go w koszyku), dzięki któremu otrzymujemy 10% zniżki - dziękujemy zaprzyjaźnionej ekipie Sekuraka za taki bonus dla Pasjonatów! Książka to pierwszy tom z serii o ITsec, który łagodnie wprowadzi w świat bezpieczeństwa IT każdą osobę - warto, polecamy!

...