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

 CEF4Delphi で Chromium ブラウザを動かす最低限のコードをメモ
ライブラリのインストールと必要なファイルの配置は Mr.XRAYさんのサイト参照

フォームに TEdit, TButton, TChromiumWindow を置いて、イベントを記載
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 できない)
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.

コメント

コメントを投稿