Главная » 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