|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
11.01.2007, 13:16 | #1 |
Пользователь
Регистрация: 11.01.2007
Сообщений: 17
|
Зашёл то... не зашёл то... (WebBrowser)
Есть некая сеть на оптиковолокне в городе, есть сервер с фильмами, музыкой, софтом, и т.д., вообщим пользуется спросом, вход на сервертакже как по сети, т.е. адрес типа \\domen, но так как сервер пользуется спросом, то всё чаще стала случаться ситуация, когда сервер выдаёт типа:"Достигнут предел пользователей, зайдите позже", и тут появилась идея у меня, сделать так называемую стучалку, в чём смысл программы, запускаешь программу и она после нажатия пуск, ну или ENTER(вообщим это не важно), начинает пытаться зайти на сервер, если сервер выдаёт ошибку типа зайдите позже, то программа через 15 сек. опять пробует зайти, и так далее... если же зашла, то выдать звуковое сообщение, и остаться на сервере.
Решил я это делать через webbrowser (delphi v 7.0), браузер всё создал, осталось именно самое важное, счётчик и условие это я задам без проблем, возник вопрос а как сделать чтобы он понимал когда защёл когда нет, изначально я хотел через Try Except End; но не получилось, т.е. он не понимает, вот пример: Код:
Заранее спасибо за помощь |
11.01.2007, 19:35 | #2 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Проверяй наличие фразы "Достигнут предел пользователей, зайдите позже" в тексте WebBrowser...
А если пров тебя с этой "стучалкой" вычислит, может принять меры... |
11.01.2007, 20:56 | #3 |
Регистрация: 07.01.2007
Сообщений: 3
|
а никакой ошибки и не происходит браузер коректно переходит по другому адресу вот и отслеживай куда его кидануло
нк на крайняк проверяй тот ли это штмл файл который нужен |
12.01.2007, 04:42 | #4 |
Пользователь
Регистрация: 11.01.2007
Сообщений: 17
|
Спасибо, но...
Не вы не много не понели видать, адрес набирается сетевой то есть \\domen и реагирует он как с сетью, т.е. никакого html нет! Вот скрин, тока в скрине пример ошибки что адрес не найден, вот именно также выскакивает ошибка о привышение лимита, вот и получается что как в html поиск не устроишь, и что как ошибку он не считает, т.е. WebBrowser отправил запрос, получил ответ, и считает что всё, его работа выполнена и на эту ошибку не реагирует.
Какие ещё есть идии??? |
12.01.2007, 16:10 | #5 | |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Цитата:
О чем речь вообще? Где ответ, полученный веб-браузером? |
|
12.01.2007, 16:58 | #6 | |
Пользователь
Регистрация: 11.01.2007
Сообщений: 17
|
Цитата:
В скрине в новом, сама форма, форму я накидал, сделал слегка, но делать дальше пока смысла не вижу, так как основную задачу не могу сделать!!! А смысл как я уже говорил что программа должна каждые 10 сек пытаться зайти, вслучае удачи программа остаётся на странице и выдаёт некий звук! И вот тут проблема, как научить понимать программу ошибки, WebBrowser считает что своё дело он выполнил, типа отправил запрос, ответ получил и всё и пох что там в ответе, вот и возникает вопрос как программу научить понимать ошибку! Вот если что код, может поможет: Код:
Код:
|
|
12.01.2007, 16:59 | #7 |
Пользователь
Регистрация: 11.01.2007
Сообщений: 17
|
ПРОДОЛЖЕНИЕ:
То получается что в случае ошибки выполнения WebBrowser должна выдаться моя собственная ошибка с текстом "Error, ошибка", т.е. если бы это выдалось то было бы мне счастье и писал бы я уже цикл с условием, но вот проблема WebBrowser, то что выдаётся ошибка о лимите не считает своей ошибкой, т.е. он информацию отправил, он ответ получил, всё какого чёрта ещё вы типа от него хотите, ВОТ И ВОЗНИКАЕТ ВОПРОС КАК ЛОВИТЬ НУ ИЛИ РАСПОЗНАВАТЬ ОШИБКИ, ПО СУТИ ДЕЛА ЧТО ОШИБКА О НЕПРАВИЛЬНОМ АДРЕСЕ(КАК В ПЕРВОМ СКРИНЕ), ЧТО ОШИБКА О ЛИМИТЕ, ЕСЛИ СКАЖИТЕ КАК ВЫЛОВИТЬ ОДНУ ОШИБКУ, ТО ТОГДА И ДРУГУЮ ПО ТОМУ ЖЕ ПРИНЦИПУ! P.S. для тех кто вообще нифига не понял что я хочу, изменю условия, допустим я делаю программу-браузер(только по сетевым адресам \\domen), и если человек, ввёл к примеру сетевой адрес \\10.1.1.1\test , а такого адреса нет то ему выдастся просто ошибка(ошибка от винды) о том что нет адреса, вот и представьте что мне надо выловить эту ошибку и пользователя переслать примеру тогда на адрес своей машины \\10.1.4.2, вот и вопрос как выловить эту ошибку |
13.01.2007, 05:21 | #8 |
Андрей
Форумчанин
Регистрация: 21.11.2006
Сообщений: 457
|
Процедура подключается к серверу каждые 15 секунд. Если подключение выполнено успешно - показывает сообщение и останавливается.
Код:
ICQ: 5311314
[SIGPIC][/SIGPIC] |
13.01.2007, 08:35 | #9 |
Пользователь
Регистрация: 11.01.2007
Сообщений: 17
|
Не проканало
TO Aver попробывал как вы говорите, нифига не канает, виснит просто полностью и всё.
|
13.01.2007, 15:24 | #10 | ||
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Цитата:
Добавляем begin/end: Цитата:
Последний раз редактировалось mihali4; 13.01.2007 в 15:53. |
||
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
webBrowser | MaslCS | Компоненты Delphi | 23 | 08.05.2010 22:05 |
WebBrowser | Killbrum | Помощь студентам | 2 | 09.06.2008 19:42 |
WebBrowser | JakSon | Работа с сетью в Delphi | 2 | 03.05.2008 01:05 |
Webbrowser | Stanislav | Общие вопросы Delphi | 1 | 18.11.2007 11:51 |