Post Data mit neuem TEdgeBrowser

[Rollo62]

Wenn der neue Edge ein Chromium ist,
Kommt man da irgendwie ans Chromium ran ?

Hat das Mal jemand probiert ?

Könnte ja sein das es mit Cef4D irgendwelche Schnittpunkte hat.

[AuronTLG]

Letzendlich wird der Edgebrowser über Zugriffe auf die Webview2-API gesteuert, dementsprechend hast du also immer Microsoft zwischen dir und Chromium hängen.

Ich befürchte, dass Günther's Vermutung zutrifft und das Ganze einfach noch nicht so ausgereift ist.

Wobei ich das schon etwas seltsam finde, da CEF4Delphi die Funktion ja bietet.

[AuronTLG]

So, Nachtrag. Ich habs mit der Winsoft-Komponente "Webview", welche genau wie der TEdgeBrowser auf Webview2 basiert, hinbekommen.

Durchaus möglich, dass es mit dem Edgebrowser ähnlich geht, aber da hab ich jetzt keine Muse zu, dies auszuprobieren.

Wenns irgendwer braucht, kann ich gerne später mal meinen Ansatz hier hinstellen.

[ReinerS]

Hallo AuronTLg,

kannst du bitte die Lösung mit Winsoft posten, da Ich vor dem gleichen Problem stehe.

Gruß Reiner

[AuronTLG]

Zuerst stell sicher, dass du die neuste Version der Webview hast.

Dann ist das Ereignis "OnWebResourceRequested" der Webview entscheidend.

Für POSTDATA ist der Code bei mir:

Code:

If Request.Uri = Url
  Then Begin
       Request.Method  := 'POST';
       Request.Header['Content-Type'] := 'application/x-www-form-urlencoded';
       Request.Content := TEncoding.UTF8.GetBytes(StrParameter);
       End

"StrParameter" ist hierbei der zu übergebende Inhalt. Bei mir z.B. bestimmte Login-Daten.
"Url" ist bei mir die entsprechende Basis-URL des Webshops.
Empfangen geht im selben Ereigniss umgekehrt über "If Request.Uri = 'http://127.0.0.1/'", wobei man den Inhalt hier dann genau umgekehrt aus Request.Content entnehmen kann.

Es ist ein bisschen her, weswegen ich nicht mehr genau weiß, wie entscheidend das war, aber ich habe noch folgendes im "OnActive"-Ereignis der Webview stehen:

Code:

WebView.AddFilter(Url);
WebView.AddFilter(HOOKURL);

HOOKURL ist meine Konstante für 'http://127.0.0.1/'; Wie gesagt, ich weiß gerade nicht, ob das wichtig war.

[ReinerS]

Danke, werd Ich ausprobieren

[ReinerS]

Werden bei dir die Postdata richtig verschickt?

wenn Ich den Datenverkehr mit Fiddler überwache werden keine Postdata verschickt.

anbei ein kleines Demoprogramm
postdata werden aus einer Datei geladen
sUrlFilter wird zum Filtern in on WebResourceRequested verwendet, damit Postdata nur einmal geladen werden.
WebResourceRequested wird aber auch nur einmal aufgerufen.

procedure TForm1.Button1Click(Sender: TObject);
begin
sUrlFilter:='https://connect.zander.online/api/v1.0/shop/gateway/ids/execute';
WebView1.Visible:=true;
WebView1.Uri:='https://connect.zander.online/api/v1.0/shop/gateway/ids/execute'
end;

procedure TForm1.WebView1Active(Sender: TObject);
begin
WebView1.AddFilter('https://connect.zander.online/*');
end;

procedure TForm1.WebView1WebMessageReceived(Sender: TObject; const Source,
Message, Json: string);
begin
MessageDlg(Message,mtInformation,[mbOK],0);
end;

procedure TForm1.WebView1WebResourceRequested(Sender: TObject;
const Request: TWebResourceRequest; var Response: TWebResourceResponse);
var
s,sBoundary:String;
fs:TFileStream;
begin
s:=ReQuest.Uri;
if (sUrlFilter<>'') and (Pos(sUrlFilter,s)=1)
then begin

fs:=TFileStream.Create('e:\Programmierung\webview\ spostdata.txt',fmOpenReadWrite);
fs.Position:=0;
setLength(sPostData,fs.Size);
fs.Read(sPostData[1],fs.Size);
freeAndNil(fs);

Request.Header['Content-type'] := 'application/x-www-form-urlencoded';
Request.Method:='Post';
Request.Content:=TEncoding.UTF8.GetBytes(sPostData );
sUrlFilter:='';
end;
end;