Keine Post-Daten beim OnBeforeNavigate2-Event (TWebBrowser)

[c113plpbr]

Hi DP'ler,

ich verwende in einem meiner Projekte das TWebBrowser-Objekt. Hierbei ist es notwendig ab und an die URL geringfügig zu ändern. Dies hab ich bisher über den OnBeforeNavigate2-Event geregelt: cancel auf true gesetzt, und die übergebene URL verändert, und schließlich wieder Navigate2 mit den restlichen übergebenen Parameter aufgerufen (natürlich mit entsprechenden Sicherheitsmaßnahmen gegen mögliche Endlosschleifen):

Delphi-Quellcode:

procedure TForm2.WebBrowser1BeforeNavigate2(ASender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
  //...
  Cancel := true;
  (ASender as TWebBrowser).Navigate2(URL, Flags, TargetFrameName, PostData, Headers);
  //...
end;

Das einzige Problem dabei ist, dass hier scheinbar keine Post-daten übergeben werden. Somit sind keinerlei Logins o.ä. möglich.
Hat jemand eine Ahnung warum, und eine Lösung für dieses Problem?

ciao & thx,
Philipp

[marabu]

Hallo Philipp,

beim Lesen deines Threads ist mir ein Fehler in einem Beispielcode von mir aufgefallen: klick

Vielleicht ist das auch bei dir zu berücksichtigen?

Freundliche Grüße

[c113plpbr]

Zitat von marabu:

beim Lesen deines Threads ist mir ein Fehler in einem Beispielcode von mir aufgefallen: klick

Vielleicht ist das auch bei dir zu berücksichtigen?

Ich war bisher der Meinung, dass ich die Parameter an denen ich nichts geändert habe einfach so wieder übergeben kann. Und ich ändere ja nur die URL, und die wird ja auch tadellos übergeben. Verbessere mich, wenn ich da falsch liege.

Gewundert hat mich bei dem OnBeforeNavigate2-Event ja sowieso, dass alle Parameter per "var" übergeben werden, aber wenn ich einen jetzt aber einfach ändere (abgesehen vom cancel-Parameter), hat das scheinbar keinerlei weitere Auswirkungen ...

mfg, Philipp

[c113plpbr]

Hat keiner ne Idee?
*push*

[marabu]

Hallo Philipp,

bist du sicher, dass der Server mit POST kontaktiert wird? Hast du mal im Event OnBeforeNavigate2() überprüft, ob PostData überhaupt etwas enthält? Leite doch mal auf eine PHP-Seite um und inspiziere mit phpinfo() was beim Server ankommt.

Freundliche Grüße

[c113plpbr]

Zitat von marabu:

bist du sicher, dass der Server mit POST kontaktiert wird?

Sogar ganz sicher, is schließlich mein PHP-Script, welches da aufgerufen wird ...

Zitat von marabu:

Hast du mal im Event OnBeforeNavigate2() überprüft, ob PostData überhaupt etwas enthält?

Ja, aber eben nur "schrott", im ersten Element des Variant Arrays of variant steht grundsätzlich "117", falls Post-Daten übergeben werden, ansonsten hat der Array keine Elemente.

Wie gesagt, die Post-Daten kommen erst gar nicht bis zur OnBeforeNavigate2-Funktion, die gehen meiner Meinung nach irgendwo vorher schon verloren ...

mfg,
Philipp

[c113plpbr]

Also, ich hab jetzt eine Methode gefunden, damit das ganze funktioniert, obwohl ich dies für ziemlich sinnlos halte:

Delphi-Quellcode:

function GetPostData(PostData: OleVariant): string;
var
  i: Integer;
begin
  Result := '';
  if not(VarIsEmpty(PostData) or (VarToStr(PostData) = ''))then
    for i := 0 to VarArrayHighBound(PostData, 1) - 1 do
      Result := Result + Chr(StrToInt(PostData[i]));
end;

function SetPostData(PostData: string): OleVariant;
var
  i: Integer;
begin
  Result := VarArrayCreate([0, Length(PostData) - 1], varByte);
  for i := 1 to Length(PostData) do
    Result[i - 1] := Ord(PostData[i]);
end;

procedure TForm2.WebBrowser1BeforeNavigate2(ASender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
var
  PostData2: OleVariant;
begin
  //...
  Cancel := true;
  PostData2 := SetPostData(GetPostData(PostData));
  (ASender as TWebBrowser).Navigate2(URL, Flags, TargetFrameName, PostData2, Headers);
  //...
end;

Hier werden zuerst die PostDaten in einen String umgewandelt, und wieder "zurückgewandelt" in einen Var-Array of Byte ... danach gehts komischerweise ...

Und noch etwas für die Freunde der IE-ActiveX-Alternative, dem Mozilla-ActiveX-Control von http://www.iol.ie/~locka/mozilla/control.htm: In der letzten, mir bekannten Version werden im BeforeNavigate2-Event *keine* Post-daten übergeben ... lässt sich auch hier nachlesen ...

ciao, Philipp