Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.03.2015, 18:00   #1
NIKOLAYY2
Форумчанин
 
Регистрация: 23.12.2014
Сообщений: 220
По умолчанию Смена UserAgent в TWebBrowser

Я так понял это не простая задача и все же.
Возможно ли как-нибудь изменить UserAgent в TWebBrowser?
NIKOLAYY2 вне форума Ответить с цитированием
Старый 19.03.2015, 18:03   #2
NIKOLAYY2
Форумчанин
 
Регистрация: 23.12.2014
Сообщений: 220
По умолчанию

Даже в делфи-7 такого нету!
Код:
WebBrowser1.UserAgent:= //такого кода нету
NIKOLAYY2 вне форума Ответить с цитированием
Старый 19.03.2015, 18:24   #3
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

1) https://msdn.microsoft.com/en-us/library/aa918202.aspx с параметром URLMON_OPTION_USERAGENT
2) Вести через самописный прокси. который будет подделывать этот параметр в перехватываемом HTTP запросе.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 19.03.2015, 18:49   #4
NIKOLAYY2
Форумчанин
 
Регистрация: 23.12.2014
Сообщений: 220
По умолчанию

Ага понял, вот так работает.

В uses urlmon
Код:
var
  uAgent:Pchar;
begin
  uAgent:='MyAgent'; // сюда пишем User-agent-a
  UrlMkSetSessionOption(URLMON_OPTION_USERAGENT, uAgent, Length(uAgent), 0);
//--------- прочий код -----------------
//----------------------------------------
end;

Последний раз редактировалось NIKOLAYY2; 19.03.2015 в 18:51.
NIKOLAYY2 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как убрать отступы в TWebBrowser? + аналоги TWebBrowser? FleXik Общие вопросы Delphi 4 19.07.2013 21:53
Синапс userAgent Зод Работа с сетью в Delphi 3 07.10.2011 16:25
PHP+curl+useragent pruf PHP 9 14.03.2011 17:07
Не меняется useragent Кинельски Работа с сетью в Delphi 0 16.02.2011 23:08
UserAgent в WebBrowser beemoto Работа с сетью в Delphi 1 19.07.2009 13:19