Ignore:
Timestamp:
Apr 29, 2012, 9:41:43 PM (13 years ago)
Author:
chronos
Message:
  • Modified: WebApp is not TComponent instead of TCustomApplication. TApplication in Forms unit is used as base application class.
  • Added: Experimental HTTPServerTurboPower as HTTPServer type which can be used for web application development without external web browser. If used, form with TurboPowerIPro panel will be displayed. This requeire some LCD widgetset other then nogui.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • Network/CoolWeb/CoolWeb.pas

    r295 r357  
    33 }
    44
    5 unit CoolWeb; 
     5unit CoolWeb;
    66
    77interface
    88
    99uses
    10   UHTTPServer, UHTTPServerCGI, UHTTPServerTCP, UHTTPSessionFile,
    11   UHTTPSessionMySQL, USqlDatabase, UTCPServer, UPageList, UUser, UHtmlClasses,
    12   UMemoryStreamEx, UMIMEType, UXmlClasses, UWebPage, UWebApp, LazIDEReg,
    13   LazarusPackageIntf;
     10  UHTTPServer, UHTTPServerCGI, UHTTPServerTCP, UHTTPServerTurboPower,
     11  UTurboPowerForm, UHTTPSessionFile, UHTTPSessionMySQL, USqlDatabase,
     12  UTCPServer, UPageList, UUser, UHtmlClasses, UMemoryStreamEx, UMIMEType,
     13  UXmlClasses, UWebPage, UWebApp, LazIDEReg, LazarusPackageIntf;
    1414
    1515implementation
    1616
    17 procedure Register; 
     17procedure Register;
    1818begin
    19   RegisterUnit('UHTTPServerCGI', @UHTTPServerCGI.Register); 
    20   RegisterUnit('UHTTPServerTCP', @UHTTPServerTCP.Register); 
    21   RegisterUnit('UHTTPSessionFile', @UHTTPSessionFile.Register); 
    22   RegisterUnit('UHTTPSessionMySQL', @UHTTPSessionMySQL.Register); 
    23   RegisterUnit('USqlDatabase', @USqlDatabase.Register); 
    24   RegisterUnit('UWebPage', @UWebPage.Register); 
    25   RegisterUnit('UWebApp', @UWebApp.Register); 
    26   RegisterUnit('LazIDEReg', @LazIDEReg.Register); 
    27 end; 
     19  RegisterUnit('UHTTPServerCGI', @UHTTPServerCGI.Register);
     20  RegisterUnit('UHTTPServerTCP', @UHTTPServerTCP.Register);
     21  RegisterUnit('UHTTPSessionFile', @UHTTPSessionFile.Register);
     22  RegisterUnit('UHTTPSessionMySQL', @UHTTPSessionMySQL.Register);
     23  RegisterUnit('USqlDatabase', @USqlDatabase.Register);
     24  RegisterUnit('UWebPage', @UWebPage.Register);
     25  RegisterUnit('UWebApp', @UWebApp.Register);
     26  RegisterUnit('LazIDEReg', @LazIDEReg.Register);
     27end;
    2828
    2929initialization
    30   RegisterPackage('CoolWeb', @Register); 
     30  RegisterPackage('CoolWeb', @Register);
    3131end.
Note: See TracChangeset for help on using the changeset viewer.