将Adsense代码插入嵌入式浏览器后如何运行？

Question

我需要使用任何语言（Delphi，C ++，C＃）的DOM API将Google广告添加到页面上。 我可以使用DOM在网页中添加Adsense代码，但是随后如何触发它运行？

广告代码通常在document.load事件中运行。 我如何附上我的功能，该事件？ （我也可以使用文档下载事件，但此事件与DOM不兼容。）

我需要将功能附加到document.load并且需要使用DOM功能来解析HTML代码，然后再运行Adsense Javascript代码。

Answer 1

使用delphi可以做到这一点：

procedure TForm1.FormCreate(Sender: TObject);
begin
  WebBrowser1.Navigate('http://stackoverflow.com');
end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; 
  const pDisp: IDispatch; var URL: OleVariant);
var
  Script: WideString;
begin
  Script := 'document.onload=alert("boo!");';
  if (pDisp as IWebBrowser) <> nil then
    ((pDisp as IWebBrowser).Document as IHTMLDocument2).parentWindow.execScript(Script, 'JScript');
end;

这也是有关使用TWebBrowser下沉事件的其他信息。 这可能对您有用。 请注意：

TEventObject = class(TDebugInterfacedObject, IDispatch)应该声明为： TEventObject = class(TInterfacedObject, IDispatch)

Answer 2

听起来更像是JavaScript问题。

如果使用jQuery之类的框架，所有这些操作将变得更加容易：它将使您能够轻松地从JavaScript代码访问DOM。

例如，请参阅http://docs.jquery.com/Tutorials:Getting_Started_with_jQuery ，以获取可轻松操纵页面DOM的官方教程。

这是此页面的摘录：

我们从一个空的html页面开始：

  <html> <head> <script type="text/javascript" src="jquery.js"></script> <script type="text/javascript"> // we will add our javascript code here </script> </head> <body> <!-- we will add our HTML content here --> </body> </html> 

此页面仅加载jquery.js库（确保URL指向您存储jquery副本的位置！此示例假定您将其存储在与该示例文件相同的目录中）。 有两个注释指示我们将在哪里使用代码扩展此模板。

正如使用jQuery时所做的几乎所有操作一样，它读取或操作文档对象模型（DOM）时，我们需要确保在DOM准备就绪后立即开始添加事件等。

为此，我们为文档注册了一个ready事件。

  $(document).ready(function() { // do stuff when DOM is ready }); 

将警报放入该函数没有多大意义，因为警报不需要加载DOM。 因此，让我们尝试一些更复杂的方法：单击链接时显示警报。

将以下内容添加到<body> ：

  <a href="">Link</a> 

现在更新$(document).ready处理程序：

  $(document).ready(function() { $("a").click(function() { alert("Hello world!"); }); }); 

然后，您只需将此JavaScript以生成纯文本的形式添加到生成它的Delphi，C ++或C＃代码中即可。 您必须将Google AdSense代码插入$(document).ready处理程序的主页中。

Answer 3

如果您需要从外部（而不是像jQuery那样从内部）访问DOM，则可以使用Delphi轻松进行。 但是，您首先应该从bsalsa安装出色的嵌入式Web浏览器组件TEmbeddedWB ，这使得使用浏览器非常容易。

将TEmbeddedWB组件放到您的表单上，并为OnDocumentComplete添加一个处理程序，该处理程序在完全访问文档的DOM时引发：

procedure TForm1.EmbeddedWB1DocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant);
begin
  // check that the event is raised for the outermost browser (not frames or iframes)
  if (pDisp as IUnknown) = (EmbeddedWB1.ControlInterface as IUnknown) then
  begin
    // do your work here
    // example: show a message 
    EmbeddedWB1.ExecScript('eval("alert(''Hello'')")', '');
  end;
end;

开始导航以对此进行测试：

EmbeddedWB1.Navigate('http://www.google.com');