Delphi/delphimvcframework
1
0
Fork 0
mirror of https://github.com/danieleteti/delphimvcframework.git synced 2024-11-16 16:25:54 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity
119238df9e
delphimvcframework/samples/renders/RenderSampleControllerU.pas

252 lines
6.9 KiB
ObjectPascal
Raw Normal View History

FIX for chinese text
2014-07-04 17:52:17 +02:00
unit RenderSampleControllerU;
2013-11-10 01:03:53 +01:00
interface
uses
BETA support for Apache web server using Delphi XE6
2014-05-14 15:55:41 +02:00
MVCFramework, MVCFramework.Commons, ObjectsMappers, System.JSON;
2013-11-10 01:03:53 +01:00
type
[MVCPath('/')]
TRenderSampleController = class(TMVCController)
public
[MVCHTTPMethod([httpGet])]
[MVCPath('/customers')]
added Render(TStream,Boolean)
2015-06-29 14:36:54 +02:00
// [MVCProduces('application/json')]
2013-11-14 02:09:22 +01:00
procedure GetCustomers_AsDataSet(CTX: TWebContext);
2013-11-10 01:03:53 +01:00
Refactoring ADD Session demo
2014-04-01 00:02:31 +02:00
[MVCHTTPMethod([httpGet])]
[MVCPath('/people')]
[MVCProduces('application/json')]
procedure GetPeople_AsObjectList(CTX: TWebContext);
FIX FOR ISAPI modules on XE6
2014-05-30 11:29:58 +02:00
[MVCHTTPMethod([httpGet])]
[MVCPath('/skilledpeople')]
added Render(TStream,Boolean)
2015-06-29 14:36:54 +02:00
[MVCProduces('application/json')]
FIX FOR ISAPI modules on XE6
2014-05-30 11:29:58 +02:00
procedure GetProgrammersAndPhilosophersAsObjectList(CTX: TWebContext);
Render a server side view
2016-02-26 19:21:57 +01:00
[MVCHTTPMethod([httpGet])]
[MVCPath('/customers/view/($id).html')]
[MVCProduces('text/html', 'UTF-8')]
procedure GetPerson_AsHTMLView(CTX: TWebContext);
Refactoring ADD Session demo
2014-04-01 00:02:31 +02:00
[MVCHTTPMethod([httpGet])]
[MVCPath('/customers/($id).html')]
[MVCProduces('text/html', 'UTF-8')]
procedure GetPerson_AsHTML(CTX: TWebContext);
FIX for chinese text
2014-07-04 17:52:17 +02:00
[MVCHTTPMethod([httpGet])]
[MVCPath('/customers/unicode/($id).html')]
[MVCProduces('text/html', 'UTF-8')]
procedure GetUnicodeText_AsHTML(CTX: TWebContext);
2013-11-10 01:03:53 +01:00
[MVCHTTPMethod([httpGet])]
2013-11-11 01:11:09 +01:00
[MVCPath('/customers/($id)')]
[MVCProduces('application/json')]
2013-11-14 02:09:22 +01:00
procedure GetCustomerByID_AsTObject(CTX: TWebContext);
2013-11-10 01:03:53 +01:00
2013-11-11 19:32:20 +01:00
[MVCHTTPMethod([httpGet])]
2014-03-06 14:20:57 +01:00
[MVCPath('/files/customers.json')]
2013-11-11 19:32:20 +01:00
[MVCProduces('application/json')]
procedure GetPersonJSON(CTX: TWebContext);
Refactoring ADD Session demo
2014-04-01 00:02:31 +02:00
[MVCHTTPMethod([httpGet])]
[MVCPath('/files/customers.txt')]
[MVCProduces('text/plain')]
procedure GetPerson_AsText(CTX: TWebContext);
[MVCHTTPMethod([httpGet])]
[MVCPath('/files/customers.png')]
[MVCProduces('image/png')]
procedure GetPersonPhoto(CTX: TWebContext);
added Render(TStream,Boolean)
2015-06-29 14:36:54 +02:00
[MVCHTTPMethod([httpGet])]
[MVCPath('/images/customers/($id)')]
procedure GetPersonPhotoAsStream(CTX: TWebContext);
2013-11-10 01:03:53 +01:00
end;
implementation
uses
Render a server side view
2016-02-26 19:21:57 +01:00
System.SysUtils, BusinessObjectsU, Data.DBXJSON, WebModuleU,
Generics.Collections,
added Render(TStream,Boolean)
2015-06-29 14:36:54 +02:00
System.Classes;
2013-11-10 01:03:53 +01:00
{ TRoutingSampleController }
FIX for chinese text
2014-07-04 17:52:17 +02:00
procedure TRenderSampleController.GetUnicodeText_AsHTML(CTX: TWebContext);
var
s: string;
begin
s := '<html><body>';
s := s + '什么是Unicode(统一码)? in Simplified Chinese <br>';
s := s + 'Što je Unicode? in Croatian <br>';
s := s + 'Co je Unicode? in Czech';
s := s + '</body></html>';
Render(s);
end;
2013-11-14 02:09:22 +01:00
procedure TRenderSampleController.GetCustomerByID_AsTObject(CTX: TWebContext);
2013-11-10 01:03:53 +01:00
var
2013-11-11 01:11:09 +01:00
Cust: TCustomer;
2013-11-10 01:03:53 +01:00
begin
Refactoring ADD Session demo
2014-04-01 00:02:31 +02:00
if CTX.Request.ParamsAsInteger['id'] = 7 then // just a sample
2013-11-11 01:11:09 +01:00
Render(404, 'Customer Not Found')
else
begin
Cust := TCustomer.Create;
Cust.Name := 'Daniele Teti Inc.';
Cust.ContactFirst := 'Daniele';
Cust.ContactLast := 'Teti';
Cust.AddressLine1 := 'Rome Street 12';
Cust.AddressLine2 := '00100';
Cust.City := 'ROME';
Render(Cust);
end;
2013-11-10 01:03:53 +01:00
end;
2013-11-14 02:09:22 +01:00
procedure TRenderSampleController.GetCustomers_AsDataSet(CTX: TWebContext);
2013-11-10 01:03:53 +01:00
var
wm: TWebModule1;
begin
wm := GetCurrentWebModule as TWebModule1;
wm.qryCustomers.Open;
Render(wm.qryCustomers);
end;
Refactoring ADD Session demo
2014-04-01 00:02:31 +02:00
procedure TRenderSampleController.GetPerson_AsHTML(CTX: TWebContext);
2013-11-11 19:32:20 +01:00
begin
Render a server side view
2016-02-26 19:21:57 +01:00
ResponseStream.Append('<html><body><ul>')
.Append('<li>FirstName: Daniele</li>').Append('<li>LastName: Teti')
.AppendFormat('<li>DOB: %s</li>', [ISODateToString(EncodeDate(1975, 5, 2))])
.Append('<li>Married: yes</li>').Append('</ul></body></html>');
Render;
end;
procedure TRenderSampleController.GetPerson_AsHTMLView(CTX: TWebContext);
var
Cust: TCustomer;
begin
Cust := TCustomer.Create;
Cust.Name := 'Daniele Teti Inc.';
Cust.ContactFirst := 'Daniele';
Cust.ContactLast := 'Teti';
Cust.AddressLine1 := 'Rome Street 12';
Cust.AddressLine2 := '00100';
Cust.City := 'ROME';
PushObjectToView('customer', Cust);
Added TMVCController.GetRenderedView
2016-02-27 09:58:54 +01:00
LoadView(['header', 'customer', 'footer']);
2013-11-11 19:32:20 +01:00
Render;
Added TMVCController.GetRenderedView
2016-02-27 09:58:54 +01:00
{ If you need more flexibility, you can use GetRenderedView to compose your
output using small views.
Here's an example:
ContentType := TMVCMediaType.TEXT_HTML;
Render(GetRenderedView(['header', 'customer','footer']));
}
2013-11-11 19:32:20 +01:00
end;
Refactoring ADD Session demo
2014-04-01 00:02:31 +02:00
procedure TRenderSampleController.GetPerson_AsText(CTX: TWebContext);
begin
added Render(TStream,Boolean)
2015-06-29 14:36:54 +02:00
ResponseStream.AppendLine('FirstName: Daniele').AppendLine('LastName : Teti')
.AppendLine('DOB : ' + ISODateToString(EncodeDate(1975, 5, 2)))
.AppendLine('Married : yes');
Refactoring ADD Session demo
2014-04-01 00:02:31 +02:00
Render;
end;
Render a server side view
2016-02-26 19:21:57 +01:00
procedure TRenderSampleController.GetProgrammersAndPhilosophersAsObjectList
(CTX: TWebContext);
FIX FOR ISAPI modules on XE6
2014-05-30 11:29:58 +02:00
var
List: TObjectList<TPerson>;
p: TProgrammer;
ph: TPhilosopher;
begin
List := TObjectList<TPerson>.Create(True);
p := TProgrammer.Create;
p.Married := True;
p.FirstName := 'Peter';
p.LastName := 'Parker';
p.Skills := 'Delphi, JavaScript, Python, C++';
List.Add(p);
ph := TPhilosopher.Create;
p.Married := False;
ph.FirstName := 'Bruce';
ph.LastName := 'Banner';
ph.Mentors := 'Abbagnano, Algarotti, Cavalieri, Pareyson';
List.Add(ph);
p := TProgrammer.Create;
p.Married := False;
p.FirstName := 'Sue';
p.LastName := 'Storm';
p.Skills := 'Delphi, JavaScript';
List.Add(p);
Render<TPerson>(List);
end;
Refactoring ADD Session demo
2014-04-01 00:02:31 +02:00
procedure TRenderSampleController.GetPeople_AsObjectList(CTX: TWebContext);
var
FIX FOR ISAPI modules on XE6
2014-05-30 11:29:58 +02:00
p: TPerson;
Refactoring ADD Session demo
2014-04-01 00:02:31 +02:00
People: TObjectList<TPerson>;
begin
People := TObjectList<TPerson>.Create(True);
{$REGION 'Fake data'}
FIX FOR ISAPI modules on XE6
2014-05-30 11:29:58 +02:00
p := TPerson.Create;
p.FirstName := 'Daniele';
p.LastName := 'Teti';
p.DOB := EncodeDate(1979, 11, 4);
p.Married := True;
People.Add(p);
p := TPerson.Create;
p.FirstName := 'John';
p.LastName := 'Doe';
p.DOB := EncodeDate(1879, 10, 2);
p.Married := False;
People.Add(p);
p := TPerson.Create;
p.FirstName := 'Jane';
p.LastName := 'Doe';
p.DOB := EncodeDate(1883, 1, 5);
p.Married := True;
People.Add(p);
Refactoring ADD Session demo
2014-04-01 00:02:31 +02:00
{$ENDREGION}
Render<TPerson>(People);
// or if you want to be more opne to future extension
// RenderListAsProperty<TPerson>('people', People);
end;
2013-11-11 19:32:20 +01:00
procedure TRenderSampleController.GetPersonJSON(CTX: TWebContext);
var
FIX FOR ISAPI modules on XE6
2014-05-30 11:29:58 +02:00
p: TJSONObject;
2013-11-11 19:32:20 +01:00
begin
FIX FOR ISAPI modules on XE6
2014-05-30 11:29:58 +02:00
p := TJSONObject.Create;
p.AddPair('FirstName', 'Daniele');
p.AddPair('LastName', 'Teti');
p.AddPair('DOB', ISODateToString(EncodeDate(1975, 5, 2)));
p.AddPair('Married', TJSONTrue.Create);
Render(p);
2013-11-11 19:32:20 +01:00
end;
Refactoring ADD Session demo
2014-04-01 00:02:31 +02:00
procedure TRenderSampleController.GetPersonPhoto(CTX: TWebContext);
begin
2014-04-01 19:36:05 +02:00
// ContentType := 'image/jpeg';
Refactoring ADD Session demo
2014-04-01 00:02:31 +02:00
SendFile('..\..\..\_\customer.png');
end;
added Render(TStream,Boolean)
2015-06-29 14:36:54 +02:00
procedure TRenderSampleController.GetPersonPhotoAsStream(CTX: TWebContext);
var
LPhoto: TFileStream;
begin
Render a server side view
2016-02-26 19:21:57 +01:00
LPhoto := TFileStream.Create('..\..\..\_\customer.png',
fmOpenRead or fmShareDenyWrite);
added Render(TStream,Boolean)
2015-06-29 14:36:54 +02:00
ContentType := 'image/png'; // you can also use MVCProduces attribute
// LPhoto is a plain TStream descendant, so it can be rendered as usual
Render(LPhoto, True);
end;
2013-11-10 01:03:53 +01:00
end.
Reference in New Issue Copy Permalink