Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.01.2007, 02:48   #21
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Согласен, тут у меня промашка вышла...
mihali4 вне форума Ответить с цитированием
Старый 15.01.2007, 09:57   #22
Kren
Пользователь
 
Регистрация: 11.01.2007
Сообщений: 17
По умолчанию

Ясно, но тогда если ставить сравнивание, то из цикла вообще не выходит! и без конечно крутится цикл!!!
Kren вне форума Ответить с цитированием
Старый 15.01.2007, 15:55   #23
AVer
Андрей
Форумчанин
 
Аватар для AVer
 
Регистрация: 21.11.2006
Сообщений: 457
По умолчанию

Чтобы заставить все это работать кинь на ворму таймер, установи нужный интервал и пробей вот такую процедуру:
Код:
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 должен быть введен полный адрес с соблюдением всех слэшей и бэкслэшей. Его можно получить опытным путем. Дерзай.
ICQ: 5311314
[SIGPIC][/SIGPIC]
AVer вне форума Ответить с цитированием
Старый 15.01.2007, 17:11   #24
Kren
Пользователь
 
Регистрация: 11.01.2007
Сообщений: 17
По умолчанию

Хм... Спору нет прога перестала подвисать, за это реально спасибо!
Но как было бесконечное подключение так и осталось, к примеру подключился, НО СООБЩЕНИЕ НЕ ВЫДАЁТ И ПЫТАЕТСЯ ПОДКЛЮЧАТЬСЯ ДАЛЬШЕ!!!!!!!!
Цитата:
Чтобы все работало номально в ComboBox1.Text должен быть введен полный адрес с соблюдением всех слэшей и бэкслэшей. Его можно получить опытным путем. Дерзай.
Как? я к примеру перед сравниванием(условием) прописал edit1.text:=WebBrowser1.LocationURL , в ответ в edit1 один я ничего не уидел! я просто увидел ЧИСТОЕ ПОЛЕ!!!!!!!!!!!!!!!
Kren вне форума Ответить с цитированием
Старый 15.01.2007, 20:07   #25
AVer
Андрей
Форумчанин
 
Аватар для AVer
 
Регистрация: 21.11.2006
Сообщений: 457
По умолчанию

Цитата:
Как? я к примеру перед сравниванием(условием) прописал edit1.text:=WebBrowser1.LocationURL , в ответ в edit1 один я ничего не уидел! я просто увидел ЧИСТОЕ ПОЛЕ!!!!!!!!!!!!!!!
Это было при удачном соиденении? Я проверял в работе с сетью на скорости 256 Кбит/с при соединении с http://www.programmersclub.ru/ и таймаутом 4 секунды все проходило удачно, сообщение показывалось и цикл останавливался.
ICQ: 5311314
[SIGPIC][/SIGPIC]
AVer вне форума Ответить с цитированием
Старый 16.01.2007, 07:59   #26
Kren
Пользователь
 
Регистрация: 11.01.2007
Сообщений: 17
По умолчанию

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

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

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

Последний раз редактировалось zetrix; 08.02.2007 в 08:11.
Kren вне форума Ответить с цитированием
Старый 15.02.2007, 20:26   #27
alex Monster
 
Регистрация: 11.02.2007
Сообщений: 4
По умолчанию

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


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
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