Скачать: CL | DM;

Referrer и POST запрос.   Найти похожие ветки 

← →
Pasha_777 ©   (2009-04-28 14:29) [0]

Добрый день, вопрос есть... Суть такова, надо подменить Referrer, но у меня страница создается динамически.

Вот так работает без проблем:
[CODE]
Headers:= "Referrer: papa.ru"#13#10;
Dummy:=NULL;
WebBrowser2.Navigate("mama.ru",Dummy,Dummy,Dummy, Headers);
[/CODE]

А теперь внимание вопрос, как поменять вот этот код, чтоб реферер созданного запроса был papa.ru

[CODE]
procedure TForm1.TextToWebBrowser(Text: string);
var
 Document2: IHTMLDocument2;
 V, Headers, Dummy: OleVariant;
begin
 // Документ необходимо создать только один раз за текущую сессию работы

 Headers:= "Referrer: papa.ru"#13#10;
 Dummy:=NULL;

    if WebBrowser2.Document = nil then
  WebBrowser2.Navigate("about",Dummy,Dummy,Dummy, Headers);
 // Ожидаем создания документа и позволяем обрабатывать все сообщения
 while WebBrowser2.Document = nil do
   Application.ProcessMessages;
 Document2 := WebBrowser2.Document as IHtmlDocument2;
 // Вставляем текст (до 2Гб)
 {следующие строчки внесены недавно - старый вариант функции не работал под XP}
 V := VarArrayCreate([0, 0], varVariant);
 V[0] := Text;
 Document2.Write(PSafeArray(TVarData(v).VArray));
 Document2.Close;
end;
[/CODE]

Эта процедура корректно работает, но реферер не меняет, что тут нужно добавить???

---

← →
Pasha_777 ©   (2009-04-29 15:58) [1]

Удалено модератором

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c