delphi 怎样修改WebBrowser加载页面的源代码并显示出来

哆嗦A梦

这样的，比方:我用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;

哆嗦A梦

改好了！:lol:

zhuangd

如何修改的，正学习中。谢谢