核心提示:使用WebBrowser加载页面时,有些时候,为了特殊的目的,要修改加载后的页面为了实现这个目的,必须使用IHTMLTxtRange接口...
procedure DoChangePageCode(Doc: IDispatch);
var
tr: IHTMLTxtRange;
s: string;
begin
tr := ((Doc as IHTMLDocument2).body as IHTMLBodyElement).createTextRange;
s := tr.htmlText; // 取出页面的代码
// 此处就能随意改了
tr.pasteHTML(s); // 改完后的代码写回去
end;
还有内容使用 TWebBrowser 编辑网页: http://wystec.blog.163.com/blog/static/29614447201002711441148/