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

[mihali4]

Согласен, тут у меня промашка вышла...

[Kren]

Ясно, но тогда если ставить сравнивание, то из цикла вообще не выходит! и без конечно крутится цикл!!!

[AVer]

Чтобы заставить все это работать кинь на ворму таймер, установи нужный интервал и пробей вот такую процедуру:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
WebBrowser1.Navigate(ComboBox1.Text);
if WebBrowser1.LocationURL = ComboBox1.Text then
begin
ShowMessage('Подключение выполнено');
WebBrowser1.Navigate('');
Timer1.Enabled:=False;
end;
end;

А таже не забудь вот это:

procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
IF key = VK_RETURN then
Timer1.Enabled:=True;
end;

И еще одно важное замечание. Чтобы все работало номально в ComboBox1.Text должен быть введен полный адрес с соблюдением всех слэшей и бэкслэшей. Его можно получить опытным путем. Дерзай.

[Kren]

Хм... Спору нет прога перестала подвисать, за это реально спасибо!
Но как было бесконечное подключение так и осталось, к примеру подключился, НО СООБЩЕНИЕ НЕ ВЫДАЁТ И ПЫТАЕТСЯ ПОДКЛЮЧАТЬСЯ ДАЛЬШЕ!!!!!!!!

Чтобы все работало номально в ComboBox1.Text должен быть введен полный адрес с соблюдением всех слэшей и бэкслэшей. Его можно получить опытным путем. Дерзай.

Как? я к примеру перед сравниванием(условием) прописал edit1.text:=WebBrowser1.LocationURL , в ответ в edit1 один я ничего не уидел! я просто увидел ЧИСТОЕ ПОЛЕ!!!!!!!!!!!!!!!

[AVer]

Как? я к примеру перед сравниванием(условием) прописал edit1.text:=WebBrowser1.LocationURL , в ответ в edit1 один я ничего не уидел! я просто увидел ЧИСТОЕ ПОЛЕ!!!!!!!!!!!!!!!

Это было при удачном соиденении? Я проверял в работе с сетью на скорости 256 Кбит/с при соединении с http://www.programmersclub.ru/ и таймаутом 4 секунды все проходило удачно, сообщение показывалось и цикл останавливался.

[Kren]

Проверил сейчас, при наборе URL сайтов всё работает! Но когда ввожу сетевой адрес \\domen то нифига не работает!!! он не отображает URL

Ещё вопрос, вот когда в тэге ссылки(страницы html) прописан target="_blank" то ссылка открывается в новом окне, и если нажать на такую сслыку из программы с WebBrowsers то открывается окно IE, как сделать чтобы открывалась либо форма ещё одна из моей программы или чтобы вообще ничего нового не открывалось и изабражалось в том же окне(WebBrowser).???

Всем огромное спасибо, с темой разобрался сам, а вот с окнами IE не могу

[alex Monster]

чесно говоря..яб те посоветовал разобраться с модулем WinInet там все это делается намного проще...!