Changeset 78 for trunk/Pages/UUserControlPage.pas

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:

• trunk/Pages/UUserControlPage.pas (modified) (7 diffs)

trunk/Pages/UUserControlPage.pas

@@ -43 +43 @@
   NewItem: TQueryFormItem;
 begin
-  if HandlerData.Request.QueryParts.Count > 1 then PageName := HandlerData.Request.QueryParts[1]
-    else PageName := '';
-  with MainModule, HtmlDocument.Body do begin
-    LoadUserInfo(HandlerData);
-    if PageName = '' then PageName := 'prihlaseni';
-    if PageName = 'prihlaseni' then HandleLogin(HandlerData)
-      else if PageName = 'registrace' then HandleRegistration(HandlerData)
-      else if PageName = 'odhlaseni' then HandleLogout(HandlerData)
-      else if PageName = 'profil' then HandleProfile(HandlerData);
-  end;
-  MainModule.GeneratePage(HandlerData, Self);
+  with TWebSession(HandlerData) do begin
+    if Request.Path.Count > 1 then PageName := Request.Path[1]
+      else PageName := '';
+    with HtmlDocument.Body do begin
+      LoadUserInfo;
+      if PageName = '' then PageName := 'prihlaseni';
+      if PageName = 'prihlaseni' then HandleLogin(HandlerData)
+        else if PageName = 'registrace' then HandleRegistration(HandlerData)
+        else if PageName = 'odhlaseni' then HandleLogout(HandlerData)
+        else if PageName = 'profil' then HandleProfile(HandlerData);
+    end;
+    GeneratePage(Self);
+  end;
 end;
 
@@ -61 +63 @@
   UserId: Integer;
 begin
-  with MainModule, HtmlDocument.Body do begin
+  with TWebSession(MainModule), HtmlDocument.Body do begin
     Form := TQueryForm.Create;
     with Form do begin
@@ -92 +94 @@
       with THtmlString(SubItems.AddNew(THtmlString.Create)) do
         Text := 'Přihlášení user: ' + TQueryFormGroup(Form.Groups[0]).Rows.FindByName('UserName').Value.Value;
-      UserId := MainModule.User.GetIdByNamePassword(TQueryFormGroup(Form.Groups[0]).Rows.FindByName('UserName').Value.Value,
+      UserId := User.GetIdByNamePassword(TQueryFormGroup(Form.Groups[0]).Rows.FindByName('UserName').Value.Value,
         TQueryFormGroup(Form.Groups[0]).Rows.FindByName('Password').Value.Value);
       UserOnline.Login(UserId);
@@ -106 +108 @@
   UserId: Integer;
 begin
-  with MainModule, HtmlDocument.Body do begin
+  with TWebSession(MainModule), HtmlDocument.Body do begin
     Form := TQueryForm.Create;
     with Form do begin
@@ -150 +152 @@
       with THtmlString(SubItems.AddNew(THtmlString.Create)) do
         Text := 'Registrace uživatele: ' + TQueryFormGroup(Form.Groups[0]).Rows.FindByName('UserName').Value.Value;
-      MainModule.User.Add(TQueryFormGroup(Form.Groups[0]).Rows.FindByName('UserName').Value.Value,
+      User.Add(TQueryFormGroup(Form.Groups[0]).Rows.FindByName('UserName').Value.Value,
         TQueryFormGroup(Form.Groups[0]).Rows.FindByName('Password').Value.Value,
         TQueryFormGroup(Form.Groups[0]).Rows.FindByName('Email').Value.Value);
-      UserId := MainModule.User.GetIdByNamePassword(TQueryFormGroup(Form.Groups[0]).Rows.FindByName('UserName').Value.Value,
+      UserId := User.GetIdByNamePassword(TQueryFormGroup(Form.Groups[0]).Rows.FindByName('UserName').Value.Value,
         TQueryFormGroup(Form.Groups[0]).Rows.FindByName('Password').Value.Value);
-      MainModule.UserOnline.Login(UserId);
+      UserOnline.Login(UserId);
       Form.Free;
     end else SubItems.AddNew(Form);
@@ -163 +165 @@
 procedure TUserControlPage.HandleLogout(HandlerData: THTTPHandlerData);
 begin
-  with MainModule, HtmlDocument.Body do begin
+  with TWebSession(MainModule), HtmlDocument.Body do begin
     UserOnline.Logout;
     with THtmlString(SubItems.AddNew(THtmlString.Create)) do
@@ -174 +176 @@
   Form: TQueryForm;
 begin
-  with MainModule, HtmlDocument.Body do begin
+  with TWebSession(HandlerData), HtmlDocument.Body do begin
     Form := TQueryForm.Create;
     with Form do begin