在Inno安装程序中创建TChromium时出错

Question

我试图创建一个TChromium的DLL来用于inno安装程序，相当于TLama make​​与TWebBrowser，创建Inno web浏览器，但我不能，我遵循相同的逻辑基本过程，但在创建过程中，是创建窗口内的inno设置是奇怪的，是离开附件打印，显示图像。

编辑：我正在使用DelphiXE2和DCEF3。

procedure CreateChromium(ParentWnd: HWND; Left, Top, Width, Height: Integer);
begin
  Chromium := TChromium.Create(nil);
  Chromium.ParentWindow := ParentWnd;
  Chromium.Left := Left;
  Chromium.Top := Top;
  Chromium.Width := Width;
  Chromium.Height := Height;
  Chromium.Visible := true;
  Chromium.HandleNeeded;
end;

​

​

Answer 1

铬控件在你的屏幕截图上有它的默认颜色，所以如果这是你的问题，让我们把它改为不同的颜色。我写了关于它的文章，in this post是为DCEF1编写的，但是在DCEF3中，需要执行类似的步骤。看看这个插件的简约代码，它为初始化函数添加了新的Color参数，并展示了如何设置Chromium背景色：

unit MainUnit;

interface

uses
  Winapi.Windows, System.SysUtils, Vcl.Graphics, Vcl.GraphUtil, Soap.EncdDecd,
  CefVCL;

procedure CreateChromium(ParentWnd: HWND; Color: TColor; Left, Top, Width,
  Height: Integer); stdcall;

implementation

var
  Chromium: TChromium;

procedure CreateChromium(ParentWnd: HWND; Color: TColor; Left, Top, Width,
  Height: Integer);
const
  CSSHeader = 'data:text/css;charset=utf-8;base64,';
begin
  Chromium := TChromium.Create(nil);
  Chromium.ParentWindow := ParentWnd;

  // here is the tricky part; you must take the constant CSS header part and
  // concatenate it with Base64 encoded CSS style string as shown here
  Chromium.UserStyleSheetLocation := CSSHeader +
    EncodeString(Format('body {background-color:%s;}',
    [ColorToWebColorStr(Color)]));
  // and after you set the style, you need to recreate the browser
  Chromium.ReCreateBrowser('about:blank');

  Chromium.Left := Left;
  Chromium.Top := Top;
  Chromium.Width := Width;
  Chromium.Height := Height;
end;

end.