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

* Avoid extra load at EOF if no pages are used

Browse Source
This commit is contained in:
michael 2018-07-17 07:52:46 +00:00
parent e3e8ff02b2
commit ffc2238def
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -279,12 +279,17 @@ begin
R.DoAfterRequest; // This will free request ! R.DoAfterRequest; // This will free request !
end; end;
end end
else
begin
if (loAtEOF in R.LoadOptions) and (Connection.PageParam='') then
R.Success:=rrEOF
else else
begin begin
R.FXHR.open('GET',URL,true); R.FXHR.open('GET',URL,true);
R.FXHR.send; R.FXHR.send;
Result:=True; Result:=True;
end; end;
end;
end; end;
function TRESTDataProxy.GetDataRequest(aOptions: TLoadOptions; aAfterRequest: TDataRequestEvent; aAfterLoad: TDatasetLoadEvent): TDataRequest; function TRESTDataProxy.GetDataRequest(aOptions: TLoadOptions; aAfterRequest: TDataRequestEvent; aAfterLoad: TDatasetLoadEvent): TDataRequest;