paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 09:19:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add RoutesRegistered property to TSQLDBRestBridge

Browse Source 
git-svn-id: trunk@42264 -
This commit is contained in:
michael 2019-06-22 07:33:49 +00:00
parent 4cb612252a
commit 961b27b4a7
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/fcl-web/src/restbridge/sqldbrestbridge.pp
View File

@ -231,6 +231,7 @@ Type
FMetadataItemRoute: THTTPRoute; FMetadataItemRoute: THTTPRoute;
FStatus: TRestStatusConfig; FStatus: TRestStatusConfig;
FStrings: TRestStringsConfig; FStrings: TRestStringsConfig;
function GetRoutesRegistered: Boolean;
procedure SetActive(AValue: Boolean); procedure SetActive(AValue: Boolean);
procedure SetAdminUserIDS(AValue: TStrings); procedure SetAdminUserIDS(AValue: TStrings);
procedure SetAuthenticator(AValue: TRestAuthenticator); procedure SetAuthenticator(AValue: TRestAuthenticator);
@ -325,6 +326,7 @@ Type
Function ExposeDatabase(Const aType,aHostName,aDatabaseName,aUserName,aPassword : String; aTables : TStrings = nil; aMinFieldOpts : TRestFieldOptions = []) : TSQLDBRestConnection; Function ExposeDatabase(Const aType,aHostName,aDatabaseName,aUserName,aPassword : String; aTables : TStrings = nil; aMinFieldOpts : TRestFieldOptions = []) : TSQLDBRestConnection;
Function ExposeConnection(aOwner : TComponent; Const aConnection : TSQLDBRestConnection; aTables : TStrings = nil; aMinFieldOpts : TRestFieldOptions = []) : TSQLDBRestSchema; Function ExposeConnection(aOwner : TComponent; Const aConnection : TSQLDBRestConnection; aTables : TStrings = nil; aMinFieldOpts : TRestFieldOptions = []) : TSQLDBRestSchema;
Function ExposeConnection(Const aConnection : TSQLDBRestConnection; aTables : TStrings = nil; aMinFieldOpts : TRestFieldOptions = []) : TSQLDBRestSchema; Function ExposeConnection(Const aConnection : TSQLDBRestConnection; aTables : TStrings = nil; aMinFieldOpts : TRestFieldOptions = []) : TSQLDBRestSchema;
Property RoutesRegistered : Boolean Read GetRoutesRegistered;
Published Published
// Register or unregister HTTP routes // Register or unregister HTTP routes
Property Active : Boolean Read FActive Write SetActive; Property Active : Boolean Read FActive Write SetActive;
@ -518,6 +520,11 @@ begin
FActive:=AValue; FActive:=AValue;
end; end;
function TSQLDBRestDispatcher.GetRoutesRegistered: Boolean;
begin
Result:=FItemRoute<>Nil;
end;
procedure TSQLDBRestDispatcher.SetAdminUserIDS(AValue: TStrings); procedure TSQLDBRestDispatcher.SetAdminUserIDS(AValue: TStrings);
begin begin
if FAdminUserIDs=AValue then Exit; if FAdminUserIDs=AValue then Exit;