mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-15 15:55: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.
|