CEF4Delphi で Chromium ブラウザを動かす最低限のコード

 CEF4Delphi で Chromium ブラウザを動かす最低限のコードをメモ

ライブラリのインストールと必要なファイルの配置は Mr.XRAYさんのサイト参照

フォームに TEdit, TButton, TChromiumWindow を置いて、イベントを記載

view plainprint?

1. implementation  
2.   
3. {$R *.dfm}  
4.   
5. procedure TForm1.Button1Click(Sender: TObject);  
6. begin  
7.     ChromiumWindow1.LoadURL(Edit1.Text);  
8. end;  
9.   
10. procedure TForm1.ChromiumWindow1AfterCreated(Sender: TObject);  
11. begin  
12.     Edit1.Enabled := True;  
13. end;  
14.   
15. procedure TForm1.FormCreate(Sender: TObject);  
16. begin  
17.     if not ChromiumWindow1.CreateBrowser then begin  
18.         TThread.CreateAnonymousThread(  
19.             procedure  
20.             begin  
21.                 while (not ChromiumWindow1.CreateBrowser) and (not ChromiumWindow1.Initialized) do begin  
22.                     Sleep(300);  
23.                 end;  
24.             end).Start;  
25.     end;  
26. end;  

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
    ChromiumWindow1.LoadURL(Edit1.Text);
end;

procedure TForm1.ChromiumWindow1AfterCreated(Sender: TObject);
begin
    Edit1.Enabled := True;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    if not ChromiumWindow1.CreateBrowser then begin
        TThread.CreateAnonymousThread(
            procedure
            begin
                while (not ChromiumWindow1.CreateBrowser) and (not ChromiumWindow1.Initialized) do begin
                    Sleep(300);
                end;
            end).Start;
    end;
end;

次にプロジェクトにコードを追加(これがないと ChromiumWindow を Initialize できない)

view plainprint?

1. program HogehogeProject;  
2.   
3. uses  
4.     Vcl.Forms,  
5.     uCEFApplication, // 追加  
6.     Unit1 in 'Unit1.pas' {Form1};  
7.   
8. {$R *.res}  
9.   
10. begin  
11.     GlobalCEFApp := TCefApplication.Create;  
12.     if GlobalCEFApp.StartMainProcess then begin   
13.         // ここから  
14.         Application.Initialize;  
15.         Application.MainFormOnTaskbar := True;  
16.         Application.CreateForm(TForm1, Form1);  
17.         Application.Run;  
18.         // ここまでが元々のコード  
19.     end;  
20.     DestroyGlobalCEFApp;  
21. end.  

program HogehogeProject;

uses
    Vcl.Forms,
    uCEFApplication, // 追加
    Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
    GlobalCEFApp := TCefApplication.Create;
    if GlobalCEFApp.StartMainProcess then begin 
    	// ここから
        Application.Initialize;
        Application.MainFormOnTaskbar := True;
        Application.CreateForm(TForm1, Form1);
        Application.Run;
        // ここまでが元々のコード
    end;
    DestroyGlobalCEFApp;
end.