TChromium GetDevToolsUrl什么也不回

Question

我试图用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按钮，什么都不会发生，空窗口，空源代码。对于Debug im来说：

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

它什么也不返回(空字符串)。但是这个代码在dcef3指南中很好.在我的程序里不起作用。

有什么问题吗？

以下是dcef3指南演示完整代码- http://dumpz.org/589068/

谢谢

Answer 1

搜索产生浅谈谷歌群，Henri解释说，要使开发工具URL工作，您需要定义一个调试端口。例如：

CefRemoteDebuggingPort := 9000;

如果这样做不起作用，那么您需要将您的代码与工作演示进行比较，并确定您正在做的其他事情不同。