VPF::Постоянная утечка памяти - Форум программистов

Ace Wentura

Дата 26.4.2005, 09:58 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 161
Регистрация: 19.2.2004
Где: Санкт-Петербург

Репутация: нет
Всего: нет

Происходит буквально следующее. Есть метод. К нему обращаясь передают параметры. Эти параметры забиваются сначала в TpFIBDataSet, его активизирую и получаю результат.
По итогам создаю SQL-запрос и пихаю его в TpFIBQuery. Аналогично активизирую и получаю результат.
Так вот, после выполнения запросов каждый раз сжирается некая память. Всё бы ничего, да она ещё и не очищается. Но это тоже не проблема. Проблема в том, что после 20000 раз (а это ещё не предел) системе перестаёт хватать памяти даже виртуальной.
Как с этим бороться?

Петрович

Дата 26.4.2005, 11:16 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1000
Регистрация: 2.12.2003
Где: Москва

Репутация: 6
Всего: 55

Ошибка в 17-й строке.

--------------------

Все знать невозможно, но хочется

Ace Wentura

Дата 26.4.2005, 11:24 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 161
Регистрация: 19.2.2004
Где: Санкт-Петербург

Репутация: нет
Всего: нет

А что это означает?

fess

Дата 26.4.2005, 11:40 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 125
Регистрация: 17.2.2005
Где: г. Мурманск, Росс ия

Репутация: нет
Всего: 3

Это означает, что неплохо бы выложить код для просмотра, а то телепатических способностей не хватает для диагностики ошибки smile

--------------------

Компьютер не подчиняется законам физики. Только в нём глюки возникают из ничего, файлы исчезают в никуда, а объём измеряется в метрах и называется весом.

Ace Wentura

Дата 26.4.2005, 11:47 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 161
Регистрация: 19.2.2004
Где: Санкт-Петербург

Репутация: нет
Всего: нет

Извиняюсь. Я просто подумал, что это какая-то стандартная ошибка типа: забыл сделать free. Или ещё что в этом роде.

Вот код.

Код


function TDM.GetValue(Key: String; ID: Integer): String;
var
  sql: string;
begin

  if (Key<>'5')then
  begin
    pFIBDSFields.Active := False;
    pFIBDSFields.ParamByName('Param_Rus').AsString := Key;
    pFIBDSFields.Active := True;

    if (not pFIBDSFields.Eof) then
    begin
      if Key='4' then
        sql := 'SELECT ... ;'
      else
        if ((Key='1') or (Key='2') or (Key='3')) then
          sql := 'SELECT ...;'
        else
          sql := 'SELECT ...;';
      pFIBQuery.Close;
      pFIBQuery.SQL.Clear;
      pFIBQuery.SQL.Add(sql);
      pFIBQuery.ExecQuery;

      if (not pFIBQuery.Eof) then
      begin
        if (pFIBQuery.Fields[0].AsString='') then
          Result := '-'
        else
          Result := trim(pFIBQuery.Fields[0].AsString);
      end
      else
        Result := '-';
    end
    else
      Result := '-';
  end
  else
  begin
    Result := GetIO(ID);
  end;
end;

Запросы SQL сократил, но они работают точно.

Ace Wentura

Дата 27.4.2005, 12:20 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 161
Регистрация: 19.2.2004
Где: Санкт-Петербург

Репутация: нет
Всего: нет

Всё, багу поправил.
Дело было не в запросах и не в компонентах работы с БД, а в том, что не чистиллись корректно списки.

Но всё-таки интересно, сказывается ли как-нибудь на объёме используемой оперативки то, вызываю ли я принудительно Transaction.commit(rollback) или не вызываю (как у меня)?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »