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

时间:2011-04-12 23:48:26

标签: delphi innerhtml twebbrowser

如何在文档完成后更改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;

1 个答案:

答案 0 :(得分:0)

尝试使用di.innerHTML代替doc2.body.innerHTML

相关问题