delphi - TChromium GetDevToolsUrl returns nothing

Question

I'm trying to call Chromium Dev Tools with this code from dcef3 demos:

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;

When i'm running programm, and pressing DevTools button, nothing happens, empty window, empty source code. For Debug im trying this:

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

And it return nothing(empty string). But this code Works Fine in dcef3 guidemo... And not works in my Programm.

Whats a problem?

Here is dcef3 guiclient demo Full Code - http://dumpz.org/589068/

Thanks

Answer 1

Searching yields a discussion on Google Groups where Henri Gourvest explains that for the dev-tools URL to work, you need to define a debugging port. For example:

CefRemoteDebuggingPort := 9000;

If that doesn't work, then you need to compare your code with the working demo and identify what else you're doing differently.