Delphi TChromium GetDevToolsUrl不返回任何内容

我试图使用dcef3演示中的以下代码调用Chromium开发工具：

procedure TMainForm.actDevToolExecute(Sender: TObject);
begin
  actDevTool.Checked := not actDevTool.Checked;
  debug.Visible := actDevTool.Checked;
  Splitter1.Visible := actDevTool.Checked;
  if actDevTool.Checked then
  begin
    if not FDevToolLoaded then
    begin
      debug.Load(crm.Browser.Host.GetDevToolsUrl(True));

      FDevToolLoaded := True;
    end;
  end;
end;

当我运行程序并按下DevTools按钮时，什么也没发生，空窗口，空源代码。 对于调试，我尝试以下操作：

showmessage(crm.Browser.Host.GetDevToolsUrl(True));

并且它不返回任何内容（空字符串）。 但这段代码在dcef3指南中运行良好。。。在我的程序中不起作用

有什么问题吗

以下是dcef3 GUI客户端演示完整代码-

谢谢

Henri Gourvest解释说，要使开发工具URL正常工作，您需要定义一个调试端口。例如：

CefRemoteDebuggingPort := 9000;

如果这不起作用，那么您需要将您的代码与正在运行的演示进行比较，并确定您还有哪些不同之处。

搜索结果，Henri Gourvest解释说，要使开发工具URL起作用，您需要定义一个调试端口。例如：

CefRemoteDebuggingPort := 9000;

---

如果这不起作用，那么您需要将您的代码与正在运行的演示进行比较，并确定您还有哪些不同之处。

它确实起作用。。。只是不要忘记在调用

CefLoadLib

函数之前指定该值；e、 g.在单元的

初始化
部分。我希望如此，@Tlama，但由于我们无法看到失败项目中的所有代码，因此无法确定Priler是否已经尝试过，以及代码是否存在其他问题。我可以重现问题（使用普通项目）这就解决了…我把远程调试端口：=9000；在Form1.Activate程序中，但它仍然不起作用，我应该将此代码放在哪里？无论如何，您可以指定介于1024和65535之间的值；它不是固定为9000（请参阅）。它确实有效。。。只是不要忘记在调用
CefLoadLib
函数之前指定该值；e、 g.在单元的
初始化
部分。我希望如此，@Tlama，但由于我们无法看到失败项目中的所有代码，因此无法确定Priler是否已经尝试过，以及代码是否存在其他问题。我可以重现问题（使用普通项目）这就解决了…我把远程调试端口：=9000；在Form1.Activate程序中，但它仍然不起作用，我应该将此代码放在哪里？无论如何，您可以指定介于1024和65535之间的值；它没有固定为9000（请参阅）。