How to corectly handle pop-ups without crashing Delphi

[Lu53]

Dear All,

the website I have to deal with uses pop-ups. In the demos I looked into, pop-ups are simply disabled:

Code: Select all

Procedure TMainForm.Chromium1BeforePopup(....);
  Result := (targetDisposition in [WOD_NEW_FOREGROUND_TAB, WOD_NEW_BACKGROUND_TAB, WOD_NEW_POPUP, WOD_NEW_WINDOW]);

I have no idea what exactly this Result := line does, but, in order to allow pop-ups, I found out that just commenting out the Result := ... line does the job. So now I get pop-ups. Fine!

When the user later on closes a popup, I get a Chromium1Close followed (!!) by a Chromium1BeforeClose. In the demos, these events are handled like this;

Code: Select all

Procedure TMainForm.Chromium1Close(...);
   PostMessage(Handle, CEF_DESTROY, 0, 0);
   aAction := cbaDelay;
 
and 

Procedure TMainForm.Chromium1BeforeClose(...);
     CEFSentinel1.Start;

Unfortunately, this shuts down the whole app.

What I did to help myself was this:

Code: Select all

Procedure TMainForm.Chromium1Close(...);
   If browser=Chromium1.Browser then
    Begin   
     aAction := cbaDelay;
     PostMessage(Handle, CEF_DESTROY, 0, 0);
    End
   Else 
     aAction := cbaClose;
 
and 

Procedure TMainForm.Chromium1BeforeClose(...);
   If browser=Chromium1.Browser then
     CEFSentinel1.Start;

This SEEMS to work in that the pop-ups close and the program continues, but somehow this destabilizes Delphi, in particular in my case, the exception handling mechanism. In any try .. except on E:Exception do ... end following the close, that occurs anywhere in the code, I get an AV when accessing E.

My question is: How do I have to correctly handle pop-ups and not mess the rest of my program?

Thank you very much for any idea on this!

Lu

[dilfich]

Code: Select all

  Chromium1.LoadURL(targetUrl);  
  Result := True;

Or is this option not suitable?

[Lu53]

Thank you for your input, Dilfich!
Unfortunately, I'm not sure to where you are trying to point me to.
Maybe this extra info helps: The website I have to deal with is not under my control, so I have to live with the popups.

[salvadordf]

Hi,

Most of the demos block popup windows because they show how to do one or two things. Adding popup handling to all of them would complicate the code.

There are 2 ways to handle popup windows :

• Letting CEF create the new popup windows : This option is used by the MiniBrowser demo.
• Creating the popup windows from Delphi code : This option is used by the PopupBrowser2 demo.

If you don't need to create Delphi forms for the popups then use the code in the MiniBrowser demo. Notice that many events in that demo call the Chromium1.IsSameBrowser function because using this option for the popup windows will use the same TChromium component for your main browser AND the browser in the new popup windows. This means that all the browser events in the popup windows will trigger TChromium events in your main form too.

If you need absolute control of all the forms created by the browser then you have to use the code in the PopupBrowser2 demo. The challenge with this solution is that you have to create and destroy the popup forms in the main application thread but the TChromium events are executed in a CEF thread. This is the reason why this demo creates a hidden form that will be used as a popup form when CEF needs to show a popup window. All that process has to be protected by critical sections and coordinated with windows messages.

Dilfich mentioned an alternative way to show popup windows. You would only need to block the popup windows and copy their URL to load them with your TChromium components. This is much easier but you will have issues if the web page that created the popup window tries to modify the browser in the popup window and you'll also have issues handling POST requests with this solution.

[Lu53]

Thank you Salvador for your explanations!
I'll checkk the resources you mentioned.
Regards, Lu

[coater]

How to show DevTools for popup browser?
Keen for your help, thank you!

[salvadordf]

How to show DevTools for popup browser?
Keen for your help, thank you!

In this case I would use a custom Delphi form for the popup window that includes a second TCEFWindowParent for the DevTools.

[coater]

How to show DevTools for popup browser?
Keen for your help, thank you!

In this case I would use a custom Delphi form for the popup window that includes a second TCEFWindowParent for the DevTools.

Is it possible to use the same DevTools as main browser?

[salvadordf]

I haven't tried it but I guess it's also possible.

If you let CEF create the window popups you could also show the DevTool by adding a custom context menu option.

Then use the regular TChromium.ShowDevTools function for the main browser and a custom code for all other popup browsers like this :

Code: Select all

procedure TForm1.Chromium1ContextMenuCommand(Sender: TObject;
  const browser: ICefBrowser; const frame: ICefFrame;
  const params: ICefContextMenuParams; commandId: Integer;
  eventFlags: Cardinal; out Result: Boolean);
var
  TempPoint : TPoint;
  TempInfo : TCefWindowInfo;
  TempClient : ICefClient;
  TempSettings : TCefBrowserSettings;
begin
  Result := False;

  case commandId of
    MINIBROWSER_CONTEXTMENU_SHOWDEVTOOLS :
      if Chromium1.IsSameBrowser(browser) then
        begin
          TempPoint.x := params.XCoord;
          TempPoint.y := params.YCoord;
          Chromium1.ShowDevTools(TempPoint, nil);
        end
       else
        try
          WindowInfoAsPopUp(TempInfo, browser.Host.WindowHandle, 'DevTools');
          TempClient := TCustomClientHandler.Create(Chromium1, True);
          FillChar(TempSettings, SizeOf(TCefBrowserSettings), 0);
          browser.Host.ShowDevTools(@TempInfo, TempClient, @TempSettings, nil);
        finally  
          TempClient := nil
        end; 
  end;
end;

This code assumes you have a TChromium component called Chromium1

[salvadordf]

I tested that code in the MiniBrowser demo and uploaded it to GitHub.

Download CEF4Delphi again and load this address in the MiniBrowser demo to test it :
https://www.w3schools.com/jsref/tryit.a ... _win_open3