Вниз
Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c
1-1125571062
dreamse
2005-09-01 14:37
2005.09.25
Вопрос про TreeView


1-1125917246
DesWind
2005-09-05 14:47
2005.09.25
Обясните смылсл данных действий.


4-1122815038
Dust
2005-07-31 17:03
2005.09.25
висяк на Winsock.Socket(PF_INET, SOCK_STREAM, IPPROTO_TCP);


14-1125134032
Windows
2005-08-27 13:13
2005.09.25
Доработать >>>Соединить и сжать несколько файлов в один.<<<


14-1125945109
Imbalancer
2005-09-05 22:31
2005.09.25
Need help VBA




   Наверх