Вопрос к профи! (Память)

[Scuder]

Народ, возникла очень серьёзная проблема.. Всё усугубляется тем, что с ней, наверное, никто и не сталкивался.. Я очень надеюсь хотя бы на какие-нибудь умные мысли..

Вкратце: есть очень серьёзный проект, написаный для удалённого терминала. Осуществляются услуги по оплате услуг связи (каламбурчик ), предоставлению информации о мобильных телефонах, заказ/покупка телефонов, контрактов и т.п. Естественно, в проекте используется большое количество картинок (фотографии телефонов, логотипы, кнопки и т.п.). Так вот, этот самый терминал, понятно, должен работать в круглосуточном режиме годами. В связи с чем и возникла проблема: случайно наткнулся на контрол SystemMonitor и сунул его на главную форму.. Показывает выделение виртуальной памяти под программу. И вот спустя всего лишь сутки на тестовом терминале количество выделяемой памяти увеличилось с ~96 Mb до ~120 Mb. Это означает, что меньше, чем через месяц, программа просто вылетит и любой желающий сможет полазить в интернете, поиграться с компьютером и т.д. То есть мне голову оторвут, если это произойдёт.. Принцип работы проекта примерно такой: есть главная форма, которая постоянно на экране, и на неё в определённом месте подгружаются все остальные. Эти остальные постоянно загружают разные картинки. При выгрузке каждой формы я пишу Unload Form и Set Form = Nothing. Так вот, есть серьёзные подозрения на то, что винда (2000) все эти картинки кэширует (свопит) в надежде на то, что они ещё понадобятся программе, но т.к. формы всегда закрываются и открываются заново, картинки загружаются и кэшируются виндой снова! Короче, думается мне, что она все загружаемые картинки, блин, хранит в кэше! В общем, я надеюсь, ситуация ясна.. Нужно как-то сказать винде, чтобы она моих картинок вообще не касалась, то есть не свопила, а грузила в оперативную память, либо чтобы после выгрузки формы очищался своп.. Кстати, после выгрузки всего приложения своп очищается нормально. Но это не выход - раз в сутки автоматически перезагружать программу..

Буду очень благодарен за любую полезную информацию по этому вопросу!

[alibek]

Регулярная перезагрузка программы - вполне разумное решение.
Но можно попробовать все картинки загружать через API и выводить на форму BitBlt. Будет несколько неудобно (выводить еще ладно, но тебе придется еще и рефреш контроллировать), но зато управлять памятью (в той части, что относиться к загрузке/выгрузке картинок) будешь ты сам.

[Scuder]

Блин, это ж геморрой какой.. У меня проект уже готов и оттестирован.. Переделывать все формы замучаюсь.. Да и не пользовался я BitBlt никогда, не знаю с чем её есть.. APIGuide посмотрел - поплохело от его примера.. %-) К тому же, в некоторых формах объекты (те же самые пикчербоксы) размножаются (Load Picture(i)) в зависимости от параметров.. Сотни картинок.. Кстати, имеет ли смысл сделать Unload Picture(i) или при закрытии формы они сами должны анлоадиться и очищать память? И вот ещё: загрузка картинки существует (Me.Picture1.Picture = LoadPicture ...), но почему не существует UnLoad Picture?

Вообще ерунда какая-то.. Может вопрос не к коду относится? Может, к компилятору или вообще к Windows?

А нельзя программно своп почистить? Или запретить кэширование картинок?

[Sebas]

Спроектирована неправильно!
Проверь на циклические ссылки объекты...

У меня серверная часть без проблем работает целый год(80 клиентов 7 типов)

[Scuder]

И что, на серверной части постоянно картинки подгружаются?

У меня вообще уже складывается ощущение, что если загрузить Windows, отключив клаву и мышь, он всё равно через пару лет умрёт.. Только своей смертью.

[sanches]

Кстати, если все-таки надумаешь переделывать, то задумайся про стандартный контрол, отображающий HTML страницы (MS Internet Controls). Все отчеты и т.п., содержащие картинки, генерируй в HTML код и отображай в контроле. За длительные периоды времени не помнится мне, что IE жрал дополнительные ресурсы.

[Scuder]

Я его использую для вывода информации о тарифных планах.. Но думается мне, что IE ещё больше ресурсов сожрёт.. Да и вообще, прикинь форму, на которой находится один WebBrowser. Из него при лоаде ещё штук 20 создаются. Для каждого контрола свой HTML код надо генерировать динамически, потому как картинка меняться может.. Не, я думаю винда ещё быстрее умрёт..

[alibek]

UnloadPicture нет, есть Set Picture1.Picture = Nothing.
А нельзя ли заменить Picture на Image? И ресурсов будут кушать поменьше, и память пропадать перестанет.

[Scuder]

2 alibek: Заменил, всё то же самое.. Виндам, кажется по барабану что свопить - главное, чтобы графический образ был..
Попробую сделать везде Set Image1.Picture = Nothing..

[codemaster]

При выгрузке каждой формы я пишу Unload Form и Set Form = Nothing. Так вот, есть серьёзные подозрения на то, что винда (2000) все эти картинки кэширует (свопит) в надежде на то, что они ещё понадобятся программе, но т.к. формы всегда закрываются и открываются заново, картинки загружаются и кэшируются виндой снова! Короче, думается мне, что она все загружаемые картинки, блин, хранит в кэше!

Unload Form и Set Form = Nothing это конечно хорошо
но ты уверен что формы корректно выгружаются?
Попробуй проверить это через Logging и обратные ссылки

P.S. Прога крутится на терминале под W2K?

[Scuder]

Unload Form и Set Form = Nothing это конечно хорошо
но ты уверен что формы корректно выгружаются?

Нет, я скорее уверен в обратном.. Исходя из того, что приложение в целом память за собой очищает..

Попробуй проверить это через Logging и обратные ссылки

А можно поподробнее и про первое, и про второе?

P.S. Прога крутится на терминале под W2K?

Угу.

[Mikle]

Scuder

И вот спустя всего лишь сутки на тестовом терминале количество выделяемой памяти увеличилось с ~96 Mb до ~120 Mb. Это означает, что меньше, чем через месяц, программа просто вылетит

По-моему не означает. Попробуй заполни своп вручную или отключи вообще, и потестируй программу.

[Scuder]

2 Mikle

Я уже писал об этом, в программе раньше периодически запускался рекламный ролик, так вот, примерно через 10 часов все приложения вылетали, а w2k писал, что-то типа "Виртуальная память заканчивается" и "Совсем закончилась".. Пришлось ролик запускать из отдельного EXE'шника, потому как та же самая история была - память после ролика не очищалась..

[codemaster]

Попробуй проверить это через Logging и обратные ссылки

А можно поподробнее и про первое, и про второе?

P.S. Прога крутится на терминале под W2K?

Угу.

Обратные ссылки - Делать ссылки WithEvents в обратную сторону.
Старый трюк для тестирования выгруженных форм и классов и не только....

В одном из bas файлов:

Код: Выделить всё

Global Collector As New Collector

Класс

Код: Выделить всё

Класс Collector (можно сделать приватным приватный):
Option Explicit

Event Collect(AddTo As Collection)

' Можно сделать свойством по умолчанию
Public Property Get Collected() As Collection
    Dim Coll As Collection
    Set Coll = New Collection
    RaiseEvent Collect(Coll)
    Set Collected = Coll
End Property



Класс ChildClass (публичный)
Option Explicit

Private WithEvents Coll As Collector

Private Sub Class_Initialize()
Set Coll = Collector
End Sub

Private Sub Coll_Collect(AddTo As Collection)
AddTo.Add Me
End Sub



тестовый вариант

Код: Выделить всё

Sub main()
Dim A(0 To 10) As ChildClass
Dim i As Integer
For i = 0 To 4
    Set A(i) = New ChildClass
    Debug.Print Collector.Collected.Count
Next
End Sub



остальное по вкусу
что касается разрабоки на VB6 под TS есть много ньюансов
особенно при пользовании граф. контролов

P.S. таймеры на формах есть?

[Scuder]

2 codemaster

Гм, может, конечно, я совсем тупой, но я не понимаю что делает этот код и зачем он нужен..

Старый трюк для тестирования выгруженных форм и классов и не только....

Опять же, насколько я понимаю, выгруженная форма - эта та форма, к которой нельзя обратиться.. Так ведь?

P.S. таймеры на формах есть?

Конечно. Как минимум по одному на каждой.. На главной - 3.

[codemaster]

Гм, может, конечно, я совсем тупой, но я не понимаю что делает этот код и зачем он нужен..

Позволяет тестировать загруженные формы , классы ....

Конечно. Как минимум по одному на каждой.. На главной - 3.

а ты останавливаешь таймер перед тем как выгрузить форму?

[Scuder]

а ты останавливаешь таймер перед тем как выгрузить форму?

Хочешь сказать, что он продолжает "тикать"?

[Ennor]

Нет, но в Form_Unload() по-хорошему должны стопиться все таймеры на этой форме, во избежание крайне трудноотслеживаемых глюков.

[Scuder]

Ну вроде бы сегодня не первое апреля..

Я просто первый раз слышу про то, таймеры ещё стопить нужно..
А как, кстати? Timer1 = False? Или Timer1.Enable = False? Или это одно и то же?

[codemaster]

а ты останавливаешь таймер перед тем как выгрузить форму?

Хочешь сказать, что он продолжает "тикать"?

Однозначно грабли !!!!!! см. tips от MSDN