delphi 怎样修改WebBrowser加载页面的源代码并显示出来
这样的,比方:我用webBrowser加载了'www.baidu.com'发现:百度的Logo源代码在<div><img src='www.xx.gif'></div>//比方在这里我想在webbrowser加载页面的时候,获取它的源代码,添加一些代码,然后再用webBrowser再加载我已经修改好的代码该怎么做呢?
我现在只能获取 当前webBrowser加载页面的源代码,用Pos找到百度LOGO的位置。
不会在加载前修改T_T
我在网上找到这段代码但不会用。谁可以教教我。谢谢。
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;
改好了!:lol: 如何修改的,正学习中。谢谢
页:
[1]