Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Перейти на след. ссылку в WebBrowser'е

Автор: MadCoder 23.6.2008, 12:57

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

Требуется:
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

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

Автор: MadCoder 23.6.2008, 14:25

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

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

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

Автор: MetalFan 23.6.2008, 14:52

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

Автор: MadCoder 23.6.2008, 17:45

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

Автор: MadCoder 23.6.2008, 18:04

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

Код


// Пример для Софтодрома
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