使用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;
有什么想法吗?提前致谢
答案 0 :(得分:1)
嗯,我知道这个问题是在几年前被问过的,但我对TChromium很新。这是我之前提出的解决方案。通常,TChromium发送Event 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调用它时,它似乎是不必要的。你觉得怎么样?
答案 1 :(得分:0)
我已经使用了DCEF 1和DCEF 3,如果你可以切换到3,你应该做很多改进。
以下是DCEF 3的链接: https://code.google.com/p/dcef3/
你所拥有的方法应该有效:
procedure TMainForm.Chromium1LoadEnd(Sender: TObject; const browser: ICefBrowser;
const frame: ICefFrame; httpStatusCode: Integer);
begin
if IsMain(browser, frame) then begin
// main window done from here on in
end;
end;
如果不是,它可以是2件事之一,
您的表单数据搞砸了,不知何故事件已不再附加,请仔细检查组件中的事件属性。
您的构建有问题,尝试在samples目录中运行GUIClient,它有相同的事件并且应该被触发,如果它没有尝试找到另一个构建(最好是之前链接到的DCEF3版本) )
答案 2 :(得分:0)
我有同样的问题,我注意到当httpStatusCode为200时页面已满载。为方便起见,我实现了一个布尔变量。
TForm2 = class(TForm)
procedure Chromium1LoadEnd(Sender: TObject; const browser: ICefBrowser;
const frame: ICefFrame; httpStatusCode: Integer);
procedure Chromium1LoadStart(Sender: TObject; const browser: ICefBrowser;
private
{ Private declarations }
IsFullyDisplayed : Boolean;
end;
procedure TForm2.Chromium1LoadEnd(Sender: TObject; const browser: ICefBrowser;
const frame: ICefFrame; httpStatusCode: Integer);
begin
if frame = nil then
exit;
if httpStatusCode=200 then
begin
IsFullyDisplayed:=True;
end;
end;
procedure TForm2.Chromium1LoadStart(Sender: TObject; const browser: ICefBrowser;
const frame: ICefFrame);
begin
IsFullyDisplayed := False;
end;