可以用下面的代码获得Html,但是XML就不可以,应该如何取得。
procedure TForm1.cNavigateComplete2(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
showmessage((c.Document as IHTMLDocument2).body.outerHTML)
end;
procedure TForm1.cNavigateComplete2(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
showmessage((c.Document as IHTMLDocument2).body.outerHTML)
end;
解决方案 »
- 本人进行一个远程监控编程,出现内存泄漏,如何解决啊?
- EnumThreadWindows怎么用啊?
- 如何得到RadioButton的checked属性改变的通知
- table在open时如果先设定filter,并将filtered设为true, 是否能提高效率?
- 使用什么控件可以画线?
- 快救我....
- 怎么用代码方式打开一个Access数据库呢?(ADO方式)
- 请教数据导入导出?高分等候
- 怎么实现delphi中用toolbar代替菜单
- 是不是安装上delphi6.0,有关visibroker and com+的编程环境都设置好了,为什么use orbpas老出错呢?
- delphi的世界,你在哪里?推荐
- Paradox默认值的问题,谁解决全部分给谁.....
var
v : variant;
aintf : IXMLDOMDocument;
begin
v := WebBrowser1.OleObject.Document.XMLDocument;
aintf := IUnknown(v) as IXMLDomDocument;
ShowMessage( aintf.xml);