mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-17 08:45:55 +01:00
1ef246a589
- TWebContext param in the actions is optional - In case of "action not found", the server dont returns NEVER the document index - Refactoring - More unit tests - BasicDemo updated with typed actions - Copyright updated (just formatting)
74 lines
1.5 KiB
ObjectPascal
74 lines
1.5 KiB
ObjectPascal
unit App1MainControllerU;
|
|
|
|
interface
|
|
|
|
uses MVCFramework,
|
|
MVCFramework.Logger,
|
|
Web.HTTPApp;
|
|
|
|
type
|
|
|
|
[MVCPath('/')]
|
|
TApp1MainController = class(TMVCController)
|
|
public
|
|
[MVCPath('/')]
|
|
[MVCHTTPMethod([httpGET])]
|
|
procedure Index;
|
|
|
|
[MVCPath('/hello')]
|
|
[MVCHTTPMethod([httpGET])]
|
|
procedure HelloWorld;
|
|
|
|
[MVCPath('/hello')]
|
|
[MVCHTTPMethod([httpPOST])]
|
|
procedure HelloWorldPost;
|
|
|
|
[MVCPath('/div/($par1)/($par2)')]
|
|
[MVCHTTPMethod([httpGET])]
|
|
procedure RaiseException(par1, par2: String);
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
{$IF CompilerVersion >= 27} System.JSON,
|
|
{$ELSE} Data.DBXJSON,
|
|
{$ENDIF}
|
|
System.SysUtils;
|
|
|
|
{ TApp1MainController }
|
|
|
|
procedure TApp1MainController.HelloWorld;
|
|
begin
|
|
Render('Hello World called with GET');
|
|
if Context.Request.ThereIsRequestBody then
|
|
Log('Body:' + Context.Request.Body);
|
|
end;
|
|
|
|
procedure TApp1MainController.HelloWorldPost;
|
|
var
|
|
JSON: TJSONObject;
|
|
begin
|
|
JSON := Context.Request.BodyAsJSONObject;
|
|
JSON.AddPair('modified', 'from server');
|
|
Render(JSON, false);
|
|
Log('Hello world called with POST');
|
|
end;
|
|
|
|
procedure TApp1MainController.Index;
|
|
begin
|
|
Redirect('index.html');
|
|
end;
|
|
|
|
procedure TApp1MainController.RaiseException(par1, par2: String);
|
|
var
|
|
R: Extended;
|
|
begin
|
|
Log('Parameter1=' + QuotedStr(par1));
|
|
Log('Parameter2=' + QuotedStr(par2));
|
|
R := StrToInt(par1) / StrToInt(par2);
|
|
Render(TJSONObject.Create(TJSONPair.Create('result', TJSONNumber.Create(R))));
|
|
end;
|
|
|
|
end.
|