Changeset 123 for trunk/Packages


Ignore:
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:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/Packages/Common/URegistry.pas

    r122 r123  
    1818    Key: string;
    1919    class operator Equal(A, B: TRegistryContext): Boolean;
    20     function Create(RootKey: TRegistryRoot; Key: string): TRegistryContext; overload;
    21     function Create(RootKey: HKEY; Key: string): TRegistryContext; overload;
     20    class function Create(RootKey: TRegistryRoot; Key: string): TRegistryContext; static; overload;
     21    class function Create(RootKey: HKEY; Key: string): TRegistryContext; static; overload;
    2222  end;
    2323
     
    5555end;
    5656
    57 function TRegistryContext.Create(RootKey: TRegistryRoot; Key: string): TRegistryContext;
     57class function TRegistryContext.Create(RootKey: TRegistryRoot; Key: string): TRegistryContext;
    5858begin
    5959  Result.RootKey := RegistryRootHKEY[RootKey];
     
    6161end;
    6262
    63 function TRegistryContext.Create(RootKey: HKEY; Key: string): TRegistryContext;
     63class function TRegistryContext.Create(RootKey: HKEY; Key: string): TRegistryContext;
    6464begin
    6565  Result.RootKey := RootKey;
  • trunk/Packages/CoolWeb/WebServer/UHTTPServer.pas

    r122 r123  
    242242  inherited;
    243243  Lock := TCriticalSection.Create;
    244   ShowExceptions := False;
     244  ShowExceptions := True;
    245245  DocumentRoot := './';
    246246end;
Note: See TracChangeset for help on using the changeset viewer.