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;