mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-16 00:05:53 +01:00
50 lines
963 B
ObjectPascal
50 lines
963 B
ObjectPascal
|
unit MyController1U;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
MVCFramework,
|
||
|
|
MVCFramework.Commons,
|
||
|
|
MVCFramework.Swagger.Commons;
|
||
|
|
|
||
|
|
type
|
||
|
|
|
||
|
|
[MVCPath('/status')]
|
||
|
|
TMyController1 = class(TMVCController)
|
||
|
|
public
|
||
|
|
[MVCPath('')]
|
||
|
|
[MVCSwagSummary('Status', 'API Status')]
|
||
|
|
[MVCSwagResponses(200, 'Sucess')]
|
||
|
|
[MVCSwagResponses(500, 'Internal Server Error')]
|
||
|
|
[MVCProduces(TMVCMediaType.APPLICATION_JSON)]
|
||
|
|
[MVCHTTPMethod([httpGET])]
|
||
|
|
procedure Index;
|
||
|
|
end;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
uses
|
||
|
|
JsonDataObjects,
|
||
|
|
System.SysUtils,
|
||
|
|
System.DateUtils,
|
||
|
|
MVCFramework.Controllers.Register;
|
||
|
|
|
||
|
|
{ TMyController1 }
|
||
|
|
|
||
|
|
procedure TMyController1.Index;
|
||
|
|
var
|
||
|
|
LObj: TJDOJsonObject;
|
||
|
|
begin
|
||
|
|
LObj := TJDOJsonObject.Create;
|
||
|
|
LObj.S['application'] := Context.Config[TMVCConfigKey.ServerName];
|
||
|
|
LObj.B['online'] := True;
|
||
|
|
LObj.S['serverdatetime'] := DateToISO8601(Now);
|
||
|
|
Render(LObj);
|
||
|
|
end;
|
||
|
|
|
||
|
|
initialization
|
||
|
|
|
||
|
|
TControllersRegister.Instance.RegisterController(TMyController1, 'MyServerName');
|
||
|
|
|
||
|
|
end.
|