Changeset 137 for trunk/Packages/CoolWeb/WebServer

Timestamp:

Sep 9, 2022, 1:16:58 AM (2 years ago)

Author:

chronos

Message:

• Added: Robots page.
• Modified: Canonical URL for webcams.
• Modified: Removed compiler mode delphi as it is already set in project.
• Modified: Updated Common package.
• Modified: Use Generics.Collections instead of fgl.

Location:

trunk/Packages/CoolWeb/WebServer

Files:

• UHTTPServer.pas (modified) (2 diffs)
• UHTTPServerCGI.pas (modified) (4 diffs)
• UHTTPServerTCP.pas (modified) (2 diffs)
• UHTTPServerTurboPower.pas (modified) (3 diffs)
• UHTTPSessionFile.pas (modified) (4 diffs)
• UHTTPSessionMySQL.pas (modified) (4 diffs)
• UTurboPowerForm.pas (modified) (3 diffs)
• UWebApp.pas (modified) (3 diffs)
• UWebPage.pas (modified) (3 diffs)

trunk/Packages/CoolWeb/WebServer/UHTTPServer.pas

@@ -1 +1 @@
 unit UHTTPServer;
-
-{$mode Delphi}{$H+}
 
 interface
@@ -419 +417 @@
 procedure THTTPSessionStorage.Load(HandlerData: THTTPHandlerData);
 begin
-
 end;
 
 procedure THTTPSessionStorage.Save(HandlerData: THTTPHandlerData);
 begin
-
 end;
 

trunk/Packages/CoolWeb/WebServer/UHTTPServerCGI.pas

@@ -1 +1 @@
 unit UHTTPServerCGI;
-
-{$mode delphi}{$H+}
 
 interface
@@ -21 +19 @@
   end;
 
+procedure Register;
 
-procedure Register;
 
 implementation
@@ -33 +31 @@
   RegisterComponents('CoolWeb', [THTTPServerCGI]);
 end;
-
 
 { THTTPServerCGI }
@@ -46 +43 @@
 begin
   EnvVars.Free;
-  inherited Destroy;
+  inherited;
 end;
 

trunk/Packages/CoolWeb/WebServer/UHTTPServerTCP.pas

@@ -1 +1 @@
 unit UHTTPServerTCP;
-
-{$mode delphi}
 
 interface
@@ -141 +139 @@
 end;
 
-
 { THTTPServerTCP }
 

trunk/Packages/CoolWeb/WebServer/UHTTPServerTurboPower.pas

@@ -1 +1 @@
 unit UHTTPServerTurboPower;
-
-{$mode delphi}{$H+}
 
 interface
@@ -32 +30 @@
 end;
 
-
 { THTTPServerTurboPower }
 
@@ -62 +59 @@
 destructor THTTPServerTurboPower.Destroy;
 begin
-  inherited Destroy;
+  inherited;
 end;
 

trunk/Packages/CoolWeb/WebServer/UHTTPSessionFile.pas

@@ -1 +1 @@
 unit UHTTPSessionFile;
-
-{$mode Delphi}{$H+}
 
 interface
@@ -36 +34 @@
 procedure Register;
 
+
 implementation
 
@@ -45 +44 @@
   RegisterComponents('CoolWeb', [THTTPSessionStorageFile]);
 end;
-
 
 { THTTPSession }
@@ -119 +117 @@
   Sessions.Destroy;
   Lock.Destroy;
-  inherited Destroy;
+  inherited;
 end;
 

trunk/Packages/CoolWeb/WebServer/UHTTPSessionMySQL.pas

@@ -1 +1 @@
 unit UHTTPSessionMySQL;
-
-{$mode Delphi}{$H+}
 
 interface
@@ -37 +35 @@
 procedure Register;
 
+
 implementation
 
@@ -43 +42 @@
   RegisterComponents('CoolWeb', [THTTPSessionStorageMySQL]);
 end;
-
 
 { THTTPSession }
@@ -138 +136 @@
   Sessions.Free;
   Lock.Free;
-  inherited Destroy;
+  inherited;
 end;
 

trunk/Packages/CoolWeb/WebServer/UTurboPowerForm.pas

@@ -1 +1 @@
 unit UTurboPowerForm;
-
-{$mode delphi}
 
 interface
@@ -35 +33 @@
   FormWebBrowser: TFormWebBrowser;
 
+
 implementation
 
@@ -51 +50 @@
 end;
 
-initialization
-
 end.
 

trunk/Packages/CoolWeb/WebServer/UWebApp.pas

@@ -1 +1 @@
 unit UWebApp;
 
-{$mode Delphi}{$H+}
-
 interface
 
 uses
-  Classes, SysUtils, UWebPage, UHTTPSessionFile,
-  UHTTPServer, Forms, FileUtil, fgl;
+  Classes, SysUtils, UWebPage, UHTTPSessionFile, UHTTPServer, Forms, FileUtil,
+  Generics.Collections;
 
 type
@@ -22 +20 @@
   { TPageList }
 
-  TPageList = class(TFPGObjectList<TRegistredPage>)
+  TPageList = class(TObjectList<TRegistredPage>)
     RootDir: string;
     function FindByPage(Page: TWebPage): TRegistredPage;
@@ -221 +219 @@
 end;
 
-
-initialization
-
-finalization
-
 end.
 

trunk/Packages/CoolWeb/WebServer/UWebPage.pas

@@ -1 +1 @@
 unit UWebPage;
-
-{$mode objfpc}{$H+}
 
 interface
@@ -11 +9 @@
   TOnProduceEvent = procedure(HandlerData: THTTPHandlerData) of object;
 
-
   { TWebPage }
 
@@ -18 +15 @@
     FCaption: string;
     FOnProduce: TOnProduceEvent;
+    FRaw: Boolean;
   published
+    property Raw: Boolean read FRaw write FRaw;
     property Caption: string read FCaption write FCaption;
     property OnProduce: TOnProduceEvent read FOnProduce write FOnProduce;
   end;
-
 
   TWebPageClass = class of TWebPage;