Twebbrowser, Post и Referrer не работают вместе? (код внутри)

Тема в разделе "Delphi - Сети", создана пользователем Pasha777, 1 май 2009.

Статус темы:
Закрыта.
  1. Pasha777

    Pasha777 Гость

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

    Вот так работает без проблем (но только там где нет POST запроса):
    [codebox]
    Headers:= 'Referrer: papa.ru'#13#10;
    Dummy:=NULL;
    WebBrowser2.Navigate('mama.ru',Dummy,Dummy,Dummy, Headers);
    [/codebox]

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

    [codebox]
    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;
    [/codebox]

    Эта процедура корректно работает, но реферер не меняет, что тут нужно добавить или изменить???
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей