本文整理自网络,侵删。
CEF4Delphi 是由 SalvadorDíazFau 创建的一个开源项目,用于在基于Delphi的应用程序中嵌入基于Chromium的浏览器。
CEF4Delphi 基于Henri Gourvest 的 DCEF3。DCEF3的原始许可证仍适用于CEF4Delphi。阅读任何* .pas文件的第一行中的许可条款。
CEF4Delphi 使用CEF 3.3325.1756.g6d8faa4,其中包 Chromium 65.0.3325.181。CEF4Delphi使用的CEF3二进制文件可以在spotify下载:
32bit -> http://opensource.spotify.com/cefbuilds/cef_binary_3.3325.1756.g6d8faa4_windows32.tar.bz2
64bit -> http://opensource.spotify.com/cefbuilds/cef_binary_3.3325.1756.g6d8faa4_windows64.tar.bz2
CEF4Delphi是在Delphi 10.2 Tokyo上开发和测试的,已经在Delphi 7,Delphi XE和Delphi 10中测试过了。
有关CEF4Delphi的更多信息,请访问: https://www.briskbard.com/index.php?lang=en&pageid=cef
论坛:https://www.briskbard.com/forum
最新的组件支持 Windows 7, 8, 8.1, 10 或者更新版本.。如果需要在 Windows XP 和 Vista 中使用,请使用老版本: OldCEF4Delphi : https://github.com/salvadordf/OldCEF4Delphi
下面的代码是一些常用的设置, 包括将DLL文件放到一个单独的目录下面,以及让 cef 使用内置的 flash:
复制代码function CefLibPath: string;begin{$IFDEF CPUX64} Result := 'CEF_3.3239.1709\Core64';{$ELSE} Result := 'CEF_3.3239.1709\Core';{$ENDIF}end;
function PpapiFlashFileName: string;begin{$IFDEF CPUX64} Result := CefLibPath + '\plugins\pepflashplayer64.dll'{$ELSE} Result := CefLibPath + '\plugins\pepflashplayer32.dll'{$ENDIF}end;
begin GlobalCEFApp := TCefApplication.Create;
// In case you want to use custom directories for the CEF3 binaries, cache, cookies and user data. // If you don't set a cache directory the browser will use in-memory cache. GlobalCEFApp.FrameworkDirPath := CefLibPath; GlobalCEFApp.ResourcesDirPath := CefLibPath; GlobalCEFApp.LocalesDirPath := CefLibPath + '\locales'; GlobalCEFApp.Cache := CefLibPath + '\cache'; GlobalCEFApp.Cookies := CefLibPath + '\cookies'; GlobalCEFApp.UserDataPath := CefLibPath + '\User Data'; GlobalCEFApp.AcceptLanguageList:= 'zh-CN'; GlobalCEFApp.LocalesRequired := 'zh-CN'; GlobalCEFApp.Locale := 'zh-CN'; GlobalCEFApp.FlashEnabled := False; GlobalCEFApp.EnableGPU := True; // Enable hardware acceleration GlobalCEFApp.DisableGPUCache := True; // Disable the creation of a 'GPUCache' directory in the hard drive. GlobalCEFApp.AddCustomCommandLine('--ppapi-flash-path', PpapiFlashFileName);
// 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;{$IFDEF DELPHI11_UP} Application.MainFormOnTaskbar := True;{$ENDIF} Application.CreateForm(TForm1, Form1); Application.Run; end;
GlobalCEFApp.Free;
end.
来源:https://www.cnblogs.com/rtcmw/p/8108120.html
相关阅读 >>
Delphi webbrowser1使用进度条查看浏览器状态
Delphi winapi: getcurrentthread、getcurrentthreadid、getcurrentprocess、getcurrentprocessid
更多相关阅读请进入《Delphi》频道 >>