Changeset 130 for trunk/Packages/CoolWeb/WebServer/UHTTPServerTCP.pas

Timestamp:

Mar 18, 2022, 1:32:32 PM (2 years ago)

Author:

chronos

Message:

• Modified: Build with Lazarus 2.2.0.
• Modified: Code cleanup.

File:

• trunk/Packages/CoolWeb/WebServer/UHTTPServerTCP.pas (modified) (4 diffs)

trunk/Packages/CoolWeb/WebServer/UHTTPServerTCP.pas

@@ -27 +27 @@
 
 procedure Register;
+
 
 implementation
@@ -71 +72 @@
                 Request.Query.Clear;
               end;
+              // Clean empty path parts
+              for I := Request.Path.Count - 1 downto 0 do
+                if Request.Path[I] = '' then Request.Path.Delete(I);
             end;
           end else begin
@@ -103 +107 @@
     Response.Content.Clear;
     Response.Headers.Add('Content-Type', 'text/html');
-
-
 
     if Assigned(OnRequest) then OnRequest(HandlerData)
@@ -153 +155 @@
 destructor THTTPServerTCP.Destroy;
 begin
-  Socket.Free;
-  RequestHandlerList.Free;
-  inherited Destroy;
+  FreeAndNil(Socket);
+  FreeAndNil(RequestHandlerList);
+  inherited;
 end;