mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-06 04:52:53 +02:00
36 lines
472 B
ObjectPascal
36 lines
472 B
ObjectPascal
unit dmmyrest;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
SysUtils, Classes, HTTPDefs, fpHTTP, sqldbrestmodule, sqldbrestbridge,
|
|
sqldbrestauth, sqldbrestschema;
|
|
|
|
type
|
|
|
|
{ TMyRest }
|
|
|
|
TMyRest = class(TSQLDBRestModule)
|
|
AuthBasic: TRestBasicAuthenticator;
|
|
MyDispatcher: TSQLDBRestDispatcher;
|
|
ExpensesSchema: TSQLDBRestSchema;
|
|
private
|
|
|
|
public
|
|
|
|
end;
|
|
|
|
var
|
|
MyRest: TMyRest;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
initialization
|
|
TMyRest.RegisterModule('REST');
|
|
end.
|
|
|