Entwickler-Ecke

Internet / Netzwerk - Twebbrowser: Eigener User-Agent für OnBeforeNavigate2


sky21 - Mo 14.12.09 13:54
Titel: Twebbrowser: Eigener User-Agent für OnBeforeNavigate2
Hallo! Ich schon wieder und ja ich habe wieder eine Frage zu TWebbrowser

Ich bin jetzt soweit, dass wenn ein Benutzer auf einen Link klickt, dass ich dessen Operation mittels "OnBeforeNavigate2()" abfange. Soweit so gut. Jetzt möchte ich das "Headers" Argument mit meinem eigenen User-Agent neu initialisieren. Das klappt aber nicht bzw. nur beim ersten mal, wenn die Hauptadresse erstmalig geladen wird.


Delphi-Quelltext
1:
2:
3:
4:
procedure TMyBrowser.BrowserBeforeNavigate2(ASender: TObject; const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,  Headers: OleVariant; var Cancel: WordBool);
begin
  Headers := 'User-Agent: MyFunkyAgent';
end;


Weshalb geht es nicht?


sky21 - Di 22.06.10 14:01

Die Frage ist schon ein halbes Jahr alt aber für mich wieder aktuell geworden. Kennt wirklich niemand eine Lösung?