Ignore:
Timestamp:
Jun 18, 2012, 10:44:21 PM (12 years ago)
Author:
chronos
Message:
  • Upraveno: Obsluha stránek rozdělena do samostatných sezení(TWebSession). Každé sezení si tak alokuje vlastní instanci TSqlDatabase. Zároveň při obsluze jednoduchých souborů se nyní již nenačítá info o přihlášeném uživateli a nevytváří se tak pro každé načítání souboru instance databázového připojení.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Pages/UInternetPage.pas

    r77 r78  
    3434procedure TInternetPage.DataModuleProduce(HandlerData: THTTPHandlerData);
    3535begin
    36   with MainModule do begin
    37     LoadUserInfo(HandlerData);
     36  with TWebSession(HandlerData) do begin
     37    LoadUserInfo;
    3838    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    3939      Text := Text + 'Hlavní náplní činnosti sítě je poskytovat výhodné připojení k internetu pro občany.<br/><br/>' +
     
    5454      '<i>Aktualizováno: 1.8.2011</i>';
    5555    end;
     56    GeneratePage(Self);
    5657  end;
    57   MainModule.GeneratePage(HandlerData, Self);
    5858end;
    5959
Note: See TracChangeset for help on using the changeset viewer.