TEdgeBrowser und Header

[Der schöne Günther]

Ja, es war doch fummeliger als gedacht.

Ich habe als Beispiel mal den User-Agent auf etwas anderes gesetzt:

Delphi-Quellcode:

implementation uses System.Win.ComObj;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  EdgeBrowser1.Navigate(Edit1.Text);
end;

procedure TForm1.EdgeBrowser1CreateWebViewCompleted(Sender: TCustomEdgeBrowser;
  AResult: HRESULT);
begin
  EdgeBrowser1.AddWebResourceRequestedFilter('*', COREWEBVIEW2_WEB_RESOURCE_CONTEXT_ALL);
end;

procedure TForm1.EdgeBrowser1WebResourceRequested(Sender: TCustomEdgeBrowser; Args: TWebResourceRequestedEventArgs);
var
  request: ICoreWebView2WebResourceRequest;
  headers: ICoreWebView2HttpRequestHeaders;
begin
  OleCheck(Args.ArgsInterface.Get_Request(request));
  OleCheck(request.Get_Headers(headers));

  OleCheck( headers.SetHeader('User-Agent', 'Hello World') );
end;

Zumindest ein Test auf
https://manytools.org/http-html-text...quest-headers/
scheint zu bestätigen dass das klappt.

Je nachdem was du vorhast solltest du dir aber die Doku für AddWebResourceRequestedFilter(..) noch einmal genauer ansehen, sonst hast du da einen Filter drin, der auf alles geht.