3.1.0

HashLoad · Mar 9, 2023 · 8794e0f · 8794e0f
1 parent eb995d4
commit 8794e0f
Show file tree

Hide file tree

Showing 45 changed files with 2,622 additions and 3,540 deletions.
diff --git a/.gitignore b/.gitignore
@@ -45,6 +45,7 @@ src/*.~*
 #FPC/Laz
 lib/
 backup/
+*.lps
 
 # Code coverage reports
 **/console/

diff --git a/samples/delphi/apache/Apache.dpr b/samples/delphi/apache/Apache.dpr
@@ -29,11 +29,13 @@ exports
   ApacheModuleData name 'apache_horse_module';
 
 begin
+  // Need to set "HORSE_APACHE" compilation directive
+
   THorse.DefaultModule := @ApacheModuleData;
   THorse.HandlerName := 'apache_horse_module-handle';
 
   THorse.Get('/ping',
-    procedure(Req: THorseRequest; Res: THorseResponse; Next: TProc)
+    procedure(Req: THorseRequest; Res: THorseResponse)
     begin
       Res.Send('pong');
     end);

diff --git a/samples/delphi/apache/Apache.dproj b/samples/delphi/apache/Apache.dproj
diff --git a/samples/delphi/cgi/CGI.dpr b/samples/delphi/cgi/CGI.dpr
@@ -6,8 +6,10 @@ program CGI;
 uses Horse;
 
 begin
+  // Need to set "HORSE_CGI" compilation directive
+
   THorse.Get('/ping',
-    procedure(Req: THorseRequest; Res: THorseResponse; Next: TProc)
+    procedure(Req: THorseRequest; Res: THorseResponse)
     begin
       Res.Send('pong');
     end);

diff --git a/samples/delphi/cgi/CGI.dproj b/samples/delphi/cgi/CGI.dproj
diff --git a/samples/delphi/console/Console.dpr b/samples/delphi/console/Console.dpr
@@ -16,15 +16,15 @@ begin
   {$ENDIF}
 
   THorse.Get('/ping',
-    procedure(Req: THorseRequest; Res: THorseResponse; Next: TProc)
+    procedure(Req: THorseRequest; Res: THorseResponse)
     begin
       Res.Send('pong');
     end);
 
   THorse.Listen(9000,
-    procedure(Horse: THorse)
+    procedure
     begin
-      Writeln(Format('Server is runing on %s:%d', [Horse.Host, Horse.Port]));
+      Writeln(Format('Server is runing on %s:%d', [THorse.Host, THorse.Port]));
       Readln;
     end);
 end.
diff --git a/samples/delphi/console/Console.dproj b/samples/delphi/console/Console.dproj
diff --git a/samples/delphi/daemon/Daemon.dpr b/samples/delphi/daemon/Daemon.dpr
@@ -6,8 +6,10 @@ program Daemon;
 uses Horse, System.SysUtils;
 
 begin
+  // Need to set "HORSE_DAEMON" compilation directive
+
   THorse.Get('/ping',
-    procedure(Req: THorseRequest; Res: THorseResponse; Next: TProc)
+    procedure(Req: THorseRequest; Res: THorseResponse)
     begin
       Res.Send('pong');
     end);

diff --git a/samples/delphi/daemon/Daemon.dproj b/samples/delphi/daemon/Daemon.dproj
diff --git a/samples/delphi/isapi/ISAPI.dpr b/samples/delphi/isapi/ISAPI.dpr
@@ -5,8 +5,10 @@ library ISAPI;
 uses Horse;
 
 begin
+  // Need to set "HORSE_ISAPI" compilation directive
+
   THorse.Get('/ping',
-    procedure(Req: THorseRequest; Res: THorseResponse; Next: TProc)
+    procedure(Req: THorseRequest; Res: THorseResponse)
     begin
       Res.Send('pong');
     end);

diff --git a/samples/delphi/isapi/ISAPI.dproj b/samples/delphi/isapi/ISAPI.dproj
diff --git a/samples/delphi/vcl-ssl/VCL_SSL.dpr b/samples/delphi/vcl-ssl/VCL_SSL.dpr
@@ -7,14 +7,9 @@ uses
 {$R *.res}
 
 begin
-
-{$IFDEF MSWINDOWS}
-  IsConsole := False;
   ReportMemoryLeaksOnShutdown := True;
-{$ENDIF}
   Application.Initialize;
   Application.MainFormOnTaskbar := True;
   Application.CreateForm(TfrmMain, frmMain);
   Application.Run;
-
 end.
-Original file line number
+Diff line change
@@ Expand Up / @@ -45,6 +45,7 @@ src/*.~* @@
     #FPC/Laz
     lib/
     backup/
+    *.lps
     # Code coverage reports
     **/console/
@@ Expand Down @@