Утечки памяти в 1с

, , , ,

12.04.16

✎

11:52

Добрый день эксперты. Столкнулся с проблемой утекания памяти в 1с. Сперва я грешил на свою хроническую криворукость, но после сокращения примера до минимума пришел к выводу что дело не совсем во мне.
В общем суть проблемы:
Каждые 10 секунд создается несколько фоновых заданий. В каждом фоновом задании создается HTTPСоединение до сайта, который отдает данные в JSON. Далее с помощью ЧтениеJSON ответ парсится и передается в форму с помощью ПоместитьВоВременноеХранилище, которая и отображает результат. Помещаются данные каждый раз по одному и тому же адресу. Собственно схема мутная но работает и, на время запросов, не вешает основной поток программы. Проблема в том, что 1с-ка медленно но верно отжирает память у системы пока не сожрет ее полностью. Проблема усугубляется еще и тем, что через какое-то время (когда сожрется примерно 500Мб памяти) начинает люто тормозить и интерфейс, а процессор загружается на 100%. Дальше больше. Закрываем форму - память не кушается, но и старая память не освобождается. Открываем фору - память продолжила течь.

Собственно начал упрощать проблему, которая свелась вот к такому:
На форме две кнопки. Одна вызывает сервеную процедуру с параметром, другая без параметра. И в том и в другом случае память течет, но течет с разной скоростью (с параметром быстрее), и 1с-ка эту отожранную память повторно не использует.



&НаКлиенте

Процедура ТестВызоваСервернойПроцедурыСПараметром(Команда)

    

    тест = новый Соответствие;

    для п=1 по 100 цикл

        ТЗ = новый Массив;

        ГСЧ = Новый ГенераторСлучайныхЧисел();

        для н=1 по 1000 цикл

            ТЗ.Добавить(ГСЧ.СлучайноеЧисло(0, 1000000000));

        КонецЦикла;

        тест.Вставить("q"+Строка(п), ТЗ);

    КонецЦикла;

    

    Сообщить("Стартуем");    

    для п=1 по 20 цикл

        ТестВызоваСервернойПроцедурыСПараметромНаСервере(тест);

    КонецЦикла;

    Сообщить("Готово");    

    

КонецПроцедуры



&НаСервереБезКонтекста

Процедура ТестВызоваСервернойПроцедурыСПараметромНаСервере(стр)

    

КонецПроцедуры



&НаСервереБезКонтекста

Процедура ТестВызоваСервернойПроцедурыНаСервере()

    // Вставить содержимое обработчика.

КонецПроцедуры



&НаКлиенте

Процедура ТестВызоваСервернойПроцедуры(Команда)

    для п=1 по 20000 цикл

        ТестВызоваСервернойПроцедурыНаСервере();

    КонецЦикла;

КонецПроцедуры

И, если в текущем варианте память течет медленно, то в моем варианте с фоновыми заданиями 1с-ка перестает подавать признаки жизни уже на 5-й минуте полета. Забыл сказать. Проверял на самой свежей на текущий момент: 1С:Предприятие 8.3 (8.3.7.2008). Собственно буду ждать любых предложений как можно побороть данную проблему, или где я косякнул.

1 Fragster

гуру

12.04.16

✎