BriskBard, CEF4Delphi, WebView4Delphi, WebUI4Delphi and WebUI4CSharp

Code: Select all

var postData = "thing1=hello";
    postData += "&thing2=world";
var data = Encoding.ASCII.GetBytes(postData);
MemoryStream stream = new MemoryStream();
stream.Write(data, 0, data.Length);
var request = webView.CoreWebView2.Environment.CreateWebResourceRequest(navigateData.Url, 
              "POST", stream, "Content-Type: application/x-www-form-urlencoded");
webView.CoreWebView2.NavigateWithWebResourceRequest(request);
stream.Close();
stream.Dispose();

Code: Select all

procedure TBrowserFrame.PostDataByWVB;
var
  ARequest:ICoreWebView2WebResourceRequest;
  AStream:TMemoryStream;
  AIStream : IStream;
  AResult:Boolean;
begin
   AStream:=TStringStream.Create('key1=111&key2=123');
   AIStream:=TStreamAdapter.Create(AStream,soReference);
   AResult:=False;
   try
     AResult:=WVBrowser1.CoreWebView2Environment.CreateWebResourceRequest(URLCbx.Text,'POST',AIStream,'Content-Type: application/x-www-form-urlencoded',ARequest);
     if (AResult) then
     begin
        AResult:=WVBrowser1.NavigateWithWebResourceRequest(ARequest);
     end;
   finally
      AStream.Free;
      AIStream._Release;
   end;
end;