标题
[推荐]lazarus 下如何使用 dcef3?
clq
浏览(499) +
2020-05-10 21:01:15 发表
编辑
关键字:
lazarus 下如何使用 dcef3?
据说 dcef3 的升级版本 dcef4 是有 lazarus 支持的，但那不支持 cef2623 版本。
因此用的 dcef3 ，但看了 dcef3 中并没有 lazarus 支持，即使它的代码中写的相关的编译选项，实际上是不能工作的。
搜索网络后发现有 fpCEF3
https://github.com/dliw/fpCEF3
据说可以支持，几经周折编译成功后发现它可能是太老了，也并不支持 cef2623 ，只好回头过来再自己修改 dcef3 ... 所以看到这篇文章的网友们，你们真的很幸运，这大概是整个网络第一篇。 ...哈哈，开玩笑的了
首先，我的版本是 lazarus-2.0.2-fpc-3.0.4 64位，并且安装了 lazarus-2.0.2-fpc-3.0.4-cross-i386-win32-win64 的 32 位编译器。
dcef 是我自己修改过的 dcef2623 不过用原版的话修改方法应该是一样的，以下是修改方法：
1.首先是调用代码
根据我使用 decf 多时的经验，还是不要安装它的控件包的好，直接包含路径就好了。以下是调用代码：
unit ld3main;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics,
ceflib,
cefvcl,
Dialogs, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
public
web1:TChromium;
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
web1 := TChromium.Create(self);
web1.Parent := self;
web1.Align := alClient;
web1.Show;
//web1.CreateBrowser(); //不公开的函数
web1.ReCreateBrowser('http://www.baidu.com');
//web1.Load('');
Button2.BringToFront;
{
OSError: [WinError 193] %1 不是有效的 Win32 应用程序。
weixin_30845171 2019-01-28 13:46:00 91 收藏
展开
经过搜索查找，发现错误原因是我在win7 x64的机器上装了64位的python IDLE，不能有效load32位的dll，换成32位的python就好了。
转载于:https://www.cnblogs.com/sea-stream/p/10329928.html
weixin_30845171
}
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
web1.Load('http://newbt.net');
end;
end.
以上代码当然是不能马上编译的。
2.设置源码路径
lazarus 的源码路径有好几个选项，要设置项目属性中的 "Path->Other units files(-Fu)" 这里，其他位置是不行的。
对于我的版本 la 来说就是第一条选项。
3.在 dcef3 源码的 cefvcl.pas cefvcl.pas 开关部分禁用掉 CEF_MULTI_THREADED_MESSAGE_LOOP DELPHI14_UP DELPHI16_UP 这几个专门针对 FPC (也就是 lazarus) 的相关编译选项，因为它根本就是错的，还是当做普通的 delphi 特性好了。我就是按 delphi7 的特性来选择的。
因为这些特性都是在 cef.inc 中引入的，所以禁用代码在紧跟在 cef.inc 之后写上，如下：
{$I cef.inc}
{$UNDEF CEF_MULTI_THREADED_MESSAGE_LOOP} //clq 2020 注意在 ceflib, cefvcl 中都要在 cef.inc 之后禁用 CEF_MULTI_THREADED_MESSAGE_LOOP
{$UNDEF DELPHI14_UP} //clq 2020 //dcef3 中对 fpc 的支持应该是有误的，要禁用 DELPHI14_UP, DELPHI16_UP 的功能才行
{$UNDEF DELPHI16_UP} //clq 2020
4.la 其实并没有完全兼容 delphi 代码，里面有个 TCreateParams 相关的函数，需要修改好几个地方，首先是它要加一个 la 的专用单元。如下：
interface
uses
Windows, Messages, Classes,
cefgui, ceflib,
LCLType, //clq 2020 for TCreateParams
5.dcef3 是在 CreateWindowHandle 中调用的 cef 函数去实际创建 cef 控件的，但遗憾的是这个函数 la 的窗体类并没有用到，修复后并没有用，但还是要给它修复，要不编译不了。
//clq 2020 //这个报错，可能要用 CreateSubClass
//procedure CreateWindowHandle(const Params: TCreateParams); override;
procedure CreateWindowHandle(const Params: TCreateParams); //override;
6.因为 la 没有调用 CreateWindowHandle 所以要想办法自己调用一下，所以我们的代码中有以下的代码：
//web1.CreateBrowser(); //不公开的函数
web1.ReCreateBrowser('http://www.baidu.com');
7.但这个 ReCreateBrowser 有个保护判断，所以还要修改这个函数本身，如下：
procedure TCustomChromium.ReCreateBrowser(const url: string);
begin
//if (FBrowser <> nil) and (FBrowserId <> 0) then //clq 2020 lazarus 不支持 CreateWindowHandle , 只好修改这个
begin
FBrowserId := 0;
FBrowser := nil;
CreateBrowser;
Load(url);
end;
end;
其实就是注释掉第一行就行了，否则您调试的时候会发现代码根本没往下走，当然网友们也可以按其他的方式，总之是要让 CreateBrowser 能调用上。
8.如果没有禁用 CEF_MULTI_THREADED_MESSAGE_LOOP 即使编译成功了，运行时也会发现窗体是个空白，什么也没有，幸好这种现象我在使用 dcef3 时不知道出现过多少次了，我的方法就是禁用 CEF_MULTI_THREADED_MESSAGE_LOOP
禁用后 dcef3 会开一个定时器去不停地调用 cef3 消息循环，所以还要修正一些错误。有两个地方，一是修改单元引用，二是修改 ontime 的函数原型，因为 la 和 delphi 的有一个变量类型不同，会报错。
implementation
{$IFNDEF CEF_MULTI_THREADED_MESSAGE_LOOP}
uses
{$IFDEF DELPHI16_UP}
Vcl.AppEvnts;
{$ELSE}
//AppEvnts; //clq 2020 不支持
SysUtils;
{$ENDIF}
...
//procedure TimerProc(hwnd: HWND; uMsg: UINT; idEvent: Pointer; dwTime: DWORD); stdcall;
//procedure _TimerProc(hwnd: HWND; uMsg: UINT; idEvent: Pointer; dwTime: DWORD); stdcall; //clq 2020
//TIMERPROC = procedure (hWnd: HWND; uMsg: UINT; idEvent: UINT_PTR; dwTime: DWORD); stdcall;
procedure _TimerProc(hWnd: HWND; uMsg: UINT; idEvent: UINT_PTR; dwTime: DWORD); stdcall;
9.如果编译为 64 位的编译成功了也是运行不了的，我也觉得奇怪，按道理说 64 位程序应该是可以调用 32 位 dll 的呀。
但这样会报 OSError: [WinError 193] %1 不是有效的 Win32 应用程序。
所以要安装交叉编译包修改项目属性编译为 32 位的程序才行。
参考 https://blog.csdn.net/weixin_30845171/article/details/97344572
"
OSError: [WinError 193] %1 不是有效的 Win32 应用程序。
weixin_30845171 2019-01-28 13:46:00 91 收藏
经过搜索查找，发现错误原因是我在win7 x64的机器上装了64位的python IDLE，不能有效load32位的dll，换成32位的python就好了。
转载于:https://www.cnblogs.com/sea-stream/p/10329928.html
"
--------------------------------------------------------
最后，不知道是不是我的错觉。感觉 la 下的 dcef3 要比 delphi7 中稳定得多。
NEWBT官方QQ群1: 276678893
可求档连环画,漫画;询问文本处理大师等软件使用技巧;求档softhub软件下载及使用技巧.
但不可"开车",严禁国家敏感话题,不可求档涉及版权的文档软件.
验证问题说明申请入群原因即可.
