DCEF4(Chromium) смена кэша

[afoneim]

Здравствуйте, возник вопрос, как можно реализовать смену куки при загрузке страницы через Tcromium,
Задача такая у меня 2 кнопки нажимаю на одну загружается страница с 1 куками, нажимаю 2 кнопку другая с другими куками, в теорий можно накидать разные tchromium и разные CEFWindowParent, но это не очень, возможно это как-то реализовать в одном компоненте?
Ниже код работает но куки меняются только после перезагрузки программы

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  TempContext : ICefRequestContext;
TempCache:string;
begin
 TempCache := GlobalCEFApp.RootCache + '\root_cache\user1'
 TempContext := TCefRequestContextRef.New(TempCache,
                      '', '', False, False, False, Chromium1.ReqContextHandler);
 Chromium1.loadURL ('https://vk.com');
 Chromium1.CreateBrowser(CEFWindowParent1, '', TempContext);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
  TempContext : ICefRequestContext;
TempCache:string;
begin
 TempCache := GlobalCEFApp.RootCache + '\root_cache\user2'
 TempContext := TCefRequestContextRef.New(TempCache,
               '', '', False, False, False, Chromium1.ReqContextHandler);
 Chromium1.loadURL ('https://vk.com');
  Chromium1.CreateBrowser(CEFWindowParent1, '', TempContext);
end;

 

[randrange]

Здравствуйте, возник вопрос, как можно реализовать смену куки при загрузке страницы через Tcromium,
Задача такая у меня 2 кнопки нажимаю на одну загружается страница с 1 куками, нажимаю 2 кнопку другая с другими куками, в теорий можно накидать разные tchromium и разные CEFWindowParent, но это не очень, возможно это как-то реализовать в одном компоненте?
Ниже код работает но куки меняются только после перезагрузки программы

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  TempContext : ICefRequestContext;
TempCache:string;
begin
 TempCache := GlobalCEFApp.RootCache + '\root_cache\user1'
 TempContext := TCefRequestContextRef.New(TempCache,
                      '', '', False, False, False, Chromium1.ReqContextHandler);
 Chromium1.loadURL ('https://vk.com');
 Chromium1.CreateBrowser(CEFWindowParent1, '', TempContext);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
  TempContext : ICefRequestContext;
TempCache:string;
begin
 TempCache := GlobalCEFApp.RootCache + '\root_cache\user2'
 TempContext := TCefRequestContextRef.New(TempCache,
               '', '', False, False, False, Chromium1.ReqContextHandler);
 Chromium1.loadURL ('https://vk.com');
  Chromium1.CreateBrowser(CEFWindowParent1, '', TempContext);
end;

Для реализации такой задачи нужно использование компонента TWebBrowser. Статья по использованию:

Ссылка скрыта от гостей