Модераторы: MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> коспонент TWebBrowser для определения текущего URL, че-то не работает (пустая строка) 
:(
    Опции темы
DmitryHT
Дата 6.12.2007, 04:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 97
Регистрация: 31.8.2007

Репутация: нет
Всего: нет
Использую примерно такой код, но почему он не отдает норм. значение текущего URL не понимаю...

Код

procedure TForm1.Button2Click(Sender: TObject);
var MyWebBrowser: TWebBrowser;
Begin
stop:= false;
  MyWebBrowser:= TWebBrowser.Create(nil);
  MyWebBrowser.Navigate('http://www.yandex.ru/');
  MyWebBrowser.OnDownloadComplete:= ShowURL;
  Repeat
    {}Application.ProcessMessages;
    Sleep(100);
  Until stop=true;
  ShowMessage(MyWebBrowser.LocationURL); //остается пустым :(
  MyWebBrowser.Free;
end;

procedure TForm1.ShowURL(Sender: TObject);
Begin
stop:= true;
End;
PM MAIL   Вверх
WaReZMEN
Дата 6.12.2007, 06:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 683
Регистрация: 9.6.2006
Где: Россия, Санкт-Пет ербург

Репутация: нет
Всего: 3
У меня все работает...
PM MAIL ICQ   Вверх
DmitryHT
Дата 6.12.2007, 14:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 97
Регистрация: 31.8.2007

Репутация: нет
Всего: нет
а у меня нет smile

может дело в версии Delphi?
PM MAIL   Вверх
ilBEastli
Дата 6.12.2007, 15:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 20
Регистрация: 18.9.2006

Репутация: нет
Всего: 2
Может дело в версии Indy? ;)
PM MAIL ICQ   Вверх
MetalFan
Дата 6.12.2007, 17:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 3
Всего: 128
ilBEastli, а при чем тут инди?


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
December
Дата 8.12.2007, 11:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Antitheorist
****


Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 12
Всего: 57
OnDownloadComplete вызывается не в конце навигации, а много раз в процессе.
Ищи по форуму как отследить окончание загрузки страницы


--------------------
Для друзей с винграда - скидки на разработку сайтов
PM MAIL WWW ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: ActiveX/СОМ/CORBA"

Rrader
Girder

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Delphi
  • Вопросы по SQL и вопросы по базам данных, не связанные с Delphi, задавать здесь

Если Вам помогли, и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Rrader, Girder.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: ActiveX/СОМ/CORBA | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0471 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.