Главная страница
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
4-1121990214
Flood_control
2005-07-22 03:56
2005.09.25
Закрытие приложений при запуске


3-1123763422
Lenik
2005-08-11 16:30
2005.09.25
Как задать в DBGrid русские имена столбцов


2-1124374419
Roman9
2005-08-18 18:13
2005.09.25
DBgrid


1-1125302111
highlander
2005-08-29 11:55
2005.09.25
Дерево классов в Делфи


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