Hi,
i am beginner in lazarus and fpcef3. I want develop a browser using Chromium Os. Thus i have installed Lazarus version 1.6.4 (Windows 10, 64 bit) and FPCEF3-3.2924.
Following is the code (i follow tutorial from a blog):
unit srsunit;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, cef3lcl, Forms, Controls, Graphics, Dialogs,
EditBtn, cef3types, cef3intf, cef3gui, cef3lib;
type
{ TForm1 }
TForm1 = class(TForm)
Chromium: TChromium;
edtURL: TEditButton;
procedure ChromiumAddressChange(Sender: TObject;
const Browser: ICefBrowser; const Frame: ICefFrame; const url: ustring);
procedure ChromiumLoadEnd(Sender: TObject; const Browser: ICefBrowser;
const Frame: ICefFrame; httpStatusCode: Integer);
procedure edtURLButtonClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
begin
CefResourcesDirPath:='Resources';
CefLocalesDirPath:='Resources\locales';
CefInitDefault;
edtURL.Text:='http://lazplanet.blogspot.com';
end;
procedure TForm1.ChromiumAddressChange(Sender: TObject;
const Browser: ICefBrowser; const Frame: ICefFrame; const url: ustring);
begin
end;
procedure TForm1.ChromiumLoadEnd(Sender: TObject; const Browser: ICefBrowser;
const Frame: ICefFrame; httpStatusCode: Integer);
begin
edtURL.Text:=UTF8Encode(Browser.MainFrame.Url);
end;
procedure TForm1.edtURLButtonClick(Sender: TObject);
begin
Chromium.Load(UTF8Decode(edtURL.Text));
end;
end.
After i run (F9), i got the error Project SRSProject raised exception class external : SIGSEGV.
Please help me. Thank you.