Простой парсер, не могу получить href из html (DOM)

[strongmaster]

Всем привет. Помогите написать простенький парсер, не могу получить href в финале.
Выдергивает все что Li, потом внутри в h3, а потом в A.

        vTags := WebBrowser1.OleObject.Document.getElementsByTagName('Li');
        n1:=vTags.Length;
 
        if n1>0 then
        begin
 
          for i1:=0 to n1-1 do
          begin
          vTags1 := vTags.item(i1).getElementsByTagName('H3');
          n2:=vTags1.Length;
 
            if n2>0 then
            begin
 
              for i2:=0 to n2-1 do
              begin
              sMemo2.Lines.Add(vTags1.item(i2).InnerHTML);
              end;
 
            end;
 
          end;
 
        end;

В sMemo2 получается:

<A href="http://www.google.ru/url?url=http://www.elle.ru/tests/&rct=j&frm=1&q=&esrc=s&sa=U&ved=0CBMQFjAAahUKEwj4n4380ZnHAhWI2SwKHdhEB2A&usg=AFQjCNFKGc7G2o3Ta0OKGyFYhC8EjSKUHg" target=_blank><B>?????</B> ??????: ?????? ??????????????? <B>?????</B> ?????????, ??? <B>...</B></A>

Как получить href? Чето не пойму. Спасибо.

[Filka]

https://code.google.com/p/powtils/downloads...07.zip&can=2&q=

[Fr0sT]

Ну это не парсер, html уже распарсен WebBrowser-ом. А задача решается просто: получением узла A внутри H3 и чтением его атрибута href. innerHTML вообще применять не нужно, всё уже разложено по блюдечкам с голубой каемочкой

Добавлено 10.08.15, 08:14
Filka, типичный пример ответа на сорсах.
ТС: - Помогите найти ошибку в применении класса X
Отв: - Выкинь класс X, бери класс Y, правда, он устроен совершенно по-другому, не обновлялся аж с 2007 года, содержит 0 документации, но ты же программист и не боишься трудностей, правда?