Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.09.25;
Скачать: CL | DM;

Вниз

WebBrowser и ccылки   Найти похожие ветки 

 
Scorp123 ©   (2005-06-03 00:50) [0]

Допустим в 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.


 
Lex_! ©   (2005-06-03 04:51) [1]

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

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


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

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


 
Scorp123 ©   (2005-06-04 13:53) [3]

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



Страницы: 1 вся ветка

Текущий архив: 2005.09.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.086 c
6-1117460178
Flame
2005-05-30 17:36
2005.09.25
что за привычка закрывать темы?


3-1123259807
Оран Гутангович
2005-08-05 20:36
2005.09.25
could not convert variant of type(Null) into type (String)


14-1125299037
Layner
2005-08-29 11:03
2005.09.25
Русификация приложения через Translations Manager


14-1125574544
TUser
2005-09-01 15:35
2005.09.25
Примиримся ...


4-1122890368
Fin
2005-08-01 13:59
2005.09.25
Электронный справочник по Api