Header auslesen/ ändern in TWebBrowser.OnBeforeNavigate2

[Caps]

Guten Tag,

ich würde gern den HTTP-Header verändern oder wenigstens auslesen, wenn ich eine Seite im WebBrowser annavigiere.

Ich benutze das total übersichtliche Ereignis OnBeforeNavigate2:

Delphi-Quellcode:

procedure TFormDATBrowser20.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
// Variante 1
// Headers := OleVariant(String(Headers) + 'Connection: Close'+#13#10);
// ging nicht, d.h. im Sniffer hab ich gesehen, dass da 'Connection: keep-alive' stand

// Variante 2
// Headers := OleVariant('Foo: bar'+#13#10);
// ging nicht, d.h. im Sniffer war diese Variable nicht im Header
end;

Anhand der Kommentare ist das Problem erkenntlich: ich scheine den ausgehenden Header nicht ändern zu können (Sniffer = Netzwerkanalysetool).
Wenn ich den Header auslese und mit einem ShowMessage anzeige, so ist er oft komplett leer (was nicht sein kann), und manchmal steht das Encoding des Formulars drin.

Meine Frage: wie bekomme ich möglichst volle Kontrolle über den HTTP-Header beim TWebBrowser (exakt diese Browser-Komponente)?
Anmerkung: in der Hilfe steht zu Headers: "[..] In der Routine kann dieser Wert vor dem Senden an die Ziel-URL geändert werden."

Besten Dank und viele Grüße
Caps

[Bernhard Geyer]

Ich würde sagen: Gar nicht. Dazu ist TWebBrowser mit seiner API gar nicht gedacht.

[Caps]

Zitat von Bernhard Geyer:

Ich würde sagen: Gar nicht. Dazu ist TWebBrowser mit seiner API gar nicht gedacht.

Aber wie darf ich dann die Delphi-Hilfe verstehen?

[Bernhard Geyer]

Zitat von Caps:

Aber wie darf ich dann die Delphi-Hilfe verstehen?

Einfach nicht falsch....

Auf was genau beziehst du dich?

[Caps]

Danke, ich versuche es ja nicht falsch zu verstehen .

Ich beziehe mich auf die Stelle:

'Headers' enthält die Kopfzeilen, die an den Server gesendet werden, wenn die URL einer HTTP-Botschaft entspricht. Diese Informationen geben beispielsweise die vom Server angeforderte Aktion oder die Art der Daten an (viele der Eigenschaften des TWebRequest-Objekts entsprechen solchen Kopfzeilen). In der Routine kann dieser Wert vor dem Senden an die Ziel-URL geändert werden.

Ich bin nach Lesen dieser Stelle zu der Ansicht gelangt, den Header manipulieren zu können. Was kann ich falsch verstanden haben?

lg Caps

ps Ich habe dann einen String-Cast probiert, weil ich irgendwo (im Forum) gelesen habe, dass es ein per CRLF getrennter String sein muss.

[Caps]

In Grund und Boden argumentiert?

[Caps]

Hat vielleicht schon jemand probiert, zusätzliche oder andere Header-Variablen mit dem TWebBrowser zu verschicken (erfolgreich)?

[Caps]

Final push.

[mjustin]

Eine (vermutliche) Lösung ist hier zu finden:

http://stackoverflow.com/questions/9...wser-in-delphi

Delphi-Quellcode:

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
var
  NewHeaders: OleVariant;
begin
  // do not allow frames or iframes to raise this event
  if (pDisp as IUnknown) = (WebBrowser1.ControlInterface as IUnknown) then
  begin
    // avoid stack overflow: check if our custom header is already set
    if Pos('MyHeader', Headers) <> 0 then Exit;

    // cancel the current navigation
    Cancel := True;
    (pDisp as IWebBrowser2).Stop;

    // modify headers with our custom header
    NewHeaders := Headers + 'MyHeader: Value'#13#10;

    (pDisp as IWebBrowser2).Navigate2(URL, Flags, TargetFrameName, PostData, NewHeaders);
  end;
end;

[Caps]

Wow, sorry, die Antwort ist mir irgendwie entgangen. Danke, ich schau mal...