WebBrowser и кэширование

[ndemidov]

Появилась необходимость кэшировать ранее посещённые страницы (кот. загружались в экзэмпляре WebBrowser'а). Как это сделать?
(Есть подозрения , что WebBrowser как-то связан с Internet Explorer и страницы уже куда-то кэшируются)

[ndemidov]

Описание: нужно загружать в WebBrowser web-страницы с интернета, максимально используя кэш. Для загрузки использую метод Navigate. Начинаются проблемы, когда отсутствует подключение к инет-ту: надо, чтобы работал в автономном режиме (грузил страницы из кэша)...

Всё до чего додумался:

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

Если есть выход в интернет
   грузим страницу с помощью метода Navigate
Иначе
   Программно переключить WebBrowser в оффлайн (т.е., чтобы IsOffline = True)
   также грузить страницу с помощью Navigate

Как определить есть ли выход в интернет?
Как Программно переключить WebBrowser в оффлайн?

Есть ли более простое решение, что посоветуете?

[Williams]

см. viewtopic.php?f=2&t=38475

[Ramzes]

На несколько секунд опередил

[ndemidov]

Спасибо. Самый главный вопрос остаётся: как присвоить хацкому св-ву .IsOffline True

Если не получиться, то неужели придётся при "недоступности сайта/страницы" загружать напрямую из какого-нибудь /Local Settings/Temporary Internet Files ?

[Williams]

Вот тут даже пример есть

[ndemidov]

Спасибо. При проверке доступности сайта методом от Williams:

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

Dim headers As WebHeaderCollection = Nothing
Dim response As HttpWebResponse = Nothing
Dim request As HttpWebRequest = TryCast(WebRequest.Create(url), HttpWebRequest)
request.Method = "HEAD"
response = TryCast(request.GetResponse(), HttpWebResponse)
headers = response.Headers

Всегда получ., что сайт не доступен и "зависает" на нескл. секунд (руки у меня, конечно, кривые), что навело меня на мысль определять доступность сайта через WebBrowser. Придумал таокй алгоритм:

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

Try
            ' Пытаемся "грузить" с интернета
            ChangeOfflineMode.OffLineMode = False
            WebBr.Navigate(sURLFull)
Catch ex As Exception
            Exit Sub
End Try

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

Private Sub WebBr_Navigated(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs)
         With WebBr
 
            ' Следущая строка - проверка на успешную загрузку стараницы. Она вызывает у меня опасения
            ' на надёжность (но все  разы работала).
            If (.Url <> .Document.Url) And Not (ChangeOfflineMode.OffLineMode) Then

                ' Пытаемся "грузить" с кэша
                ChangeOfflineMode.OffLineMode = True
                .Navigate(.Url.ToString)
            End If
        End With
    End Sub

Надёжен ли "мой" способ проверки на загрузку станицы с ин-та?

[ndemidov]

Строка кода

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

If (.Url <> .Document.Url) And Not (ChangeOfflineMode.OffLineMode) Then

в событии WebBrowser_Navigated для проверки загрузилась ли страница, пока ни разу не подводила. Можно предположить, что этот способ работоспособен.

При работе в автономном режиме, если страницы нет в кэше, то появляется окно "Веб-страница не доступна в автономном режиме" с предложением переключиться в "он-лайновый". Можно ли программно отключить это окно.

-- ADDED --
Это окно можно отключить присвоив ScriptErrorsSuppressed = TRUE