Twebbrowser: Eigener User-Agent für OnBeforeNavigate2

sky21 · Beiträge: 141 W7 D2010, XE2

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.

markieren

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 · Beiträge: 141 W7 D2010, XE2

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

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme