cef4delphi cookie expire 代码

在 Delphi 中使用 CEF (Chromium Embedded Framework) 设置 Cookie 的过期时间，你需要确保已经添加了适当的依赖库，并了解如何操作 Chromium 的 Cookie API。以下是一个简单的示例，展示了如何设置 Cookie 的过期时间：

uses
  CefSharp,
  CefSharp.Tabs;

type
  TCefCookie = TBasicCookie;

function SetCookie(const url: string; name: string; value: string; expires: Integer): Boolean;
var
  cookie: TCefCookie;
begin
  // 创建一个新的 Cookie 对象
  cookie := TCefCookie.Create(name, value, url, '', false, true, false, False, expires, nil);

  try
    // 尝试将 Cookie 添加到浏览器
    Result := CefApp.GetGlobal().GetBrowserManager().AddCookie(cookie);
  except
    Result := False;
  end;
end;

// 调用函数并设置过期时间为 7 天后的 Unix 时间戳（单位：秒）
const ExpireTimestamp = TimeValue(Now + 60 * 60 * 24 * 7); // 一周后过期
SetCookie('http://example.com', 'mycookie', 'secretvalue', ExpireTimestamp.ToInt64);

请注意，这个示例假设你已经在你的项目中设置了 CEF 和必要的引用，并且熟悉 Delphi 编程。