Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Referrer и POST запрос. [D7]

Pasha_777 © (2009-04-28 14:29:00)
Добрый день, вопрос есть... Суть такова, надо подменить 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:00) [1]
Удалено модератором

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »