Освободить память

[Scuder]

Я тут уже писал об этом, повторю..

Есть на форме контрол - Windows Media Player с индексом 0.
Каждые 7 секунд он начинает проигрывать ролик:

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

Private Sub Timer3_Timer()

Me.Timer3 = False
Load Me.Roll(1)
Me.Roll(1).Visible = True
Me.Roll(1).FileName = App.Path + "\Rolls\xxx.avi"

End Sub

По клику на него или по завершению проигрывания выполняется следующий код:

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

Private Sub Roll_EndOfStream(Index As Integer, ByVal Result As Long)

Unload Roll(1)
Set Roll(1) = Nothing
Me.Timer3.Enabled = True

End Sub

И вот через несколько часов работы программы у Windows (2000) заканчивается виртуальная память и вся программа вылетает..

Вопрос: как правильно освободить память после окончания проигрывания файла?

[Ennor]

Может, тебе не стоит его грузить/выгружать, а просто играться со свойством Visible?

[Scuder]

Так сначала так и было. Он был без индекса, и я действительно просто делал его Visible/InVisible. Происходило то же самое. Собственно, поэтому я и подумал, что лучше его загружать и ВЫГРУЖАТЬ из памяти, но почему-то как раз процесс выгрузки и не работает корректно.. Т.е. сам контрол-то пропадает, но, видимо, память после себя не освобождает..

[ANDLL]

А может просто что-то типа Roll(1).Close().

Или Roll(1).Application.Quit(что маловероятно присутствует)

[Scuder]

Нет там ни того, ни другого..

Сделал сейчас так:

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

Roll(1).Stop
Roll(1).Cancel
Unload Roll(1)
Set Roll(1) = Nothing

Это всё, что у него есть относительно выхода..
Хотя, я уверен, это не поможет..

Может, какой-нибудь другой плеер использовать?
Есть какие-нибудь советы?