Changeset 151 for trunk/Packages/CoolWeb/WebServer/HTTPServer.pas

Timestamp:

Feb 4, 2024, 3:53:52 PM (9 months ago)

Author:

chronos

Message:

• Modified: Units in CoolWeb and ModularSystem packages renamed to not use U prefix in name.

File:

• trunk/Packages/CoolWeb/WebServer/HTTPServer.pas (moved) (moved from trunk/Packages/CoolWeb/WebServer/UHTTPServer.pas ) (3 diffs)

trunk/Packages/CoolWeb/WebServer/HTTPServer.pas

@@ -1 @@
-unit UHTTPServer;
+unit HTTPServer;
 
 interface
 
 uses
-  Classes, SysUtils, Common, UMemoryStreamEx, UMIMEType, Synautil, Syncobjs,
+  Classes, SysUtils, Common, MemoryStreamEx, MIMEType, Synautil, Syncobjs,
   Generics.Collections, Generics;
 
@@ -77 +77 @@
 
   TRequestHandlerList = class(TObjectList<TRequestHandler>)
-    procedure Add(AName: string; AHandler: TRequestEvent);
+    function AddNew(AName: string; AHandler: TRequestEvent): TRequestHandler;
     function IndexOfName(AName: string): TRequestHandler;
   end;
@@ -279 +279 @@
 { TRequestHandlerList }
 
-procedure TRequestHandlerList.Add(AName: string; AHandler: TRequestEvent);
-begin
-  with TRequestHandler(Items[inherited Add(TRequestHandler.Create)]) do begin
-    Name := AName;
-    Handler := AHandler;
-  end;
+function TRequestHandlerList.AddNew(AName: string; AHandler: TRequestEvent): TRequestHandler;
+begin
+  Result := TRequestHandler.Create;
+  Result.Name := AName;
+  Result.Handler := AHandler;
+  Add(Result);
 end;