1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

Headers в Twebbrowser

Тема в разделе "Delphi - программирование", создана пользователем KASioZ, 6 авг 2007.

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

    KASioZ Гость

    Репутация:
    0
    Здравствуйте!
    Столкнулся я с такой проблемой!
    Мне необходимо в стандартном WebBrowser'e изменить заголовок User-Agent.
    Пытался я это сделать так:

    procedure TForm1.WBBeforeNavigate2(Sender: TObject; const pDisp:
    IDispatch;
    var URL, Flags, TargetFrameName, PostData, Headers: OleVariant;
    var Cancel: WordBool);
    begin
    Headers:='User-Agent: My user agent';
    end;

    но почему то данный код не сработал!
    а так работает:

    procedure TForm1.Button1Click(Sender: TObject);
    var
    Flags, TargetFrameName, PostData, Headers: OleVariant;
    begin
    Headers:='User-Agent: My user agent';
    WB.Navigate(Edit1.Text, Flags, TargetFrameName, PostData, Headers);
    end;

    но работает только 1ин раз, т.е когда я потом перехожу на другую ссылку, он возвращяет все значения по умолчанию
    я точно знаю что сделать это возможно, потому что когда то давно у меня был такой пример, но я его потерял

    Заранее благодарен за помощь!
     
Загрузка...
Статус темы:
Закрыта.

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