Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.09.26;
Скачать: CL | DM;

Вниз

Скрыть HTTP_REFERRER   Найти похожие ветки 

 
Publ   (2008-11-10 07:38) [0]

Буду краток: работаю с Embedded WebBrowser, появилась необходимость избавиться от заголовка HTTP_REFERRER, который передаётся компонентом на сервер

Вот такая вещь работает без проблем:
procedure TForm1.Button1Click(Sender: TObject);
var Url, Flags, Headers, TargetFrameName, PostData: OLEVariant;
   Ref: string;
begin
 Ref:="http://www.google.com/"; //или Ref:="";
 Flags:="";
 TargetFrameName:= "";
 PostData := "";
 Url:="http://example.com/ip.php";
 Headers:=Headers+"Referer: "+Ref+#10+#13;
 EmbeddedWB1.Navigate2(Url, Flags, TargetFrameName, PostData, Headers);
end;


Но этот код только открывает одну страницу, с которой ожно перейти на другую, а там уже снова HTTP_REFERRER будет передаваться

Тогда пришла мысль что тут надо будет поработать с BeforeNavigate2. И начались проблемы:
procedure TForm1.EmbeddedWB1BeforeNavigate2(ASender: TObject;
 const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
 Headers: OleVariant; var Cancel: WordBool);
begin
 Headers:=""; // Пробую почистить всё сразу
end;

НЕ РАБОТАЕТ :( Как будто этого там вообще участка кода нет.
Где-то увидел, что нало в beforenavigate2 ещё и navigate делать, вот так примерно
Head:="Referer: "+#10#13;
 EmbeddedWB1.Navigate(URL, Flags, TargetFrameName, PostData, Head); // И Navigate2 - тоже ничего не даёт

Только от этого ещё и глюки пошли страшные - зацикливание, ошибки

Уважаемые мастера, помогите, пожалуйста, поясните, почему очистка заголовков в BeforeNavigate2 не помогает, как будто я её и не делаю? Или я что-то важное упустил, тогда подскажите что. Кровь из носу надо от referrer избавиться, а я разобраться не могу :(((


 
Publ   (2008-11-13 05:35) [1]

Ну неужели никто с BeforeNavigate2 не работал и ничем помочь не может? Не верю...

Натолкните на путь истинный! :) Please



Страницы: 1 вся ветка

Текущий архив: 2010.09.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.008 c
2-1277882721
Ptitca
2010-06-30 11:25
2010.09.26
Помогите с массивами в Delphi


15-1277752257
TStas
2010-06-28 23:10
2010.09.26
Сколько сейчас стоит недорогой комп?


15-1277813120
oldman
2010-06-29 16:05
2010.09.26
Самокат (перлы)


11-1223506346
AnarchyMob
2008-10-09 02:52
2010.09.26
Ассемблер и Win CE


15-1277843390
Юрий
2010-06-30 00:29
2010.09.26
С днем рождения ! 30 июня 2010 среда