使用WebBrowser加载页面时,有些时候,为了特殊的目的,要修改加载后的页面
为了实现这个目的,必须使用IHTMLTxtRange接口
代码如下:
01 procedure DoChangePageCode(Doc: IDispatch);
02 var
03 tr: IHTMLTxtRange;
04 s: string;
05 begin
06 tr := ((Doc as IHTMLDocument2).body as IHTMLBodyElement).createTextRange;
07 s := tr.htmlText; // 取出页面的代码
08 // 此处就能随意改了
09 tr.pasteHTML(s); // 改完后的代码写回去
10 end;
动态的修改WebBrowser加载页面的内容
最新推荐文章于 2022-06-01 07:33:29 发布