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引数 はリクエスト対象
