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

* raise error on non-existing route

Browse Source
This commit is contained in:
michael 2019-09-12 20:32:35 +00:00
parent 7030886a98
commit ec6b4841f2
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/rtl/webrouter.pp
View File

@ -612,7 +612,10 @@ function TRouter.DoRouteRequest(ARoute: TRoute; const AURL: String;
AParams: TStrings): TRoute;
begin
Result:=aRoute;
Result.HandleRequest(Self,aURL,AParams);
if Assigned(Result) then
Result.HandleRequest(Self,aURL,AParams)
else
Raise EHTTPRoute.CreateFmt('No route for URL: %s',[aURL]);
end;
function TRouter.DoRouteRequest(AURL: String): TRoute;