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

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

TWebBrowser список ссылок ячейки таблицы

ford ©   (2009-09-03 12:05:00) 

Здравствуйте!
На форме установлен компонент TWebBrowser, загружаю туда HTML
внутри есть такая табличка
<table class='grid' cellspacing='0'>
<tr>
   <th> </th>
   <th>name</th>
   <th>param</th>
   <th>count</th>
   <th>else</th>
   <th colspan='2'>doing</th>
</tr>
       <tr class='inactive'>
       <td> </td>
       <td nowrap>art</td>
       <td nowrap>100%</td>
       <td nowrap align='right'>2</td>
       <td>nothing</td>
               <td colspan='2' align='center'><a href='/positions/clear/art'>Clear</a></td>
           </tr>
       <tr>
       <td> </td>
       <td nowrap>canon</td>
       <td nowrap>70%</td>
       <td nowrap align='right'>10</td>
       <td>nothing</td>
               <td><a href='/positions/add/1'>add</a></td>
       <td><a href='/positions/del/1'>del</a></td>
           </tr>
   </table>
достаю текст ячеек таблицы следующим способом

 ovTable := Web.OleObject.Document.all.tags('TABLE').item(1);
  for i := 0 to (ovTable.Rows.Length - 1) do
  begin
    Form1.ListBox1.Items.Add('');
    for j := 0 to (ovTable.Rows.Item(i).Cells.Length - 1) do
    begin
        Form1.ListBox1.Items[Form1.ListBox1.Items.Count-1]:=Form1.ListBox1.Items[Form1.ListBox1.Items.Count-1]+'|'+ovTable.Rows.Item(i).Cells.Item(j).InnerText;
    end;
  end;


с текстом все замечательно
но как вытащить из текущей ячейки ссылку ???
попробовал взять Children текущего IHTMLElement как IHTMDocument и взять его Links но как выяснилось
Children у всех ячеек = nil

можно конечно взять свойство InnerHTML
и парсить строку на наличие там ссылок, но не хочется изобретать велосипед, наверняка есть более изящный способ, например с использованием свойств и методов IHTMLElement

вытаскивать все ссылки из документа получается
но, в данном случае надо именно из ячейки т.к. по алгоритму, нажимать или нет на ссылку зависит от того что написано в других я чейках строки таблицы

---

KilkennyCat   (2009-09-03 18:59:00) [1]

> если бы дали ссылку хотябы на кусок MSDN

ссылка MSDN находится легко.

> то я не потратил бы несколько часов

поиск в MSDN устроен просто

> на глупости

ты потратил не из-за нас

> занимался бы дальнейшим "личностным ростом"

фигня все это. в 2012 году мы все умрем.

---

Омлет   (2009-09-03 16:10:00) [2]

Если бы Вы не написали "Хоть хтонибудь бы подсказал", я бы не иронизировал. Честно )

---

ford   (2009-09-03 16:03:00) [3]

> Омлет   (03.09.09 15:26) [2]
>
> Мы дали тебе возможность самому разобраться. Здесь личностный
> рост превыше куска кода.


если бы дали ссылку хотябы на кусок MSDN в котором все это написано
то я не потратил бы несколько часов на глупости
а как Вы выразились занимался бы дальнейшим "личностным ростом"

---

Омлет   (2009-09-03 15:26:00) [4]

Мы дали тебе возможность самому разобраться. Здесь личностный рост превыше куска кода.

---

ford   (2009-09-03 14:40:00) [5]

Хоть хтонибудь бы подсказал что Children это не что иное как IHTMLElementsCollection !!!!

в итоге код такой :

  ovTable := Web.OleObject.Document.all.tags('TABLE').item(0);
  for i := 0 to (ovTable.Rows.Length - 1) do
  begin
    Form1.ListBox1.Items.Add('');
    for j := 0 to (ovTable.Rows.Item(i).Cells.Length - 1) do
    begin
       IDisp:=ovTable.Rows.Item(i).Cells.Item(j).Children;
       IDisp.QueryInterface(IHTMLElementCollection,El);
       ovLinks:=El.tags('a');
       for k:=0 to ovLinks.Length-1 do
        Begin
         IDisp:=OvLinks.Item(k);
         IDisp.QueryInterface(IHTMLElement,ch);
         Form1.ListBox1.Items[Form1.ListBox1.Items.Count-1]:=Form1.ListBox1.Items[Form1.ListBox1.Items.Count-1]+'|'+ch.GetAttribute('href',1);
        End;
       Form1.ListBox1.Items[Form1.ListBox1.Items.Count-1]:=Form1.ListBox1.Items[Form1.ListBox1.Items.Count-1]+'|'+ovTable.Rows.Item(i).Cells.Item(j).InnerText;//+'('+ovTable.Rows.Item(i).Cells.Item(j).GetAttribute('href',0)+')';
    end;
  end;


так я получаю ссылку из выбранной ячейки таблицы

---

Наверх