Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Как купить рекламу на форуме


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

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

Купить рекламу на форуме 20000 рублей в месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.08.2007, 00:18   #1
KASioZ
Новичок
Джуниор
 
Регистрация: 06.08.2007
Сообщений: 2
Вопрос Headers в TWebBrowser

Здравствуйте!
Столкнулся я с такой проблемой!
Мне необходимо в стандартном WebBrowser'e изменить заголовок User-Agent.
Пытался я это сделать так:

procedure TForm1.WBBeforeNavigate2(Sender: TObject; const pDisp:
IDispatch;
var URL, Flags, TargetFrameName, PostData, Headers: OleVariant;
var Cancel: WordBool);
begin
Headers:='User-Agent: My user agent';
end;

но почему то данный код не сработал!
а так работает:

procedure TForm1.Button1Click(Sender: TObject);
var
Flags, TargetFrameName, PostData, Headers: OleVariant;
begin
Headers:='User-Agent: My user agent';
WB.Navigate(Edit1.Text, Flags, TargetFrameName, PostData, Headers);
end;

но работает только 1ин раз, т.е когда я потом перехожу на другую ссылку, он возвращяет все значения по умолчанию
я точно знаю что сделать это возможно, потому что когда то давно у меня был такой пример, но я его потерял

Заранее благодарен за помощь!
KASioZ вне форума Ответить с цитированием
Старый 06.08.2007, 08:14   #2
Квэнди
Старожил
 
Аватар для Квэнди
 
Регистрация: 13.12.2006
Сообщений: 3,859
По умолчанию

напрямую twebbrowser не поддерживает изменение user-agent , используйте idhttp
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи
Квэнди вне форума Ответить с цитированием
Ответ
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
TWebBrowser ak3000 Компоненты Delphi 8 08.04.2010 18:33
IdSmtp headers Ocean Компоненты Delphi 2 18.08.2008 19:54
TWebBrowser DeDoK Общие вопросы Delphi 9 03.06.2008 17:30
TWebBrowser + IE 7.0 Diogo Общие вопросы Delphi 5 27.01.2008 12:43
TWebBrowser dima_lamo Работа с сетью в Delphi 1 19.01.2008 21:16


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS