mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-16 16:25:54 +01:00
34 lines
570 B
ObjectPascal
34 lines
570 B
ObjectPascal
unit OtherControllerU;
|
|
|
|
interface
|
|
|
|
uses
|
|
MVCFramework, MVCFramework.Commons;
|
|
|
|
type
|
|
TOtherController = class(TMVCController)
|
|
public
|
|
[MVCPath]
|
|
[MVCHTTPMethods([httpGET])]
|
|
procedure GetSomethings;
|
|
[MVCPath('/else')]
|
|
[MVCHTTPMethods([httpGET])]
|
|
procedure GetSomethingElse;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{ TCustomController }
|
|
|
|
procedure TOtherController.GetSomethingElse;
|
|
begin
|
|
Render('Hello There, it''s "GetSomethingElse" here');
|
|
end;
|
|
|
|
procedure TOtherController.GetSomethings;
|
|
begin
|
|
Render('Hello There, it''s "GetSomethings" here');
|
|
end;
|
|
|
|
end.
|