36 lines
934 B
ObjectPascal
36 lines
934 B
ObjectPascal
{
|
|
Synopse mORMot framework
|
|
|
|
Sample 04 - HTTP Client-Server
|
|
purpose of this sample is to show how to serve files in
|
|
addition to RESTful Client/Server of a SQLite3 database
|
|
|
|
This sample will serve as REST the data as defined in SampleData,
|
|
and serve 'www' sub-folder content within localhost:8080/static
|
|
|
|
It is IMHO preferred and less-error prone to define a method-based service,
|
|
then let the method return the file using Ctxt.ReturnFile() method.
|
|
|
|
See also https://synopse.info/forum/viewtopic.php?id=1896
|
|
|
|
Version 1.18
|
|
- added Project04ServerStatic.dpr program
|
|
|
|
}
|
|
|
|
program Project04ServerStatic;
|
|
|
|
uses
|
|
{$I SynDprUses.inc} // use FastMM4 on older Delphi, or set FPC threads
|
|
Forms,
|
|
Unit2Static in 'Unit2Static.pas' {Form1},
|
|
SampleData in '..\01 - In Memory ORM\SampleData.pas';
|
|
|
|
{$R *.res}
|
|
|
|
begin
|
|
Application.Initialize;
|
|
Application.CreateForm(TForm1, Form1);
|
|
Application.Run;
|
|
end.
|