paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-09-14 13:29:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add event to set up request

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-06-11 16:04:40 +02:00
parent 59b0fb327f
commit 26e8ca99a2
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-db/sqldbrestdataset.pp
View File

@ -253,11 +253,12 @@ end;
procedure TSQLDBRestConnection.SetupRequest(aXHR: TJSXMLHttpRequest); procedure TSQLDBRestConnection.SetupRequest(aXHR: TJSXMLHttpRequest);
begin begin
inherited SetupRequest(aXHR);
aXHR.setRequestHeader('Content-Type', 'application/json'); aXHR.setRequestHeader('Content-Type', 'application/json');
aXHR.setRequestHeader('Accept', 'application/json'); aXHR.setRequestHeader('Accept', 'application/json');
if (UserName<>'') then if (UserName<>'') then
aXHR.setRequestHeader('Authorization', 'Basic '+window.btoa(UserName+':'+Password)); aXHR.setRequestHeader('Authorization', 'Basic '+window.btoa(UserName+':'+Password));
// Will call the OnSetupHTTPRequest handler
inherited SetupRequest(aXHR);
end; end;
function TSQLDBRestConnection.GetUpdateBaseURL(aRequest: TRecordUpdateDescriptor): String; function TSQLDBRestConnection.GetUpdateBaseURL(aRequest: TRecordUpdateDescriptor): String;