Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TWebBrowser и User-agent ???


Rander ©   (2004-10-25 23:54:00) 

Уважаемые коллеги.

Возникла передо мной следующая проблема:
Есть программа использующая TWebBrowser или его потомка TEmbeddedWB. Надо чтобы при всех обращения к серверу использовался заданный мной User-agent при чем полностью заданный, а не преписка к стандартному как делает TEmbeddedWB.

Казалось бы все просто navigate2 в зубы headers заменить и все, но на деле все не так просто поскольку при клике пользователя по ссылке в окне браузера новая страница открывается со стандартным User-agent!!!

Если кто-то сталкивался с подобной проблемой и знает решение как на постоянной основе заменить User-agent или может подсказать направление для раскопок буду очень благодарен.

С уважением Rander


Rander   (2004-11-02 00:07:00) [1]

Здравствуйте easy!

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

Надо сбросить к старым настройкам User-agent, повторное применение UrlMkSetSessionOption не срабатывает.
Единственное что помогает - закрытие и запуск программы заново.
Но это чересчур радикально.

Есть ли способ анулировать параметры заданные в UrlMkSetSessionOption?


Rander   (2004-10-27 22:40:00) [2]

easy

Мое глубочайшее уважение и благодарность.
Это действительно очень простое и эффективное решение проблемы, над которой я бился столько времени. И ни нужны ни header ни динамическая фильтрация ни куча обработчиков.

Наверное килобайт 10 кода в ведро пойдет и это здорово!!!
Еще раз спасибо.


easy   (2004-10-27 13:30:00) [3]

uses urlmon;
var
 uAgent:Pchar;
begin
 uAgent:='MyAgent';
 UrlMkSetSessionOption(URLMON_OPTION_USERAGENT, uAgent, Length(uAgent), 0);


Rander   (2004-10-26 15:48:00) [4]

Большое спасибо easy!!!
Судя по описанию это то что мне нужно.

Не сочтите за наглость, но нет ли у Вас в наработках кусочка кода который задействует эту функцию???
У меня ни как не выходит ее подключить.
Драйвер рук наверное...


easy   (2004-10-26 13:18:00) [5]

http://msdn.microsoft.com/workshop/networking/moniker/reference/functions/urlmksetsessionoption.asp


Наверх

Титульная страница Поиск, карта сайта Написать письмо