Как удалить кукисы (cookies) в TChromium

В комментариях к статье о начале работы с TChromium спросили, как удалить в нем кукисы? Скажу сразу, решение не мое, нашла в свое время на СтэкОверфлоу, скопировала и с тех пор удачно использую.

Сначала надо отметить, что у интерфейса ICefCookieManager есть метод DeleteCookies, но он почему-то не работает. То есть в результате выполнения кода:

procedure TfrmMain.btnDeleteCookiesClick(Sender: TObject);
var
  CookieManager: ICefCookieManager;
begin
  CookieManager := TCefCookieManagerRef.GetGlobalManager;
  if not CookieManager.DeleteCookies('', '') then
    ShowMessage('Кукисы не удалены!');
end;

заведомо появится сообщение, что удаление кукисов провалилось. Не знаю, может, это только у меня так...

Решение же таково: надо обойти все хранящиеся кукисы с помощью VisitAllCookiesProc и внутри visitor-а установить их свойство deleteCookie равным True (1).

procedure TfrmMain.btnDeleteCookiesClick(Sender: TObject);
var
  CookieManager: ICefCookieManager;
begin
  CookieManager := TCefCookieManagerRef.GetGlobalManager;
  CookieManager.VisitAllCookiesProc(
    function(const name, value, domain, path: ustring; secure, httponly,
      hasExpires: Boolean; const creation, lastAccess, expires: TDateTime;
      count, total: Integer; out deleteCookie: Boolean): Boolean
    begin
      deleteCookie := True;
      ShowMessage('Кукисы для домена ' + domain + ' удалены!');
    end
  );
end;

Тут ничего такого страшного нет:
name, value, domain, path, secure, httponly, hasExpires, creation, lastAccess, expires — это свойства объекта класса TCefCookie;
count — индекс "текущего" cookie;
total — общее количество кукисов;
deleteCookie — если установите True, то "текущий" кукис будет удален.

На старичке Delphi 7 синтаксис с function в качестве передаваемого параметра не прокатит, поэтому функцию следует вынести отдельно, а передавать ее по названию.

function VisitCookie(const name, value, domain, path: ustring; secure, httponly,
  hasExpires: Boolean; const creation, lastAccess, expires: TDateTime;
  count, total: Integer; out deleteCookie: Boolean): Boolean;
begin
  deleteCookie := True;
  // frmMain.Memo.Lines.Add('Кукисы для домена ' + domain + ' удалены!');
end;

а в коде:

procedure TfrmMain.btnDeleteCookiesClick(Sender: TObject);
var
  CookieManager: ICefCookieManager;
begin
  CookieManager := TCefCookieManagerRef.Global;
  CookieManager.VisitAllCookiesProc(VisitCookie);
end;

Есть, конечно, еще один теоретически возможный способ. Если вы устанавливаете место хранения кукисов принудительно с помощью SetStoragePath, то можно удалить все содержимое этой папки. :)

Чтобы быть в курсе обновлений блога, можно подписаться на RSS.

Статьи схожей тематики: