德爾福：TWebBrowser - 獲取一個類的所有錨點標記的href

我想獲得類「pagination pagination_wrapper」的所有標記的href。我使用德爾福XE2和TWebBrowser德爾福：TWebBrowser - 獲取一個類的所有錨點標記的href

<ul class="pagination pagination_wrapper"> 
    <li> 
     <a href="http://domain.com/1">1</a> 
    </li> 
    <li> 
     <a href="http://domain.com/2">2</a> 
    </li> 
    <li> 
     <a href="http://domain.com/3">3</a> 
    </li> 
    <li> 
     <a href="http://domain.com/4">4</a> 
    </li> 
    <li> 
     <a href="javascript:void(0);">#</a> 
    </li> 
</ul>

我已經嘗試了很多，但沒有成功。可能有TYPO請忽略。我需要一個工作代碼。

這是我試過沒有運氣的代碼片段。

var 
    MyDiv, HtmlElem1 : IHTMLElement; 
    HtmlAnchor  : IHTMLAnchorElement; 
    AnCol1, AnCol2 : IHTMLElementCollection; 
begin 

    GetElementByClass(ewb.Document, 'pagination pagination_wrapper', MyDiv); // works fine 
    Supports(MyDiv.children, IHTMLElementCollection, AnCol1); 

    ShowIt(AnCol1.Length-1);  // 5 

    for i := 0 to AnCol1.Length-1 do 
    begin 
    if Supports(AnCol1.item(i,0), IHTMLElement, HtmlElem1) then 
    begin 
     ShowIt('HtmlElem1: '+HtmlElem1.innerHTML); // shows perfect <a> HTML markup 

     Supports(HtmlElem1.children, IHTMLElementCollection, AnCol2); 
     ShowIt(AnCol2.length); // 1 

     Supports(AnCol2.tags('a'), IHTMLElementCollection, AnCol2); 

     ShowIt(AnCol2.length); // 1 

     if Supports(AnCol2.item(i, 0), IHTMLAnchorElement, HtmlAnchor) then 
     ShowIt(HtmlAnchor.href); 
     else 
     ShowIt('Not Anchor element'); // always prints this, even IHTMLElement does not work 
    end 
    end; 
end;

=========================================== ==============================

function GetElementByClass(const Doc: IDispatch; const ClassName: string; var element : IHTMLElement): Boolean; 
var 
    Document: IHTMLDocument2;  // IHTMLDocument2 interface of Doc 
    Body: IHTMLElement2;   // document body element 
    Tags: IHTMLElementCollection; // all tags in document body 
    Tag: IHTMLElement;   // a tag in document body 
    i: Integer;     // loops thru tags in document body 
begin 
    Result := False ; 
    element := nil; 

    if not Supports(Doc, IHTMLDocument2, Document) then 
    raise Exception.Create('Invalid HTML document'); 

    if not Supports(Document.body, IHTMLElement2, Body) then 
    raise Exception.Create('Can''t find <body> element GetElementByClass()'); 

    Tags := Body.getElementsByTagName('*'); 

    for i := 0 to Pred(Tags.length) do 
    begin 
    Tag := Tags.item(I, EmptyParam) as IHTMLElement; 
    if Pos(ClassName, string(Tag.className)) > 0 then 
    begin 
     element := Tag; 
     Result := True; 
     Break; 
    end; 
    end; 
end;

在此先感謝。

來源

2015-08-26 STech

更改如下：

if Supports(AnCol2.item(i, 0), IHTMLAnchorElement, HtmlAnchor) then

到

if Supports(AnCol2.item(0, EmptyParam), IHTMLAnchorElement, HtmlAnchor) then

來源

2015-08-26 19:34:45 uri2x

相同的結果。沒有運氣。 @Uri Hartmann – STech

看看這個：http://s000.tinyupload.com/index.php?file_id=42630917647390880718 – uri2x

非常感謝。按預期工作。 @Uri Hartmann – STech

德爾福：TWebBrowser - 獲取一個類的所有錨點標記的href

回答

相關問題