字符串分析网页源码

procedure TForm1.Button1Click(Sender: TObject);
var
  doc:IHTMLDocument2;
  ln:IHTMLAnchorElement;
  i:integer;
  vHTML : OleVariant;
begin
  doc:=CoHTMLDocument.Create as IHTMLDocument2;
  doc.designMode:=‘ON‘;
  doc.charset:=‘UTF-8‘;
  vHTML := VarArrayCreate([0, 0], varVariant);
  vHTML[0] := strs.text;  //这里strs.text是我事先取得的一个页面的代码
  doc.Write(PSafeArray(TVarData(vHTML).VArray));

  for i:=0 to doc.links.length-1 do begin
    if SUCCEEDED(doc.links.item(i,0).QueryInterface(IHTMLAnchorElement, ln)) then
      memo2.Lines.Add(ln.href);
  end;
  doc.close;
  doc:=nil;
end;