delphi - ドキュメントの完成後にアドセンス コード TWebbrowser オブジェクトを変更するにはどうすればよいですか

Question

ドキュメントの完成後にアドセンス コード TWebbrowser オブジェクトを変更するにはどうすればよいですか

div の innerhtml を変更しようとしましたが、アドセンスのコマーシャルが表示されません。

私のコードブロック

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;

Answer 1

di.innerHTMLの代わりに使ってみてくださいdoc2.body.innerHTML。