Mar 28

Как можно получить доступ к DOM не используя TWebBrowser?

17:15 
uses

 ActiveX,

 MSHTML;

 

procedure TForm1.Button1Click(Sender: TObject);

var

 vContext: OleVariant;

 vDocument: IHTMLDocument2;

begin

 vDocument := CoHTMLDocument.Create as IHTMLDocument2;

 vContext := VarArrayCreate([0, 0], varVariant);

 vContext[0] := '<html><body><a href="">a tag1</a><a href="">a tag2</a></body></html>';

 vDocument.Write(PSafeArray(TVarData(vContext).VArray));

 vDocument.Close;

 ShowMessage(vDocument.body.parentElement.outerHTML);

end;


http://www.delphimaster.ru/cgi-bin/forum.pl?id=1111940008&n=4