Зашёл то... не зашёл то... (WebBrowser)

[Kren]

Всё спасибо всем огромное(кстати бегин энд ставил, просто знак оказывается неравенства должен быть , спасибо mihali4), правда для чего в коде WebBrowser1.Navigate('') я так и не понял, программа заходит но виснит сразу после этого, переписал на:

IF key = VK_RETURN then
Repeat
begin
WebBrowser1.Navigate(ComboBox1.Text);
Sleep(10000); 
end Until WebBrowser1.LocationURL <> ComboBox1.Text;
ShowMessage('Подключение выполнено');
WebBrowser1.Navigate(ComboBox1.Text)

Теперь всё норм, но ещё вопрос что значит WebBrowser1.LocationURL???









РАНО Я СКАЗАЛ ЧТО РАБОТАЕТ!!!!!!! ПРОВЕРИЛ В РЕАЛЬНЫХ УСЛОВИЯХ, НЕ РАБОТАЕТ!!!!!!! Т.Е. выдаёт сообщение что подключен если даже лимит привышен и если адрес не верный и т.д. вообщим прога в любом случае пишит что подключилась а на деле нет!

[mihali4]

WebBrowser1.Navigate('')

Увы, я тоже этого не понял.
У меня пров линейный (т.е. я в локалке, но адрес - динамический), я ставил его адрес (локальный), все отрабатывает (хотя он не сразу подхватываает). Одну единственную букливицу меняешь - цикл страшный и бесконечный (кстати, там перед слипом, да и после него нехило бы поставить Application.ProcessMessages).

[Kren]

Ага, поставил Application.ProcessMessages, стало лучше, но только смысл? если цикл работает не так как надо ? он влюбом случае пишит что подключен , вообщим он проходит один раз и пишит что всё типа подключился, даже в том случае если не подсоединился! Если "неравно" заменить на "сравнивание", то тогда вообще просто виснит намертво и всё.

P.S. вопрос в силе что значит WebBrowser1.LocationURL??????

[mihali4]

LocationURL - это адрес того документа, который отображается в окне браузера в данный момент.

[Kren]

Ну так URL полюбому будет сходным с тем что в поле ввода, это глупый тогда цикл получается.... в чём тогда смысл? и задавался вопрос то другой....

[mihali4]

Ну так URL полюбому будет сходным с тем что в поле ввода

Нет, только в случае успешного подключения.

[Kren]

Хм... странно но не работает!!! Может то что вы говорите Михалыч, это только для адресов через протоколы, типа http ftp и т.д.!? потому что при обращение к компу по адресу \\domen\incoming программа в любом случае пишит, что подключилась, а на деле просто чистый фон! Почему так?

[mihali4]

Что в окне браузера при успешном подключении (т.е. когда лимит не превышен)?

[Kren]

когда лимит не привышен там открывается просто папка в ней ещё папки, ну вообщим как обычно при использывании сети!

[AVer]

Ошибка в строчке:

IF key = VK_RETURN then
Repeat
begin
WebBrowser1.Navigate(ComboBox1.Text);
Sleep(10000); 
end Until WebBrowser1.LocationURL <> ComboBox1.Text;
ShowMessage('Подключение выполнено');
WebBrowser1.Navigate(ComboBox1.Text)

Это цикл с постусловием, и в строчке после until нужно указывать условие выхода из цикла, то есть

end Until WebBrowser1.LocationURL = ComboBox1.Text;

mihali4 обрати внимание.

WebBrowser1.Navigate('') - эта строчка нужна в том случае если подключение будет выполняться 2 и более раз. Дело в том что при повторном вызове процедуры WebBrowser1.LocationURL будет возвращать

...адрес того документа, который отображается в окне браузера в данный момент.

Этой строчкой обнуляется содержимое браузера.