Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

WebBrowser и ccылки [D7, Win2k]


Scorp123 ©   (2005-06-03 00:50:00) 

Допустим в WebBrowser загружена HTML страница. На странице соответственно расположенны ссылки. Из этих ссылок есть одна,
со своим URL c текстом, который виден на странице.
Как по тексту ссылки, вытянуть HREF ссылки.
Например:
for i := 0 to Webbrowser1.OleObject.Document.links.Length - 1 do begin
Таким образом в цикле перебираются только HREF ссылок. Какаим образом определить именно текст этой ссылки.
Я пробовал так:
for i := 0 to Webbrowser1.OleObject.Document.links.Length - 1 do begin
   Listbox1.Items.Add(Webbrowser1.OleObject.Document.Links.Item(i));
   Listbox2.Items.Add(Webbrowser1.OleObject.Document.All.Item(i));
   if Pos(r, WebBrowser1.OleObject.Document.All.Item(i).InnerText) <> 0 then
   begin
   WebBrowser1.navigate(Webbrowser1.OleObject.Document.Links.Item(i));
   end;
end;
Но получается что по значению переменной i, WebBrowser обращается не по тому URL.


Scorp123   (2005-06-04 13:53:00) [1]

Спосибо за ответы, в принципе я в полне уже разобрался сам.
Со свойствами OleOject я если честно столкнулся в первые.
Желательно узнать какие вообще OleObject присущи свойства.
Уверен что этих свойств не мало.


Lex_!   (2005-06-03 04:53:00) [2]

Webbrowser1.OleObject.Document.innerHTML
весь ХТМЛ текст страници....


Lex_!   (2005-06-03 04:51:00) [3]

<a href=" http://www.delphimaster.ru/cgi-bin/anketa.pl?id=1111147686" target=_blank>©</a>

По тексту "©" как найти ссылку?...
если © - уникальная строка во всем тексте, ищеш ее, и читаеш то что перед ней, надеюсь это проблемой не является?.... :)


Наверх

Титульная страница Поиск, карта сайта Написать письмо