Ignore:
Timestamp:
Sep 13, 2010, 11:20:24 AM (14 years ago)
Author:
george
Message:
  • Přidáno: Druhá varianta projektu pro sestavení TCP serveru.
  • Přidáno: Vlastní obsluha vyjímek a zobrazení ve HTTP tvaru.
  • Opraveno: Zpracování session třídy THTTPSessionStorageMySQL.
Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore

      •  

        old new  
        22UConfig.pas
        33bin
         4lib

  • trunk/Pages/UMainPage.pas

    r27 r33  
    66
    77uses
    8   Classes, SysUtils, USqlDatabase, UCore, UCustomCGIApplication, UHtmlClasses;
    9 
    10 procedure Links(App: TCustomCGIApplication);
    11 procedure History(App: TCustomCGIApplication);
    12 procedure Internet(App: TCustomCGIApplication);
    13 procedure VoIP(App: TCustomCGIApplication);
    14 procedure Hosting(App: TCustomCGIApplication);
    15 procedure About(App: TCustomCGIApplication);
    16 procedure Documents(App: TCustomCGIApplication);
    17 procedure Contact(App: TCustomCGIApplication);
     8  Classes, SysUtils, USqlDatabase, UCore, UCustomApplication, UHtmlClasses,
     9  UHTTPServer;
     10
     11procedure Links(App: TCustomApplication; HandlerData: THTTPHandlerData);
     12procedure History(App: TCustomApplication; HandlerData: THTTPHandlerData);
     13procedure Internet(App: TCustomApplication; HandlerData: THTTPHandlerData);
     14procedure VoIP(App: TCustomApplication; HandlerData: THTTPHandlerData);
     15procedure Hosting(App: TCustomApplication; HandlerData: THTTPHandlerData);
     16procedure About(App: TCustomApplication; HandlerData: THTTPHandlerData);
     17procedure Documents(App: TCustomApplication; HandlerData: THTTPHandlerData);
     18procedure Contact(App: TCustomApplication; HandlerData: THTTPHandlerData);
     19procedure ServerInfo(App: TCustomApplication; HandlerData: THTTPHandlerData);
    1820
    1921implementation
    2022
    21 procedure Links(App: TCustomCGIApplication);
     23procedure Links(App: TCustomApplication; HandlerData: THTTPHandlerData);
    2224begin
    2325  App.HtmlDocument.Title := 'Odkazy';
    … …  
    6567end;
    6668
    67 procedure History(App: TCustomCGIApplication);
     69procedure History(App: TCustomApplication; HandlerData: THTTPHandlerData);
    6870var
    6971  DbRows: TDbRows;
    … …  
    9092end;
    9193
    92 procedure Internet(App: TCustomCGIApplication);
     94procedure Internet(App: TCustomApplication; HandlerData: THTTPHandlerData);
    9395begin
    9496  with App do begin
    … …  
    116118end;
    117119
    118 procedure VoIP(App: TCustomCGIApplication);
     120procedure VoIP(App: TCustomApplication; HandlerData: THTTPHandlerData);
    119121begin
    120122  with App do begin
    … …  
    150152end;
    151153
    152 procedure Hosting(App: TCustomCGIApplication);
     154procedure Hosting(App: TCustomApplication; HandlerData: THTTPHandlerData);
    153155var
    154156  I: Integer;
    … …  
    183185end;
    184186
    185 procedure About(App: TCustomCGIApplication);
     187procedure About(App: TCustomApplication; HandlerData: THTTPHandlerData);
    186188var
    187189  TextBlock: THtmlString;
    … …  
    235237end;
    236238
    237 procedure Documents(App: TCustomCGIApplication);
     239procedure Documents(App: TCustomApplication; HandlerData: THTTPHandlerData);
    238240begin
    239241  with App do begin
    … …  
    259261end;
    260262
    261 procedure Contact(App: TCustomCGIApplication);
     263procedure Contact(App: TCustomApplication; HandlerData: THTTPHandlerData);
    262264begin
    263265  App.HtmlDocument.Title := 'Kontakt';
    … …  
    275277end;
    276278
     279procedure ServerInfo(App: TCustomApplication; HandlerData: THTTPHandlerData);
     280begin
     281  HandlerData.Session.Values['Test'] := 'Tst';
     282  App.HTTPServer.ServerInfo(HandlerData);
     283end;
     284
    277285end.
    278286
Note: See TracChangeset for help on using the changeset viewer.