Delphi/delphimvcframework
1
0
Fork 0
mirror of https://github.com/danieleteti/delphimvcframework.git synced 2024-11-15 07:45:54 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Added method Page, PageFragment, SetPagesCommonHeaders and SetPagesCommonFooters. Removed the old LoadViewFragment method.

Browse Source
This commit is contained in:
Daniele Teti 2023-10-10 18:17:44 +02:00
parent 7c3f301054
commit 9c70a6244c
1 changed files with 72 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

85
sources/MVCFramework.pas
View File

@ -777,6 +777,8 @@ type
private
FViewModel: TMVCViewDataObject;
FViewDataSets: TMVCViewDataSet;
fPageHeaders: TArray<String>;
fPageFooters: TArray<String>;
function GetSession: TMVCWebSession;
function GetViewData(const aModelName: string): TObject;
function GetViewDataset(const aDataSetName: string): TDataSet;
@ -799,6 +801,42 @@ type
function GetRenderedView(const AViewNames: TArray<string>): string; overload; virtual;
function GetRenderedView(const AViewNames: TArray<string>; const JSONModel: TJSONObject): string; overload; virtual;
/// <summary>
/// Normally used in OnBeforeControllerAction to define view headers automatically used by the Page method.
/// </summary>
procedure SetPagesCommonHeaders(const AViewNames: TArray<string>);
/// <summary>
/// Normally used in OnBeforeControllerAction to define view footers automatically used by the Page method.
/// </summary>
procedure SetPagesCommonFooters(const AViewNames: TArray<string>);
/// <summary>
/// Page calls GetRenderedView with sensible defaults.
/// Page method just concatenate -> commonheader_header_views + views + commonfooter_views
/// PageFragment ignore header and footer views
/// </summary>
function Page(const AViewNames: TArray<string>): string; overload; inline;
/// <summary>
/// Page calls GetRenderedView with sensible defaults.
/// Page method just concatenate -> commonheader_header_views + views + commonfooter_views
/// PageFragment ignore header and footer views
/// </summary>
function Page(const AViewNames: TArray<string>; const JSONModel: TJSONObject): string; overload; inline;
/// <summary>
/// PageFragment calls GetRenderedView.
/// PageFragment ignore header and footer views.
/// </summary>
function PageFragment(const AViewNames: TArray<string>): string; overload; inline;
/// <summary>
/// PageFragment calls GetRenderedView.
/// PageFragment ignore header and footer views.
/// </summary>
function PageFragment(const AViewNames: TArray<string>; const JSONModel: TJSONObject): string; overload; inline;
/// <summary>
/// Load mustache view located in TMVCConfigKey.ViewsPath
/// returns the rendered views and generates output using
@ -806,14 +844,6 @@ type
/// </summary>
function LoadView(const AViewNames: TArray<string>; const JSONModel: TJSONObject = nil): string; virtual;
/// <summary>
/// Load a view fragment in the output render stream. The view fragment is appended to the
/// ResponseStream verbatim. No processing happens.
/// Useful when used with cache.
/// It is equivalent to <code>ResponseStream.Append(AViewFragment);</code>
/// </summary>
procedure LoadViewFragment(const AViewFragment: string);
function SessionAs<T: TMVCWebSession>: T;
procedure RaiseSessionExpired; virtual;
@ -3672,6 +3702,8 @@ begin
FResponseStream := nil;
FViewModel := nil;
FViewDataSets := nil;
fPageHeaders := nil;
fPageFooters := nil;
end;
destructor TMVCController.Destroy;
@ -3823,11 +3855,6 @@ begin
end;
end;
procedure TMVCController.LoadViewFragment(const AViewFragment: string);
begin
ResponseStream.Append(AViewFragment);
end;
procedure TMVCController.MVCControllerAfterCreate;
begin
{ Implement if need be. }
@ -3852,6 +3879,28 @@ begin
{ Implement if need be. }
end;
function TMVCController.Page(const AViewNames: TArray<string>;
const JSONModel: TJSONObject): string;
begin
Result := GetRenderedView(fPageHeaders + AViewNames + fPageFooters, JSONModel);
end;
function TMVCController.PageFragment(const AViewNames: TArray<string>;
const JSONModel: TJSONObject): string;
begin
Result := GetRenderedView(AViewNames, JSONModel);
end;
function TMVCController.PageFragment(const AViewNames: TArray<string>): string;
begin
Result := GetRenderedView(AViewNames);
end;
function TMVCController.Page(const AViewNames: TArray<string>): string;
begin
Result := GetRenderedView(fPageHeaders + AViewNames + fPageFooters);
end;
procedure TMVCController.PushDataSetToView(const aModelName: string; const ADataSet: TDataSet);
begin
GetViewDataSets.Add(aModelName, ADataSet);
@ -4069,6 +4118,16 @@ begin
Context.Response.SetCustomHeader('ETag', GetSHA1HashFromString(Data));
end;
procedure TMVCController.SetPagesCommonFooters(const AViewNames: TArray<string>);
begin
fPageFooters := AViewNames;
end;
procedure TMVCController.SetPagesCommonHeaders(const AViewNames: TArray<string>);
begin
fPageHeaders := AViewNames;
end;
procedure TMVCController.SetViewData(const aModelName: string; const Value: TObject);
begin
GetViewModel.Add(aModelName, Value);