Delphi EdgeBrowser でカスタムヘッダのリクエスト

 Delphi EdgeBrowser(TEdgeBrowser) でカスタムヘッダのリクエスト

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

procedure TForm1.EdgeBrowser1WebResourceRequested(Sender: TCustomEdgeBrowser; Args: TWebResourceRequestedEventArgs);
var
  Request: ICoreWebView2WebResourceRequest;
  Headers: ICoreWebView2HttpRequestHeaders;
begin
    Args.ArgsInterface.Get_Request(Request);
    Request.Get_Headers(Headers);
    Headers.SetHeader('Authorization', 'token');
end;

AddWebResourceRequestedFilter は OnCreateWebViewCompleted で行います(フォームの OnCreate は動作しません)

AddWebResourceRequestedFilter の第1引数は対象URLをワイルドカードで指定、第2引数はリクエスト対象