paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-20 11:09:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Allow descendents to configure data requests

Browse Source
This commit is contained in:
michael 2019-03-07 08:46:40 +00:00
parent e2494de422
commit 5a3377ea94
1 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
packages/fcl-db/restconnection.pas
View File

@ -22,9 +22,10 @@ Type
FPageParam: String;
function GetDataProxy: TDataProxy;
Protected
Function GetUpdateBaseURL : String; virtual;
Function GetReadBaseURL : String; virtual;
Function GetPageURL(aRequest : TDataRequest) : String;
Procedure SetupRequest(aXHR : TJSXMLHttpRequest); virtual;
Function GetUpdateBaseURL(aRequest: TRecordUpdateDescriptor) : String; virtual;
Function GetReadBaseURL(aRequest: TDataRequest) : String; virtual;
Function GetPageURL(aRequest : TDataRequest) : String; virtual;
Function GetRecordUpdateURL(aRequest : TRecordUpdateDescriptor) : String;
Public
Function DoGetDataProxy : TDataProxy; virtual;
@ -129,12 +130,17 @@ begin
Result:=FDataProxy;
end;
function TRESTConnection.GetUpdateBaseURL: String;
procedure TRESTConnection.SetupRequest(aXHR: TJSXMLHttpRequest);
begin
// Do nothing
end;
function TRESTConnection.GetUpdateBaseURL(aRequest: TRecordUpdateDescriptor): String;
begin
Result:=BaseURL;
end;
function TRESTConnection.GetReadBaseURL: String;
function TRESTConnection.GetReadBaseURL(aRequest: TDataRequest): String;
begin
Result:=BaseURL;
end;
@ -145,7 +151,7 @@ Var
URL : String;
begin
URL:=GetReadBaseURL;
URL:=GetReadBaseURL(aRequest);
if (PageParam<>'') then
begin
if Pos('?',URL)<>0 then
@ -168,7 +174,7 @@ Var
begin
KeyField:='';
Result:='';
Base:=GetUpdateBaseURL;
Base:=GetUpdateBaseURL(aRequest);
if aRequest.Status in [usModified,usDeleted] then
begin
I:=aRequest.Dataset.Fields.Count-1;
@ -286,6 +292,7 @@ begin
else
begin
R.FXHR.open('GET',URL,true);
Connection.SetupRequest(R.FXHR);
R.FXHR.send;
Result:=True;
end;