1

dcef3 デモからのこのコードで Chromium Dev Tools を呼び出そうとしています:

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 guidemo で正常に動作します...私のプログラムでは動作しません。

問題は何ですか？

ここに dcef3 guiclient デモの完全なコードがあります - http://dumpz.org/589068/

ありがとう

4

1 に答える 1

1

検索すると、 Henri Gourvest が dev-tools URL を機能させるには、デバッグ ポートを定義する必要があると説明しているGoogle グループに関するディスカッションが得られます。例えば：

CefRemoteDebuggingPort := 9000;

それでもうまくいかない場合は、コードを動作中のデモと比較し、他に何が違うのかを特定する必要があります。

于 2013-07-15T17:23:32.397 に答える