请问如何用Twebbrowser获得xml文档？
可以用下面的代码获得Html，但是XML就不可以，应该如何取得。
procedure TForm1.cNavigateComplete2(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
showmessage((c.Document as IHTMLDocument2).body.outerHTML)
end;

[解决办法]
uses msxml;

....
var
v : variant;
aintf : IXMLDOMDocument;
begin
v := WebBrowser1.OleObject.Document.XMLDocument;
aintf := IUnknown(v) as IXMLDomDocument;
ShowMessage( aintf.xml);