delphi - 在Chromium中加载页面时，如何可靠地(以编程方式)知道

使用TChromium(DCEF1)的OnLoadEnd事件时遇到问题。

我有一个带有TButton和TChromium的表单。

按钮的OnClick事件调用一个函数，该函数列出已加载页面的形式。如果我等待页面加载完成，然后单击按钮，则此功能正常运行；但是，如果我从TChromium OnLoadEnd事件处理程序中调用此函数，则永远不会调用该回调函数，因此，我得到一个空列表。

按钮代码(将注释读入代码):

procedure TForm2.Button3Click(Sender: TObject);
var
  Q: TWebChromium;
begin
  Q := TWebChromium.Create(Chromium1); // <- class to access DOM
  Q.WebFormNames; // <- method to get forms name
  ShowMessage(Q.Forms.Text); // <- show forms
end;

OnLoadEnd代码:

procedure TForm2.Chromium1LoadEnd(Sender: TObject; const browser: ICefBrowser;
  const frame: ICefFrame; httpStatusCode: Integer; out Result: Boolean);
begin
  if (browser <> nil) and (browser.GetWindowHandle = TChromium(Sender).BrowserHandle) and ((frame = nil) or (frame.IsMain)) then
  begin
    Button3Click(nil);
  end;
end;

获取表单名称的方法代码(将注释读入代码):

procedure TWebChromium.WebFormNames;
var
  Finish: Boolean;
  EndTime: TTime;
begin
  FForms.Clear; // <- property (TStringList)
  if not Assigned(FWebBrowser) then // <- FWebBrowser: property that contain the TChromium
    raise Exception.Create('WebBrowser not assigned');
  if not (FWebBrowser is TChromium) then
    raise Exception.Create('The WebBrowser property is not a TChromium.');

  Finish := False;
  TChromium(FWebBrowser).Browser.MainFrame.VisitDomProc(
        procedure (const doc: ICefDomDocument) // <- this procedure is not called if this method is called from OnLoadEnd event
        begin
          FForms.CommaText := GetFormsName(doc.Body);
          Finish := True;
        end
  );
  EndTime := IncSecond(Time, 4);

  repeat Application.ProcessMessages until Finish or (Time > EndTime);
  if Time > EndTime then
    raise Exception.Create('Time out');
end;

最佳答案

好吧，我知道这个问题是几年前提出的，但是我对TChromium还是很陌生。这是我从以前的建议中提出的解决方案。通常，TChromium发送事件OnLoadEnd，但在加载之前发送事件，例如JS。因此，我解决了该问题，以便在OnLoadEnd过程中等待一段时间，以防万一仍有脚本加载，然后像这样发送通知

procedure TForm1.OnLoadEndCust(Sender: TObject; const browser: ICefBrowser;
  const frame: ICefFrame; httpStatusCode: Integer);
var EndTime: TTime;
begin
  EndTime := IncSecond(Now, 2);

  repeat Application.ProcessMessages until (Now > EndTime);

end;

到目前为止-足够了，但是还有其他更好或更优雅的解决方案吗？

以及为什么我们应该在上面的代码中使用VisitDomProc？当我们从OnLoadEnd调用它时，这似乎是不必要的。你觉得男人呢？

关于delphi - 在Chromium中加载页面时，如何可靠地(以编程方式)知道，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/13875271/