Ignore:
Timestamp:
Feb 4, 2024, 3:53:52 PM (21 months ago)
Author:
chronos
Message:
Location:
trunk/Packages/CoolWeb/WebServer
Files:
13 moved

Legend:

Unmodified
Added
Removed

  • trunk/Packages/CoolWeb/WebServer/HTTPServer.pas

    r150 r151  
    1 unit UHTTPServer;
     1unit HTTPServer;
    22
    33interface
    44
    55uses
    6   Classes, SysUtils, Common, UMemoryStreamEx, UMIMEType, Synautil, Syncobjs,
     6  Classes, SysUtils, Common, MemoryStreamEx, MIMEType, Synautil, Syncobjs,
    77  Generics.Collections, Generics;
    88
    … …  
    7777
    7878  TRequestHandlerList = class(TObjectList<TRequestHandler>)
    79     procedure Add(AName: string; AHandler: TRequestEvent);
     79    function AddNew(AName: string; AHandler: TRequestEvent): TRequestHandler;
    8080    function IndexOfName(AName: string): TRequestHandler;
    8181  end;
    … …  
    279279{ TRequestHandlerList }
    280280
    281 procedure TRequestHandlerList.Add(AName: string; AHandler: TRequestEvent);
    282 begin
    283   with TRequestHandler(Items[inherited Add(TRequestHandler.Create)]) do begin
    284     Name := AName;
    285     Handler := AHandler;
    286   end;
     281function TRequestHandlerList.AddNew(AName: string; AHandler: TRequestEvent): TRequestHandler;
     282begin
     283  Result := TRequestHandler.Create;
     284  Result.Name := AName;
     285  Result.Handler := AHandler;
     286  Add(Result);
    287287end;
    288288

  • trunk/Packages/CoolWeb/WebServer/HTTPServerCGI.pas

    r150 r151  
    1 unit UHTTPServerCGI;
     1unit HTTPServerCGI;
    22
    33interface
    44
    55uses
    6   Classes, SysUtils, UHTTPServer, IOStream, Generics.Collections;
     6  Classes, SysUtils, HTTPServer, IOStream, Generics.Collections;
    77
    88type

  • trunk/Packages/CoolWeb/WebServer/HTTPServerTCP.pas

    r150 r151  
    1 unit UHTTPServerTCP;
     1unit HTTPServerTCP;
    22
    33interface
    44
    55uses
    6   Classes, SysUtils, UHTTPServer, UTCPServer, SynaUtil, Generics.Collections,
     6  Classes, SysUtils, HTTPServer, TCPServer, SynaUtil, Generics.Collections,
    77  Generics;
    88

  • trunk/Packages/CoolWeb/WebServer/HTTPServerTurboPower.pas

    r150 r151  
    1 unit UHTTPServerTurboPower;
     1unit HTTPServerTurboPower;
    22
    33interface
    44
    55uses
    6   Classes, SysUtils, Forms, UHTTPServer, IpHtml;
     6  Classes, SysUtils, Forms, HTTPServer, IpHtml;
    77
    88type
    … …  
    2323
    2424uses
    25   UTurboPowerForm;
     25  TurboPowerForm;
    2626
    2727procedure Register;

  • trunk/Packages/CoolWeb/WebServer/HTTPSessionFile.pas

    r150 r151  
    1 unit UHTTPSessionFile;
     1unit HTTPSessionFile;
    22
    33interface
    44
    55uses
    6   Classes, SysUtils, UHTTPServer, syncobjs, synacode, Common, FileUtil,
     6  Classes, SysUtils, HTTPServer, syncobjs, synacode, Common, FileUtil,
    77  LazFileUtils;
    88

  • trunk/Packages/CoolWeb/WebServer/HTTPSessionMySQL.pas

    r150 r151  
    1 unit UHTTPSessionMySQL;
     1unit HTTPSessionMySQL;
    22
    33interface
    44
    55uses
    6   Classes, SysUtils, UHTTPServer, syncobjs, synacode, Common, USqlDatabase;
     6  Classes, SysUtils, HTTPServer, syncobjs, synacode, Common, SqlDatabase;
    77
    88type

  • trunk/Packages/CoolWeb/WebServer/TurboPowerForm.pas

    r150 r151  
    1 unit UTurboPowerForm;
     1unit TurboPowerForm;
    22
    33interface

  • trunk/Packages/CoolWeb/WebServer/WebApp.pas

    r150 r151  
    1 unit UWebApp;
     1unit WebApp;
    22
    33interface
    44
    55uses
    6   Classes, SysUtils, UWebPage, UHTTPSessionFile, UHTTPServer, Forms, FileUtil,
     6  Classes, SysUtils, WebPage, HTTPSessionFile, HTTPServer, Forms, FileUtil,
    77  Generics.Collections;
    88
    … …  
    6060
    6161uses
    62   UHTTPServerCGI, UHTTPServerTCP, UHTTPServerTurboPower;
     62  HTTPServerCGI, HTTPServerTCP, HTTPServerTurboPower;
    6363
    6464procedure Register;

  • trunk/Packages/CoolWeb/WebServer/WebPage.pas

    r150 r151  
    1 unit UWebPage;
     1unit WebPage;
    22
    33interface
    44
    55uses
    6   Classes, SysUtils, UHTTPServer, Controls;
     6  Classes, SysUtils, HTTPServer, Controls;
    77
    88type
Note: See TracChangeset for help on using the changeset viewer.