TChromium:如何使会话保持活动状态

TChromium : How to keep session alive

使用 DCEF3 TChromium 时,如何保持会话活动?

例如,如果我访问一个网站并登录,当我关闭我的应用程序并再次打开它时,我需要再次登录。我想让会话保持活动状态,就像我使用 Google Chrome.

一样

我尝试在我的应用程序 'uses' 子句中添加 'CefLib' 并像下面的代码一样设置 'CefCache',但是尽管我可以看到文件存储在 'cookies' 文件夹中, 保持会话活动似乎没有什么区别:

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  ceflib in 'C:\app\dcef\src\ceflib.pas';

{$R *.res}

begin
  CefCache := 'cookies';
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

提前致谢。

官方DCEF3论坛的一个人提供了以下解决方案,经过测试并通过!

CookieManager: ICefCookieManager;

FormCreate:
begin
   CookiesPath := ExtractFilePath(Application.ExeName) + 'cookies';
   CookieManager := TCefCookieManagerRef.Global(nil);
   CookieManager.SetStoragePath(CookiesPath, True, nil);
end;

FormClose:   
begin
  CookieManager.FlushStore(nil);
end