Disclosure Statement: This site contains affiliate links, which means that I may receive a commission if you make a purchase using these links. As an eBay Partner, I earn from qualifying purchases.

右键单击"运行此插件"以播放闪光灯

Post Reply
User avatar
lovemit
Posts: 4
Joined: Tue May 05, 2020 7:20 am

右键单击"运行此插件"以播放闪光灯

Post by lovemit »

How can I turn on direct play?
Thank You !
run this plugin.png
You do not have the required permissions to view the files attached to this post.
User avatar
lovemit
Posts: 4
Joined: Tue May 05, 2020 7:20 am

右键单击"运行此插件"以播放闪光灯

Post by lovemit »

Use new version of cef4。
How can I turn on direct play?
Thank You !
run this plugin.png
User avatar
salvadordf
Posts: 4016
Joined: Thu Feb 02, 2017 12:24 pm
Location: Spain
Contact:

Re: 右键单击"运行此插件"以播放闪光灯

Post by salvadordf »

Hi,

You need to install the PPAPI Adoge Flash Plugin following these instructions :
https://www.briskbard.com/index.php?lang=en&faqitem=208

Then set these properties in your application to run the plugin automatically :

Code: Select all

GlobalCEFApp.FlashEnabled := True;
GlobalCEFApp.AutoplayPolicy := appNoUserGestureRequired;
Adobe will stop supporting that plugin in a few months :
https://support.microsoft.com/en-us/hel ... of-support
User avatar
lovemit
Posts: 4
Joined: Tue May 05, 2020 7:20 am

* :" "

Post by lovemit »

These two lines of code are added to view source
Flash still can't play automatically

-----------------------------------------------------------------------------------------------------

Code: Select all

begin
  CreateGlobalCEFApp;
  GlobalCEFApp.FlashEnabled := True;
  GlobalCEFApp.AutoplayPolicy:=appNoUserGestureRequired;
  // Internal_OnBeforeCommandLineProcessing
  // You *MUST* call GlobalCEFApp.StartMainProcess in a if..then clause
  // with the Application initialization inside the begin..end.
  // Read this https://www.briskbard.com/index.php?lang=en&pageid=cef
  if GlobalCEFApp.StartMainProcess then
  begin
    Application.Initialize;
    Application.CreateForm(TSimpleFMXBrowserFrm, SimpleFMXBrowserFrm);
    Application.Run;

    SimpleFMXBrowserFrm.Free;
  end;

  DestroyGlobalCEFApp;

end.

User avatar
salvadordf
Posts: 4016
Joined: Thu Feb 02, 2017 12:24 pm
Location: Spain
Contact:

Re: 右键单击"运行此插件"以播放闪光灯

Post by salvadordf »

I'm sorry I forgot to say that you may have to add TChromium.RunAllFlashInAllowMode := True; before the TChromium.CreateBrowser call.
User avatar
lovemit
Posts: 4
Joined: Tue May 05, 2020 7:20 am

Re: 右键单击"运行此插件"以播放闪光灯

Post by lovemit »

Thank you very much. This is really OK.
Post Reply