Главная » Delphi » Интернет и сети » Как можно получить доступ к DOM не используя TWebBrowser?

Как можно получить доступ к 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