Post Data mit neuem TEdgeBrowser

[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;

[AuronTLG]

Bei mir funktioniert das wunderbar.

Eventuell ein Problem mit dem Typ?
Die Post-Data, die ich übergebe, sind einfach ein String mit Anmeldeinformationen für einen Webshop, der dann im Prinzip Teil der URL ist.
Dementsprechend Content-Typ "application/x-www-form-urlencoded". Vielleicht benötigen deine Daten einen anderen Typ, abhängig davon was genau du übergibst.

[ReinerS]

Hallo,

habe einen Unterschied festgestellt

mit Edge version 85.0.564.63 werden die Daten verschickt
mit Edge 87.0.654.0 dev funktioniert dies nicht

muss dies mit Erik von Winsoft klären

jetzt muss ich nur noch herausfinden warum die Daten von der Gegenseite nicht richtig verarbeitet werden.
Die Daten müssten doch gleich sein wie beim IE mit IE.Navigate(AsURLLogin,EmptyParam,EmptyParam,sPost data, Headers);