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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 26.12.2010, 13:31   #1
Bright-rider
Форумчанин
 
Регистрация: 09.07.2010
Сообщений: 102
По умолчанию Как подделать реферера в Webbrowser?

Есть сайт1 и сайт2.
При нажатии на кнопку в Webbrower грузится сайт2, а реферер сайт1.
Подскажите, как это реализовать?
Bright-rider вне форума Ответить с цитированием
Старый 26.12.2010, 19:32   #2
Bright-rider
Форумчанин
 
Регистрация: 09.07.2010
Сообщений: 102
По умолчанию

Решил проблему так:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  Flags, Headers, TargetFrameName, PostData: OLEVariant;
  Url, Ref: string;
  IEApp: OLEVariant;
begin
  Flags := '1';
  TargetFrameName := '';
  PostData := '';
  Url := 'http://www.dach.de/weiterempfehlen.php';
  Ref := 'http://www.dach.de/';
  // u cannot navigate to the url above without this referer
  Headers := 'Referer: ' + Ref + #10 + #13;
  Webbrowser1.Navigate(Url, Flags, TargetFrameName, PostData, Headers);
end;
Bright-rider вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
фальсификация реферера Dimarik PHP 1 17.07.2010 22:17
как в webbrowser 1 infstudio Работа с сетью в Delphi 3 28.04.2010 09:15
Как скрыть WebBrowser? myxosran Общие вопросы Delphi 1 28.12.2009 21:46
Передача реферера ЕвгенийN Фриланс 1 02.07.2009 09:56
Как работать с БД и Webbrowser tsergey Общие вопросы Delphi 2 09.04.2009 11:18