使用 TChromium 时 LoadURL 出错

Question

我发现了出色的 Delphi Chromium 项目，用于以 Delphi 形式嵌入 Chrome。经过一些修改后，它在 Delphi7 中运行良好，我可以运行演示应用程序。

但是，当我使用该组件制作自己的应用程序时，我无法加载自己的网址。我收到访问冲突。

Chromium2.Browser.MainFrame.LoadUrl('http://www.example.com');

TChromium 组件正在工作，并且我将所有 DLL 放在正确的位置，因为如果我设置 DefaultUrl 它就可以正常工作。

我在 TPageControl 页面中有 Chromium2，并通过按钮的 OnClick 事件调用上面的代码。我收到 AccessViolation。大型机nil。

我找不到解决这个问题的方法，有人可以解决这个问题吗？

Answer 1

我仍然没有找到解决方案，但我找到了以下解决方法

procedure TForm1.lblWebsiteClick(Sender: TObject);
var MainFrame : ICefFrame;
begin
  MainFrame := Chromium2.Browser.GetMainFrame;
  MainFrame.LoadUrl('http://www.cookingisfun.ie');
end;

Answer 2

问题是主机仅在页面加载后才加载。

一方面，您需要这样做：

if Assigned(Chromium2.Browser.MainFrame)
    then  Chromium2.Browser.MainFrame...

但是，这不是首选的导航方式，而是您应该这样做：

Chromium1.Load( theUrl );

如果您仍然想使用 MainFrame，请在 OnLoadEnd事件。

Answer 3

遇到类似的问题，并在几个小时后找到了问题：

1. 如果 TChromium 位于应用程序的主窗体上，则可以。

2. 如果 TChromium 不在主窗体（或框架）上，则：

   1. 打开 cef.inc 并删除要定义的点：

      <前><代码>{.$DEFINE CEF_MULTI_THREADED_MESSAGE_LOOP}

   2. 删除 DefaultURL 值，使其成为空字符串。

我用谷歌搜索了 CEF_MULTI_THREADED_MESSAGE_LOOP 但根本没有找到太多东西。

最后，存在调整大小/刷新问题（即使将对齐方式设置为 alClient）。短期内修复
crmLoadEnd 事件执行类似以下操作：

     if crm.Height < panclient.Height then
        crm.Height := panclient.Height;

Answer 4

构建应用程序的文件夹中是否包含所有必需的 DLL？

您需要：libcef.dll、icudt.dll...

检查此线程 他们的支持小组。

---

当您构建/运行演示时，它们会构建在此子文件夹 (*DCC_ExeOutput*) 中：DCEF\bin\
这就是为什么它与他们合作......

Answer 5

也遇到了这个问题。看起来 MainFrame 是在框架/窗口可见时首先创建的。
但有一个简单的方法可以解决这个问题。只需直接在 TChromium 对象上调用 .Load('about:blank') 即可。这将更早地初始化丢失的帧。