Headers в Twebbrowser

  • Автор темы KASioZ
  • Дата начала
Статус
Закрыто для дальнейших ответов.
K

KASioZ

#1
Здравствуйте!
Столкнулся я с такой проблемой!
Мне необходимо в стандартном 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ин раз, т.е когда я потом перехожу на другую ссылку, он возвращяет все значения по умолчанию
я точно знаю что сделать это возможно, потому что когда то давно у меня был такой пример, но я его потерял

Заранее благодарен за помощь!
 
Статус
Закрыто для дальнейших ответов.