Disclosure Statement: This site contains affiliate links, which means that I may receive a commission if you make a purchase using these links. As an eBay Partner, I earn from qualifying purchases.

Accept-Language

Post Reply
Vaytl
Posts: 22
Joined: Tue Jan 04, 2022 12:52 pm

Accept-Language

Post by Vaytl »

Hi, salvadordf. Please tell me how to set my "Accept-Language" in the header?
Is there a way to set my header somehow?
KsWang
Posts: 3
Joined: Wed Jun 21, 2023 3:34 pm

Re: Accept-Language

Post by KsWang »

The default language setting is ‘zh-CN,zh;q=0.9,en;q=0.8,en-GB;q=0.7,en-US;q=0.6’;
Although it's strange why you need to modify it, I tried and found the location of the modification.
It's strange that modifications did not work in event ‘NavigationStarting’.
After modification in the event ‘WebResourceRequested’,It is effective。

procedure TBrowserFrame.WVBrowser1WebResourceRequested(Sender: TObject;
const aWebView: ICoreWebView2;
const aArgs: ICoreWebView2WebResourceRequestedEventArgs);
var
TempArgs : TCoreWebView2WebResourceRequestedEventArgs;
RequestHeaders:ICoreWebView2HttpRequestHeaders;
begin
TempArgs:= TCoreWebView2WebResourceRequestedEventArgs.Create(aArgs);
try
TempArgs.Request.Get_Headers(RequestHeaders);
RequestHeaders.SetHeader('Accept-Language','zh-cn;q=0.8,en-US;q=0.9');

finally
TempArgs.Free ;
end;
end;
Last edited by KsWang on Tue Jul 11, 2023 1:35 pm, edited 1 time in total.
Vaytl
Posts: 22
Joined: Tue Jan 04, 2022 12:52 pm

Re: Accept-Language

Post by Vaytl »

Thanks KsWang. It works great.
Post Reply