Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / IE As Object. Set IE = Nothing / 5 сообщений из 5, страница 1 из 1
21.07.2016, 21:10
    #39278232
малыш789654
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IE As Object. Set IE = Nothing
Добрый день.
ВинХР, Акц2000, 32-бит, .mdb, IE8.

А акцессе есть состаящая из большого количества записей таблица в которой хранятся url-адреса. Цикл по таблице открывает процедуру.
Часть кода этой процедуры:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Private Sub subТруляля(url As String)
Dim IE As Object
Dim oDoc As New MSHTML.HTMLDocument
    Set IE = CreateObject("InternetExplorer.Application")
    With IE
        .navigate url
        Do
            If IE.readyState = READYSTATE_COMPLETE Then
                Exit Do
            End If
        Loop
        Set oDoc = .Document
        Do
            DoEvents
        Loop Until oDoc.readyState = "complete"

..............................
    End With 'IE
Set oDoc = Nothing:  Set IE = Nothing
End Sub



Все работает. Но существует проблема.
При завершение процедуры Set IE = Nothing должен разрушить объект IE и удалить его из памяти. Но этого почему то не происходит. Соответственно он висит в памяти. При цикличности процедуры в ней накапливается до критических масштабов.
Как можно удалить из памяти этот отработанный объект?
Спасибо
...
Рейтинг: 0 / 0
21.07.2016, 21:12
    #39278233
малыш789654
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IE As Object. Set IE = Nothing
До начала процедуры
...
Рейтинг: 0 / 0
21.07.2016, 21:14
    #39278235
малыш789654
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IE As Object. Set IE = Nothing
Процедура по выполнялась и забила память
...
Рейтинг: 0 / 0
21.07.2016, 22:10
    #39278246
vba-dev
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IE As Object. Set IE = Nothing
малыш789654, а если делать IE.Close или IE.Quit это не помогает?
...
Рейтинг: 0 / 0
22.07.2016, 00:28
    #39278278
малыш789654
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IE As Object. Set IE = Nothing
vba-devмалыш789654, а если делать IE.Close или IE.Quit это не помогает?
Удивительно, но IE.Quit помогло. Спасибо
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / IE As Object. Set IE = Nothing / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]