Chromium1.CreateBrowser(CEFWindowParent1,'')，Fast exit of chorme process

[dreamnyj]

I use oldcef4delphi in Delphi 11.2,

I created a new test program and it works normally. The web page displays normally.



however



My problem is, in my problematic project.

Code: Select all

GlobalCEFApp := TCefApplication.Create;
if GlobalCEFApp. StartMainProcess then
begin
Application.Initialize;
Application. MainFormOnTaskbar := True;
Application. CreateForm(TFormMain, FormMain);
Application. CreateForm(TFormShowTips, FormShowTips);
Application. CreateForm(TDM, DM);
Application.Run;
end;





procedure TFrameReport. Button1Click(Sender: TObject);
begin

//Fast exit of chorme process
Chromium1.CreateBrowser(CEFWindowParent1,''); 

Chromium1.LoadURL('www.google.com');
end;

The question I want to ask is, does this have anything to do with multithreading or TTimer controls?

The chorme process exited in a flash. Can you give me some advice?

[salvadordf]

Hi,

The TChromium.CreateBrowser function is asynchronous and it returns before the browser is created.

Use the code in the SimpleBrowser2 demo as a template for your application. That demo uses the TChromium.OnAfterCreated event to send a message to the main form that enables the user interface and clicks the "Go" button to load the initial web page.

[dreamnyj]

My problem was solved, and the final original is that I
Put A lot of code to prevent program reentry is placed in front of these codes.

Code: Select all

{my other code

...
...
}

GlobalCEFApp := TCefApplication.Create;

if GlobalCEFApp. StartMainProcess then
begin
      Application.Initialize;
      Application.MainFormOnTaskbar := True;
      Application.CreateForm(TFormMain, FormMain);
      Application.Run;
end;

Thank you again for your warm guidance. Good luck.