Changeset 78 for trunk/Pages


Ignore:
Timestamp:
Jun 18, 2012, 10:44:21 PM (13 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í.
Location:
trunk/Pages
Files:
13 edited

Legend:

Unmodified
Added
Removed

  • trunk/Pages/UAboutPage.pas

    r77 r78  
    3636  TextBlock: THtmlString;
    3737begin
    38   with MainModule do begin
    39     LoadUserInfo(HandlerData);
     38  with TWebSession(HandlerData) do begin
     39    LoadUserInfo;
    4040    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    4141    Text := '<img align="left" src="' + NavigationLink('/images/umisteni.gif') + '" alt="Umístění obce"/>' +
    … …  
    8080      '<i>Aktualizováno: 21.1.2011</i>';
    8181    end;
     82    GeneratePage(Self);
    8283  end;
    83   MainModule.GeneratePage(HandlerData, Self);
    8484end;
    8585

  • trunk/Pages/UContactPage.pas

    r77 r78  
    3232procedure TContactPage.DataModuleProduce(HandlerData: THTTPHandlerData);
    3333begin
    34   with MainModule, HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    35     LoadUserInfo(HandlerData);
     34  with TWebSession(HandlerData), HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
     35    LoadUserInfo;
    3636    Text := '<strong>Kontaktní informace</strong><br/>' +
    37     'Provozovatel: Ing. Jiří Hajda<br/>' +
    38     'Adresa: Zděchov 208, 75607<br/>' +
    39     'Telefon: 737785792<br/>' +
     37    'Provozovatel: <strong>Ing. Jiří Hajda</strong><br/>' +
     38    'Adresa: <strong>Zděchov 208, 75607</strong><br/>' +
     39    'Telefon: <strong>737785792</strong><br/>' +
    4040    'E-mail: <a href="mailto: robie@centrum.cz">robie@centrum.cz</a><br/>' +
    41     'Jabber: chronos@jabbim.cz<br/>' +
     41    'Jabber: <strong>chronos@jabbim.cz</strong><br/>' +
    4242    'ICQ: <a href="http://www.icq.com/people/277158770">277158770</a><br/>' +
    43     'IČ: 75904535<br/>' +
    44     'DIČ: CZ8303255884<br/>' +
    45     'Bankovní spojení pro platby v CZK v ČR: 2600134781 / 2010' +
    46     'Bankovní spojení pro platby v EUR v SR: 2600134781 / 8330' +
    47     'Starý bankovní účet: 218098370 / 0300<br/>';
     43    'IČ: <strong>75904535</strong><br/>' +
     44    'DIČ: <strong>CZ8303255884</strong><br/>' +
     45    'Bankovní spojení pro platby v CZK v ČR: <strong>2600134781 / 2010</strong><br/>' +
     46    'Bankovní spojení pro platby v EUR v SR: <strong>2600134781 / 8330</strong><br/>' +
     47    'Starý bankovní účet: <strong>218098370 / 0300</strong><br/>';
     48    GeneratePage(Self);
    4849  end;
    49   MainModule.GeneratePage(HandlerData, Self);
    5050end;
    5151

  • trunk/Pages/UDocumentsPage.pas

    r77 r78  
    3434procedure TDocumentsPage.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 := '<strong>O obci:</strong><br/>' +
    … …  
    5252      IconedLink(NavigationLink('/docs/vyzva_do_infokanalu_15.8.2004.pdf'), 'Výzva do infokanálu (15.8.2004)') + '<br/>';
    5353    end;
     54    GeneratePage(Self);
    5455  end;
    55   MainModule.GeneratePage(HandlerData, Self);
    5656end;
    5757

  • trunk/Pages/UHistoryPage.pas

    r77 r78  
    3737  I: Integer;
    3838begin
    39   with MainModule do begin
    40     LoadUserInfo(HandlerData);
     39  with TWebSession(HandlerData) do begin
     40    LoadUserInfo;
    4141    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    4242      Text := '<table>';
    … …  
    5454      Text := Text + '</table>';
    5555    end;
     56    GeneratePage(Self);
    5657  end;
    57   MainModule.GeneratePage(HandlerData, Self);
    5858end;
    5959

  • trunk/Pages/UHostingPage.pas

    r77 r78  
    3838  DbRows: TDbRows;
    3939begin
    40   with MainModule do begin
    41     LoadUserInfo(HandlerData);
     40  with TWebSession(HandlerData) do begin
     41    LoadUserInfo;
    4242    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    4343      Text := 'V nabídce je provoz virtualizovaných Linuxových serverů dle dohodnutých parameterů.<br/><br/>' +
    … …  
    9393      end;
    9494    end;
     95    GeneratePage(Self);
    9596  end;
    96   MainModule.GeneratePage(HandlerData, Self);
    9797end;
    9898

  • 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

  • trunk/Pages/ULinksPage.pas

    r77 r78  
    3434procedure TLinksPage.DataModuleProduce(HandlerData: THTTPHandlerData);
    3535begin
    36   with MainModule, HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    37     LoadUserInfo(HandlerData);
     36  with TWebSession(HandlerData), HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
     37    LoadUserInfo;
    3838    Text := '<strong>Odkazy související s obcí:</strong><br/>' +
    3939
    … …  
    6363    '<a href="http://www.ustinet.cz/">Ústí.Net</a> - síť v Ústí u Vsetína<br/>' +
    6464    '<br/>';
     65    GeneratePage(Self);
    6566  end;
    66   MainModule.GeneratePage(HandlerData, Self);
    6767end;
    6868

  • trunk/Pages/UNetworkPage.pas

    r77 r78  
    3636  TextBlock: THtmlString;
    3737begin
    38   with MainModule do begin
    39     LoadUserInfo(HandlerData);
     38  with TWebSession(HandlerData) do begin
     39    LoadUserInfo;
    4040    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    4141      Text := MakeLink('Historie', NavigationLink('/historie/')) + '<br/>' +
    … …  
    4343        MakeLink('Plánované projekty', NavigationLink('/plany/')) + '<br/>';
    4444    end;
     45    GeneratePage(Self);
    4546  end;
    46   MainModule.GeneratePage(HandlerData, Self);
    4747end;
    4848

  • trunk/Pages/UPlansPage.pas

    r77 r78  
    3737  I: Integer;
    3838begin
    39   with MainModule do begin
    40     LoadUserInfo(HandlerData);
     39  with TWebSession(HandlerData) do begin
     40    LoadUserInfo;
    4141    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    4242      Text := '<table>';
    … …  
    6565      Text := Text + '</table>';
    6666    end;
     67    GeneratePage(Self);
    6768  end;
    68   MainModule.GeneratePage(HandlerData, Self);
    6969end;
    7070

  • trunk/Pages/UServerInfoPage.pas

    r77 r78  
    3434procedure TServerInfoPage.DataModuleProduce(HandlerData: THTTPHandlerData);
    3535begin
    36   with MainModule do begin
    37     LoadUserInfo(HandlerData);
    38     HandlerData.Session.Values['Test'] := 'Tst';
    39     WebApp1.HTTPServer.ServerInfo(HandlerData);
    40     GeneratePage(HandlerData, Self);
     36  with TWebSession(HandlerData) do begin
     37    LoadUserInfo;
     38    Session.Values['Test'] := 'Tst';
     39    MainModule.WebApp1.HTTPServer.ServerInfo(HandlerData);
     40    GeneratePage(Self);
    4141  end;
    4242end;

  • trunk/Pages/UUserControlPage.pas

    r77 r78  
    4343  NewItem: TQueryFormItem;
    4444begin
    45   if HandlerData.Request.QueryParts.Count > 1 then PageName := HandlerData.Request.QueryParts[1]
    46     else PageName := '';
    47   with MainModule, HtmlDocument.Body do begin
    48     LoadUserInfo(HandlerData);
    49     if PageName = '' then PageName := 'prihlaseni';
    50     if PageName = 'prihlaseni' then HandleLogin(HandlerData)
    51       else if PageName = 'registrace' then HandleRegistration(HandlerData)
    52       else if PageName = 'odhlaseni' then HandleLogout(HandlerData)
    53       else if PageName = 'profil' then HandleProfile(HandlerData);
    54   end;
    55   MainModule.GeneratePage(HandlerData, Self);
     45  with TWebSession(HandlerData) do begin
     46    if Request.Path.Count > 1 then PageName := Request.Path[1]
     47      else PageName := '';
     48    with HtmlDocument.Body do begin
     49      LoadUserInfo;
     50      if PageName = '' then PageName := 'prihlaseni';
     51      if PageName = 'prihlaseni' then HandleLogin(HandlerData)
     52        else if PageName = 'registrace' then HandleRegistration(HandlerData)
     53        else if PageName = 'odhlaseni' then HandleLogout(HandlerData)
     54        else if PageName = 'profil' then HandleProfile(HandlerData);
     55    end;
     56    GeneratePage(Self);
     57  end;
    5658end;
    5759
    … …  
    6163  UserId: Integer;
    6264begin
    63   with MainModule, HtmlDocument.Body do begin
     65  with TWebSession(MainModule), HtmlDocument.Body do begin
    6466    Form := TQueryForm.Create;
    6567    with Form do begin
    … …  
    9294      with THtmlString(SubItems.AddNew(THtmlString.Create)) do
    9395        Text := 'Přihlášení user: ' + TQueryFormGroup(Form.Groups[0]).Rows.FindByName('UserName').Value.Value;
    94       UserId := MainModule.User.GetIdByNamePassword(TQueryFormGroup(Form.Groups[0]).Rows.FindByName('UserName').Value.Value,
     96      UserId := User.GetIdByNamePassword(TQueryFormGroup(Form.Groups[0]).Rows.FindByName('UserName').Value.Value,
    9597        TQueryFormGroup(Form.Groups[0]).Rows.FindByName('Password').Value.Value);
    9698      UserOnline.Login(UserId);
    … …  
    106108  UserId: Integer;
    107109begin
    108   with MainModule, HtmlDocument.Body do begin
     110  with TWebSession(MainModule), HtmlDocument.Body do begin
    109111    Form := TQueryForm.Create;
    110112    with Form do begin
    … …  
    150152      with THtmlString(SubItems.AddNew(THtmlString.Create)) do
    151153        Text := 'Registrace uživatele: ' + TQueryFormGroup(Form.Groups[0]).Rows.FindByName('UserName').Value.Value;
    152       MainModule.User.Add(TQueryFormGroup(Form.Groups[0]).Rows.FindByName('UserName').Value.Value,
     154      User.Add(TQueryFormGroup(Form.Groups[0]).Rows.FindByName('UserName').Value.Value,
    153155        TQueryFormGroup(Form.Groups[0]).Rows.FindByName('Password').Value.Value,
    154156        TQueryFormGroup(Form.Groups[0]).Rows.FindByName('Email').Value.Value);
    155       UserId := MainModule.User.GetIdByNamePassword(TQueryFormGroup(Form.Groups[0]).Rows.FindByName('UserName').Value.Value,
     157      UserId := User.GetIdByNamePassword(TQueryFormGroup(Form.Groups[0]).Rows.FindByName('UserName').Value.Value,
    156158        TQueryFormGroup(Form.Groups[0]).Rows.FindByName('Password').Value.Value);
    157       MainModule.UserOnline.Login(UserId);
     159      UserOnline.Login(UserId);
    158160      Form.Free;
    159161    end else SubItems.AddNew(Form);
    … …  
    163165procedure TUserControlPage.HandleLogout(HandlerData: THTTPHandlerData);
    164166begin
    165   with MainModule, HtmlDocument.Body do begin
     167  with TWebSession(MainModule), HtmlDocument.Body do begin
    166168    UserOnline.Logout;
    167169    with THtmlString(SubItems.AddNew(THtmlString.Create)) do
    … …  
    174176  Form: TQueryForm;
    175177begin
    176   with MainModule, HtmlDocument.Body do begin
     178  with TWebSession(HandlerData), HtmlDocument.Body do begin
    177179    Form := TQueryForm.Create;
    178180    with Form do begin

  • trunk/Pages/UVoIPPage.pas

    r77 r78  
    3434procedure TVoIPPage.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 := 'Volejte levněji do pevných a mobilních sítí s sekundovou tarifikací a bez měsíčního paušálu.' +
    … …  
    6565    '</ol>';
    6666    end;
     67    GeneratePage(Self);
    6768  end;
    68   MainModule.GeneratePage(HandlerData, Self);
    6969end;
    7070

  • trunk/Pages/UWebCamPage.pas

    r77 r78  
    4343  ImageWidth, ImageHeight: string;
    4444begin
    45   with MainModule do begin
    46     LoadUserInfo(HandlerData);
     45  with TWebSession(HandlerData) do begin
     46    LoadUserInfo;
    4747    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    4848      Text := '';
    … …  
    154154      Text := Text + '</td></tr></table>';
    155155    end;
     156    GeneratePage(Self);
    156157  end;
    157   MainModule.GeneratePage(HandlerData, Self);
    158158end;
    159159
Note: See TracChangeset for help on using the changeset viewer.