Changeset 123 for trunk/Packages

Timestamp:

Jul 24, 2020, 11:06:31 PM (4 years ago)

Author:

chronos

Message:

• Added: IPTV channels for channel packages.
• Added: Used network interfaces specification document.
• Modified: Updated IPTV manual.
• Fixed: Build under Lazarus 2.0.10.

Location:

trunk/Packages

Files:

• Common/URegistry.pas (modified) (3 diffs)
• CoolWeb/WebServer/UHTTPServer.pas (modified) (1 diff)

trunk/Packages/Common/URegistry.pas

@@ -18 +18 @@
     Key: string;
     class operator Equal(A, B: TRegistryContext): Boolean;
-    function Create(RootKey: TRegistryRoot; Key: string): TRegistryContext; overload;
-    function Create(RootKey: HKEY; Key: string): TRegistryContext; overload;
+    class function Create(RootKey: TRegistryRoot; Key: string): TRegistryContext; static; overload;
+    class function Create(RootKey: HKEY; Key: string): TRegistryContext; static; overload;
   end;
 
@@ -55 +55 @@
 end;
 
-function TRegistryContext.Create(RootKey: TRegistryRoot; Key: string): TRegistryContext;
+class function TRegistryContext.Create(RootKey: TRegistryRoot; Key: string): TRegistryContext;
 begin
   Result.RootKey := RegistryRootHKEY[RootKey];
@@ -61 +61 @@
 end;
 
-function TRegistryContext.Create(RootKey: HKEY; Key: string): TRegistryContext;
+class function TRegistryContext.Create(RootKey: HKEY; Key: string): TRegistryContext;
 begin
   Result.RootKey := RootKey;

trunk/Packages/CoolWeb/WebServer/UHTTPServer.pas

@@ -242 +242 @@
   inherited;
   Lock := TCriticalSection.Create;
-  ShowExceptions := False;
+  ShowExceptions := True;
   DocumentRoot := './';
 end;