Изменить user agent в TChromium

[Grizly13]

Здравствуйте, уважаемые форумчане!

Собственно, сабж.

Есть ли решение для первой версии DCEF ?

И чтобы не плодить темы сразу спрошу ещё вопросик:
Как изменять http заголовки в том же DCEF? Например, HTTP_ACCEPT_LANGUAGE, чтобы отображались русские версии сайтов.

[DuM4uK]

Привет!

Смена user agent в dcef1, пример:

procedure TForm1.Button1Click(Sender: TObject);
var
  CookieManager: ICefCookieManager;
  CookiesPath  : String;
begin
  CookiesPath := 'C:\User1';
  CookieManager := TCefCookieManagerRef.Global;
  CookieManager.SetStoragePath(CookiesPath);
  Chromium1.Load('programmersforum.ru');
end;

Русские версии сайтов, перед использованием кода старые куки удали (если используешь):

procedure TForm1.Chromium1BeforeResourceLoad(Sender: TObject;
  const browser: ICefBrowser; const frame: ICefFrame;
  const request: ICefRequest; out Result: Boolean);
Var
  map: ICefStringMultimap;
begin
  map := TCefStringMultimapOwn.Create;
  request.GetHeaderMap(map);
  map.Append('Accept-Language', 'ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4');
  request.SetHeaderMap(map);
end;

[Grizly13]

DuM4uK, так там ведь куки устанавливаешь, а не user agent меняешь.

А во втором случае такой вопрос... Если я tchromium создаю динамически, то как мне BeforeResourceLoad создать?

[DuM4uK]

DuM4uK, так там ведь куки устанавливаешь, а не user agent меняешь.

Да, если не подрузомеваешь смену агента, куки можно и по другому установить, ты задал вопрос про смену user agent'a, то есть для нескольких пользователей сделать свое куки, или я что-то не так понял ..........

А во втором случае такой вопрос... Если я tchromium создаю динамически, то как мне BeforeResourceLoad создать?

Как вариант, можно держать на форме готовый TChromium.Visible:=False; c готовыми процедурами, при создании нового просто присваивать с него...