source upload

contrib/mORMot/SQLite3/Samples/04 - HTTP Client-Server/Project04ServerStatic.dpr

@@ -0,0 +1,35 @@
+{
+   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.