VPF::Перейти на след. ссылку в WebBrowser'е

MadCoder

Дата 23.6.2008, 12:57 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

Здравствуйте!

Требуется:
1. Открыть определенный сайт в WebBrowser'е:

Код


Browser.Navigate('http://www.mail.ru');

2. После полной загрузки сайта перейти на любую внутреннюю страницу (http://www.mail.ru/*какая-то страница*), которая указана на этом сайте:

Код


// Ждем полной загрузки страницы+картинок
  while WebBrowser1.ReadyState<>4 do
  Application.ProcessMessages;
// Тут нужно перейти на любую внутреннюю страницу, указанную на главной

Как это сделать? smile

--------------------

Домашняя страничка | Как скопировать настройки | Умный оптимизатор

MetalFan

Дата 23.6.2008, 13:22 (ссылка)

(нет голосов)

Загрузка ...

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

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

Репутация: 14
Всего: 128

в чем вопрос? под "перейти" что подразумевается? вызвать Navigate или эмулировать клик мышью?

--------------------

There are always someone smarter than you...

MadCoder

Дата 23.6.2008, 14:25 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

Цитата(MetalFan @ 23.6.2008, 13:22)

в чем вопрос? под "перейти" что подразумевается? вызвать Navigate или эмулировать клик мышью?

navigate. Требуется найти внутренние ссылки на странице.

--------------------

Домашняя страничка | Как скопировать настройки | Умный оптимизатор

MetalFan

Дата 23.6.2008, 14:52 (ссылка)

(нет голосов)

Загрузка ...

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

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

Репутация: 14
Всего: 128

ну так найди.
наводка:
способ 1. с пом. MS HTML
  IHTMLDocument2.All
  IHTMLElementCollection.tags
способ 2:
  поиск по тексту документа с пом. регулярок

--------------------

There are always someone smarter than you...

MadCoder

Дата 23.6.2008, 17:45 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

Что-то ничего не получается :((((.

--------------------

Домашняя страничка | Как скопировать настройки | Умный оптимизатор

MadCoder

Дата 23.6.2008, 18:04 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

Нашел решение:

Код


// Пример для Софтодрома
var
   i: Integer;
 begin
   for i := 0 to Webbrowser1.OleObject.Document.links.Length - 1 do
   if Copy(Webbrowser1.OleObject.Document.Links.Item(i), 1, 24)='http://www.softodrom.ru/' then
     Listbox1.Items.Add(Webbrowser1.OleObject.Document.Links.Item(i));
end;

MetalFan, спасибо за помощь! smile

--------------------

Домашняя страничка | Как скопировать настройки | Умный оптимизатор

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »