|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Проверка корректности загрузки страницы
Здравствуйте!
Задача: отображать на экране страничку, обновлять 2 раза в сутки. Как реализовать чтобы при потере интернета не выдало "не возможно отобразить страницу"? Как вариант думаю сохранить страницу на диск и отображать ее с диска. Но как проверить что на диск сохранилась нужная страница а не та же самая "не возможно отобразить страницу"? |
#2
|
|||
|
|||
Я в этом случае пользуюсь поиском по коду страницы.
Можно искать тег </html> А можно и текст "Невозможно отобразить страницу" Не суть важно. Всё равно будет работать. Код:
procedure TForm1.SearchAndHighlightText(aText: string); var i: Integer; finded:boolean; begin finded:=false; for i := 0 to WebBrowser1.OleObject.Document.All.Length - 1 do begin if Pos(aText, WebBrowser1.OleObject.Document.All.Item(i).InnerText) <> 0 then begin finded:=true; end; end; end; а потом просто вызывается процедурка SearchAndHighlightText('Невозможно отобразить страницу'); и ниже проверяется переменная finded, которую я сделал глобальной. Реализация, конечно, кривая, но работает Очень удобно и надежно. |
#3
|
|||
|
|||
event downloadcomplete
|