TSQLDBRestDispatcher

type TSQLDBRestDispatcher = class(TComponent)

protected

  procedure DoConnectionManagerLog(); virtual;

  function MustLog();

  procedure DoSQLLog(); virtual;

  procedure DoLog();

  procedure Loaded; override;

  procedure Notification(); override;

  function FindConnection();

  function GetConnectionManager;

  function CreateConnectionManager;

  function CreateConnection; virtual;

  function CreateConnectionList; virtual;

  function CreateSchemaList; virtual;

  function CreateRestStrings; virtual;

  function CreateRestStatusConfig; virtual;

  function CreateDBHandler(); virtual;

  function CreateInputStreamer(); virtual;

  function CreateOutputStreamer(); virtual;

  function CreateIO(); virtual;

  function GetInputFormat(); virtual;

  function GetOutputFormat(); virtual;

  function GetConnectionName();

  function GetSQLConnection(); virtual;

  procedure DoneSQLConnection(); virtual;

  procedure ConnectionsToDataset(); virtual;

  procedure DoConnectionDelete(); virtual;

  procedure DoConnectionPost(); virtual;

  procedure DatasetToConnection(); virtual;

  procedure ConnectionToDataset(); virtual;

  procedure DoConnectionResourceAllowed();

  procedure CreateErrorContent(); virtual;

  procedure HandleException(); virtual;

  procedure SetDefaultResponsecode(); virtual;

  function AuthenticateRequest(); virtual;

  function ExtractRestOperation(); virtual;

  function FindRestResource(); virtual;

  function AllowRestResource(); virtual;

  function AllowRestOperation(); virtual;

  function CheckResourceAccess();

  function ExtractRestResourceName(); virtual;

  function CreateSpecialResourceDataset(); virtual;

  function IsSpecialResource(); virtual;

  function FindSpecialResource(); virtual;

  function CreateMetadataDataset(); virtual;

  function CreateMetadataDetailDataset(); virtual;

  function CreateMetadataParameterDataset(); virtual;

  function CreateConnectionDataset(); virtual;

  function CreateMetadataDetailResource; virtual;

  function CreateMetadataResource; virtual;

  function CreateMetadataParameterResource; virtual;

  function CreateConnectionResource; virtual;

  function CreateCustomViewResource; virtual;

  function CreateCustomViewDataset();

  procedure ResourceToDataset(); virtual;

  procedure ResourceParamsToDataset(); virtual;

  procedure SchemasToDataset(); virtual;

  procedure DoRegisterRoutes; virtual;

  procedure DoHandleEvent(); virtual;

  function ResolvedCORSAllowedOrigins(); virtual;

  procedure HandleCORSRequest(); virtual;

  procedure HandleResourceRequest(); virtual;

  procedure HandleCorsResponseHeaders(); virtual;

  procedure HandleOtherResponseHeaders(); virtual;

  procedure DoHandleRequest(); virtual;

public

  class procedure SetIOClass();

  class procedure SetDBHandlerClass();

  class procedure SetOpenAPIRequestHandler();

  constructor Create(); override;

  destructor Destroy; override;

  procedure RegisterRoutes;

  procedure UnRegisterRoutes;

  procedure HandleMetadataParameterRequest();

  procedure HandleMetadataRequest();

  procedure HandleConnRequest();

  procedure HandleOpenAPIRequest();

  procedure HandleRequest();

  procedure VerifyPathInfo();

  function ExposeDatabase();

  function ExposeConnection();

  property RoutesRegistered: Boolean; [r]

published

  property Active: Boolean; [rw]

  property Connections: TSQLDBRestConnectionList; [rw]

  property Schemas: TSQLDBRestSchemaList; [rw]

  property BasePath: UTF8String; [rw]

  property ConnectionManager: TSQLDBConnectionManager; [rw]

  property DefaultConnection: UTF8String; [rw]

  property Strings: TRestStringsConfig; [rw]

  property Statuses: TRestStatusConfig; [rw]

  property OutputOptions: TRestOutputOptions; [rw]

  property InputFormat: string; [rw]

  property OutputFormat: string; [rw]

  property DispatchOptions: TRestDispatcherOptions; [rw]

  property Authenticator: TRestAuthenticator; [rw]

  property EnforceLimit: Integer; [rw]

  property CORSAllowedOrigins: string; [rw]

  property CORSMaxAge: Integer; [rw]

  property CORSAllowCredentials: Boolean; [rw]

  property AdminUserIDs: TStrings; [rw]

  property LogOptions: TRestDispatcherLogOptions; [rw]

  property LogSQLOptions: TDBEventTypes; [rw]

  property OnBasicAuthentication: TBasicAuthenticationEvent; [rw]

  property OnAllowResource: TResourceAuthorizedEvent; [rw]

  property OnGetConnectionName: TGetConnectionNameEvent; [rw]

  property OnException: TRestExceptionEvent; [rw]

  property OnGetConnection: TGetConnectionEvent; [rw]

  property OnGetInputFormat: TRestGetFormatEvent; [rw]

  property OnGetOutputFormat: TRestGetFormatEvent; [rw]

  property BeforeGet: TRestOperationEvent; [rw]

  property AfterGet: TRestOperationEvent; [rw]

  property BeforePatch: TRestOperationEvent; [rw]

  property AfterPatch: TRestOperationEvent; [rw]

  property BeforePut: TRestOperationEvent; [rw]

  property AfterPut: TRestOperationEvent; [rw]

  property BeforePost: TRestOperationEvent; [rw]

  property AfterPost: TRestOperationEvent; [rw]

  property BeforeDelete: TRestOperationEvent; [rw]

  property AfterDelete: TRestOperationEvent; [rw]

  property BeforeDatabaseRead: TRestDatabaseEvent; [rw]

  property AfterDatabaseRead: TRestDatabaseEvent; [rw]

  property BeforeDatabaseUpdate: TRestDatabaseEvent; [rw]

  property AfterDatabaseUpdate: TRestDatabaseEvent; [rw]

  property OnLog: TRestLogEvent; [rw]

end;

TSQLDBRestDispatcher

TObject