文档完成后如何更改 AdSense 代码 TWebbrowser 对象答案

【问题标题】：How can i change adsense code TWebbrowser object after document complete文档完成后如何更改 AdSense 代码 TWebbrowser 对象
【发布时间】：2011-04-12 23:48:25
【问题描述】：

文档完成后如何更改 adsense 代码 TWebbrowser 对象

我尝试更改 div innerhtml，但我看不到 adsense 商业如何做到这一点

我的代码块

doc := ie.Document as IHTMLDocument3;
doc2 := ie.Document as IHTMLDocument2;

di := doc.getElementById('aliveli') as IHTMLElement;
s := tstringlist.Create;

s.Add('<script type="text/javascript"><!--');
s.Add('google_ad_client = "pub-8340139631405508";');
s.Add('/* 120x240, oluşturulma 28.10.2009 */');
s.Add('google_ad_slot = "8877320187";');
s.Add('google_ad_width = 468;');
s.Add('google_ad_height = 15;');
s.Add('//-->');
s.Add('</script>');
s.Add('<script type="text/javascript"');
s.Add('src="http://pagead2.googlesyndication.com/pagead/show_ads.js">');
s.Add('</script>');
s.Add('');

doc2.body.innerHTML := s.text;

【问题讨论】：

标签： delphi innerhtml twebbrowser

【解决方案1】：

尝试使用di.innerHTML 而不是doc2.body.innerHTML。

【讨论】：

在 webbrowser 代码中已成功更改，但有 javascript 且未重新加载，我看不到 adsense 广告
那么您可能必须自己下载原始 HTML，根据需要对其进行修改，然后通过其IPersist... 接口之一将其加载到 WebBrowser。