delphi – 以编程方式创建ChromiumOSR时出错

发布时间：2020-12-15 09:28:37 所属栏目：大数据来源：网络整理

导读：我正在尝试以编程方式创建ChromiumOSR,但我一直收到错误(访问冲突). 以下是导致问题的示例代码： varpChromiumOSR: TChromiumOSR;begin pChromiumOSR := TChromiumOSR.Create(Self); pChromiumOSR.OnLoadEnd := pChromiumOSRLoadEnd; pChromiumOSR.Browser.M

我正在尝试以编程方式创建ChromiumOSR,但我一直收到错误(访问冲突).
以下是导致问题的示例代码：

var
pChromiumOSR: TChromiumOSR;
begin
  pChromiumOSR := TChromiumOSR.Create(Self);
  pChromiumOSR.OnLoadEnd := pChromiumOSRLoadEnd;
  pChromiumOSR.Browser.MainFrame.LoadUrl('www.google.com');
end;

问题是pChromiumOSR.Browser.MainFrame总是为零.如果我做
pChromiumOSR.load( ‘www.google.com’);我没有得到任何错误,但它没有触发onLoadend.

谁能给我任何关于我可能做错的建议？
我正在使用Delphi XE2,但不确定哪个版本的铬(我在哪里可以找到该版本？)

解决方法

您尝试使用Load方法加载页面是正确的.另一个是错误的,因为没有创建浏览器实例而失败.这是因为TChromiumOSR被设计为设计时组件而不是动态创建.

现在,创建Browser实例的唯一位置是Loaded方法,该方法在从流加载其父表单之后为组件调用.由于您是动态创建它,因此永远不会创建Browser实例.

由于某种原因,CreateBrowser方法(创建Browser实例)也被声明为private,这使得它的调用变得复杂(除非您决定修改源并使其公开).如果您不想更改DCEF源代码,可以使用类助手来提供对CreateBrowser方法的访问：

uses
  ceflib,cefvcl;

type
  TChromiumOSRHelper = class helper for TCustomChromiumOSR
  public
    procedure CreateBrowserInstance;
  end;

implementation

{ TChromiumOSRHelper }

procedure TChromiumOSRHelper.CreateBrowserInstance;
begin
  Self.CreateBrowser;
end;

然后创建一个Browser实例,在第一次访问Browser实例(这里是Load方法)之前添加CreateBrowserInstance调用：

var
  pChromiumOSR: TChromiumOSR;
begin
  pChromiumOSR := TChromiumOSR.Create(Self);
  pChromiumOSR.OnLoadEnd := pChromiumOSRLoadEnd;
  pChromiumOSR.CreateBrowserInstance;
  pChromiumOSR.Load('www.google.com');
end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!