哆嗦A梦 发表于 2014-2-24 16:08:17

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;




哆嗦A梦 发表于 2014-2-24 17:18:57

改好了!:lol:

zhuangd 发表于 2022-11-30 16:47:22

如何修改的,正学习中。谢谢
页: [1]
查看完整版本: delphi 怎样修改WebBrowser加载页面的源代码并显示出来