IHTMLElementCollection을 반복합니다.

Question

IHTMLElementCollection을 반복 할 수있는 방법이 있습니까?

같은

var 
    e : IHTMLLinkElement; 
elementCollection:IHTMLElementCollection; 
begin 
    for e in elementCollection do 
     showmessage(e.caption); 
end; 

내가 그러나 그것은 많은 내가 이해할 수로 델파이에서 지원되지 않습니다, _NewEnum이라는 속성이 알고있다.

갱신 : apperently 링크는 IHTMLElement하지 IHTMLLinkElement

Answer 1

for I := 0 to Pred(elementCollection.length) do 
begin 
    e := elementCollection.item(I, EmptyParam) as IHTMLElement; 
    //... 
end; 

Answer 2

_NewEnum은 다음과 같습니다 사용하는 코드입니다. 당신은 컬렉션에 링크 요소 항목을 가지고 있는지 있다면, 당신은 as IHTMLAnchorElement에 내부 루프의 as IHTMLElement 부분 (그리고 ELEM 값 유형)를 변경할 수

uses MSHTML, ActiveX; 

var 
    collection:IHTMLElementCollection; 
    enum:IEnumVariant; 
    v:OleVariant; 
    u:IUnknown; 
    element:IHTMLElement; 
begin 
    //... 
    enum:=collection._newEnum as IEnumVariant; 
    while enum.Next(1,v,u)=S_OK do 
    begin 
    elem:=u as IHTMLElement; 
    //... 
    end; 

(IHTMLLinkElement는 완전히 다른 무언가를 것으로 보인다)