Форум программистов [Powered by Invision Power Board]

Код

unit uParseHTML;    
interface    
uses Classes, mshtml, ActiveX, Variants;    
procedure Init_parser;    
procedure Close_parser;    
procedure daj_all_link(var aBuff:AnsiString;aLinkList,aTextList:TStrings);    
implementation    
var    
  iDoc : IHTMLDocument2;    
procedure Init_parser;    
begin    
  idoc := CoHTMLDocument.Create as IHTMLDocument2;    
end;    
procedure Close_parser;    
begin    
  if assigned(iDoc) then    
  begin    
    iDoc.Close;    
    iDoc := nil;    
  end;    
end;    
procedure set_buff(var aBuff:AnsiString);    
var v : Variant;    
begin    
  v    := VarArrayCreate([0, 0], varVariant);    
  v[0] := aBuff;    
  idoc.clear;    
  idoc.write(PSafeArray(TVarData(v).VArray));    
end;    
procedure daj_all_link_2(var aLinkList,aTextList:TStrings);    
var    
  v : OleVariant;    
  j : Integer;    
  d : IDispatch;    
  e : IHTMLElement;    
  l : IHTMLAnchorElement;    
  c : IHTMLElementCollection;    
  z : string;    
  s : string;    
begin    
  aLinkList.Clear;    
  aTextList.Clear;    
  v := 'A';    
  d := iDoc.all.tags(v);    
  if assigned(d) then    
  begin    
    d.QueryInterface(IHTMLElementCollection, c);    
    if assigned(c) then    
    begin    
      for j:=1 to c.Get_length do    
      begin    
        d := c.item(pred(j),0);    
        d.QueryInterface(IHTMLElement, e);    
        d.QueryInterface(IHTMLAnchorElement, l);    
        if assigned(e) and assigned(l) then    
        begin    
          z := l.href;    
          if aLinkList.IndexOf(z)=-1 then    
          begin    
            aLinkList.Add(z);    
            aTextList.Add(e.innerText);    
          end    
        end    
      end    
    end    
  end    
end;    
procedure daj_all_link(var aBuff:AnsiString;aLinkList,aTextList:TStrings);    
begin    
  set_buff(aBuff);    
  daj_all_link_2(aLinkList,aTextList);    
end;    
end.