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

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

view plainprint?

1. procedure TForm1.EdgeBrowser1CreateWebViewCompleted(Sender: TCustomEdgeBrowser; AResult: HRESULT);  
2. begin  
3.     Sender.AddWebResourceRequestedFilter('*', WebView2.COREWEBVIEW2_WEB_RESOURCE_CONTEXT_ALL);  
4. end;  
5.   
6. procedure TForm1.EdgeBrowser1WebResourceRequested(Sender: TCustomEdgeBrowser; Args: TWebResourceRequestedEventArgs);  
7. var  
8.   Request: ICoreWebView2WebResourceRequest;  
9.   Headers: ICoreWebView2HttpRequestHeaders;  
10. begin  
11.     Args.ArgsInterface.Get_Request(Request);  
12.     Request.Get_Headers(Headers);  
13.     Headers.SetHeader('Authorization', 'token');  
14. end;  

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