Перерасход памяти

Комментарии

• frQuest

  February 2004 отредактировано 06:02

  да, забыл сказать: если дождаться окончания прорисовки ивыйти из программы, то незапускаются многи программы, постоянно возникает ошибка что системе недостаточно ресурсов ну и т.п. самое интересное что кнопка пуск моргать начинает:)
• Boris Москва

  February 2004 отредактировано 06:02

  Ну тут налицо утечка памяти.
  Кстати, посмотри в диспетчере задач (надеюсь, что у тебя не Windows 98), может быть процесс полностью не выгружается из памяти, а остается там висеть. Поэтому потом другие программы виснут.
  А вот где сама утечка происходит, это вопрос. Накладные большие? Кстати, ты отчет не динамически ли генеришь, то есть не создаешь ли объект TfrReport в run-time?
• frQuest

  February 2004 отредактировано 06:02

  Boris написал:

  надеюсь, что у тебя не Windows 98
  Накладные большие? Кстати, ты отчет не динамически ли генеришь, то есть не создаешь ли объект TfrReport в run-time?

  К сожалению это именно 98ая, и использоваться будет на 98ой
  Накладные не большие, наверное итого при печати 23 стрницы генерится (общее число)
  происходит это так

  frReport1.LoadFromFile('Nakl.frf');
  NaklQuery1.Close; NaklQuery1.SQL.Clear;
  NaklQuery1.SQL.Add('select n.sclad_name, r.cena');
  NaklQuery1.SQL.Add('from names n, res1 r');
  NaklQuery1.SQL.Add('where r.sclad_id=n.sclad_id and r.sclad_id in (select number from "\\database\bases\talon.dbf" t where t.num_doc=:B3)');
  NaklQuery1.Params.ParamByName('B3').AsInteger:=fromtalon;
  frReport1.ShowReport;
  NaklQuery1.Close;
  

  ну и соответтвенно frDataset натравлен на эту query и поля вытащены в отчет
  
• Boris Москва

  February 2004 отредактировано 06:02

  Сразу вопрос, а где запрос выполняется? То есть не вижу строк вроде

  NaklQuery1.Prepare;
  NaklQuery1.Open;
  

  Не знаю, насколько это поможет и поможет ли вообще, но давай попробуем разделить на этапы, то есть

  if frReport1.PrepareReport then
    frReport1.ShowPreparedReport;
  

  Смысл: если отчет не сгенерился, то и не показывать его, то есть не начинать прорисовку.
  Да, и еще, я обычно сначала выполняю запрос, а уже потом загружаю шаблон методом LoadFromFile.
• bakh Санкт-Петербург

  February 2004 отредактировано 06:02

  frQuest написал:

  происходит это так

  frReport1.LoadFromFile('Nakl.frf');
  NaklQuery1.Close; NaklQuery1.SQL.Clear;
  NaklQuery1.SQL.Add('select n.sclad_name, r.cena');
  NaklQuery1.SQL.Add('from names n, res1 r');
  NaklQuery1.SQL.Add('where r.sclad_id=n.sclad_id and r.sclad_id in (select number from "\\database\bases\talon.dbf" t where t.num_doc=:B3)');
  NaklQuery1.Params.ParamByName('B3').AsInteger:=fromtalon;
  frReport1.ShowReport;
  NaklQuery1.Close;
  

  ну и соответтвенно frDataset натравлен на эту query и поля вытащены в отчет

  А ты в курсе, что

  select number from "\\database\bases\talon.dbf" t where t.num_doc=:B3
  

  выполняется не один раз, а столько, сколько r.sclad_id?..
  Это - самый главный тормоз запроса...
• frQuest

  February 2004 отредактировано 06:02

  Запрос выполняется после NaklQuery1.Params.ParamByName('B3').AsInteger:=fromtalon;
  просто что-то он не скопировался
  2 bakh:
  я понимаю, однако 2я таблица гененрится намного быстрее. т.е. если из отчета выкинуть page1, то все будет работать как надо - все быстро и никаких глюков.
  
  Я думаю все-таки дело в количестве текста и ячеек на page1, т.к. оно даже в дизайнере притормаживает малость. Однако все эти ячейки нужны.
  
  ЗЫ: сейчас попробую создать 2 frf репорта, отдельно для каждой накладной
• bakh Санкт-Петербург

  February 2004 отредактировано 06:02

  Вот ты говоришь - много пустых ячеек...
  А чем ты их делаешь?.. Memo или Shape?..
• frQuest

  February 2004 отредактировано 06:02

  memo + границы
• bakh Санкт-Петербург

  February 2004 отредактировано 06:02

  frQuest написал:

  memo + границы

  М-да... Хотел осоветовать для пустых использовать фигуру... А оно не имеет свойства Stretched...
• frQuest

  February 2004 отредактировано 06:02

  попробовал с разбитием отчета на 2 - такая же картина
  сделал query и сохранил результат в локальный файл, потом "select * from tmp" - быстрее не стало абсолютно
  Люди добрыйя, поможите, делал ли кто-нибудь товарную накладную? почему она тормозит всю систему при прорисовке на ShowReport??
  
• Boris Москва

  February 2004 отредактировано 06:02

  Товарную накладную делал, но такой проблемы не было. И пустые ячейки были, но это никак не влияло.
• bakh Санкт-Петербург

  February 2004 отредактировано 06:02

  Даже не знаю, что тебе сказать...
  Пришли файлик, посмотрю...
• frQuest

  February 2004 отредактировано 06:02

  Куды слать то?
• bakh Санкт-Петербург

  February 2004 отредактировано 06:02

  frQuest написал:

  Куды слать то?

  Ну, ты на мой ник тыкни, там всё написано...
• frQuest

  February 2004 отредактировано 06:02

  Спасибо bakh'у - помог решить проблему
  То что я принимал за memo оказалось rich'ем. Соответственно после замены все проблемы исчезли!
  Пойду посыплю голову пеплом