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;
本文来自Delphi之窗,原文地址:http://www.52delphi.com
Delphi动态的修改WebBrowser加载页面的内容
最新推荐文章于 2021-06-10 17:11:49 发布