Главная страница
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.026 c
14-1125157557
Piter
2005-08-27 19:45
2005.09.25
Конвертирование файлов FLV


6-1117379207
Галинка
2005-05-29 19:06
2005.09.25
Можно ли писать интернет-примочки на Дельфи?


14-1125469229
syte_ser78
2005-08-31 10:20
2005.09.25
Совместимость фирменной эпсоновской краски с другими.


1-1125862322
ArtemESC
2005-09-04 23:32
2005.09.25
"Выкомпилировать" функцию


9-1117097360
Buzzz
2005-05-26 12:49
2005.09.25
Аналог TMemo в GLScene