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]

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

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