Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Сменить User-Agent в TChromium - Delphi 
:(
    Опции темы
QweR1ty
  Дата 22.10.2015, 23:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 22.10.2015

Репутация: нет
Всего: нет
Доброго всем дня. Ломаю голову уже не первый день по поводу смены User-Agent'а в компоненте TChromium TCEF3. Подскажите, пожалуйста, кто знает как это делается? Гугл мне не смог толком помочь. В библиотеке ceflib нашел данный участок кода: 
Код

function CefLoadLib(
  const Cache: ustring = '';
  const UserAgent: ustring = '';
  const ProductVersion: ustring = '';
  const Locale: ustring = '';
  const LogFile: ustring = '';
  const BrowserSubprocessPath: ustring = '';
  LogSeverity: TCefLogSeverity = LOGSEVERITY_DISABLE;
  JavaScriptFlags: ustring = '';
  ResourcesDirPath: ustring = '';
  LocalesDirPath: ustring = '';
  SingleProcess: Boolean = False;
  CommandLineArgsDisabled: Boolean = False;
  PackLoadingDisabled: Boolean = False;
  RemoteDebuggingPort: Integer = 0;
  ReleaseDCheck: Boolean = False;
  UncaughtExceptionStackSize: Integer = 0;
  ContextSafetyImplementation: Integer = 0;
  PersistSessionCookies: Boolean = False;
  IgnoreCertificateErrors: Boolean = False): Boolean;


При смене значения UserAgent, меняется и User-agent браузера. Но это не вариант конечно.
На заморских сайтах видел подобную команду
Код

CefLoadLib('','this_is_my_user_agent','','','','',LOGSEVERITY_DISABLE,ANGLE_IN_PROCESS,0,0);
 , но она также не хочет работать. Выручайте smile
PM MAIL   Вверх
b8195108
Дата 23.10.2015, 08:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 27
Регистрация: 17.7.2011

Репутация: нет
Всего: 2
В dpr до вызова CefLoadLibDefault

Код

CefUserAgent := 'this_is_my_user_agent';
PM MAIL   Вверх
QweR1ty
Дата 23.10.2015, 14:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 22.10.2015

Репутация: нет
Всего: нет
Цитата(b8195108 @ 23.10.2015,  08:37)
В dpr до вызова CefLoadLibDefault

Код

CefUserAgent := 'this_is_my_user_agent';

Но при этом ведь не получится менять агента во время работы программы? Желательно, чтобы юзер-агента можно было менять во время работы программы. Возможно такое?
PM MAIL   Вверх
b8195108
Дата 23.10.2015, 14:54 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 27
Регистрация: 17.7.2011

Репутация: нет
Всего: 2
В описанном мной варианте: каждый раз разрушать TChromium, выгружать библиотеку, менять UA и далее в обратном порядке.


Чисто теоретически для смены "на лету" можно попробовать менять заголовки напрямую, например в OnBeforeBrowse
1) получаем заголовки request.GetHeaderMap
2) добавляем/меняем UA
3) возвращаем измененные заголовки request.SetHeaderMap
PM MAIL   Вверх
QweR1ty
Дата 23.10.2015, 16:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 22.10.2015

Репутация: нет
Всего: нет
b8195108, спасибо огромное за совет smile 
PM MAIL   Вверх
b8195108
Дата 23.10.2015, 18:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 27
Регистрация: 17.7.2011

Репутация: нет
Всего: 2
Не за что  smile 
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1248 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.