Changeset 137 for trunk/Packages/CoolWeb/WebServer/UWebApp.pas

Timestamp:

Sep 9, 2022, 1:16:58 AM (22 months 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.

File:

• trunk/Packages/CoolWeb/WebServer/UWebApp.pas (modified) (3 diffs)

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.