Changeset 69 for trunk/Components

Timestamp:

Dec 30, 2011, 6:00:53 PM (13 years ago)

Author:

chronos

Message:

• Přidáno: Částečně zprovozněna registrace a přihlašování uživatelů.

Location:

trunk/Components/CoolWeb

Files:

• Modules/UUser.pas (modified) (7 diffs)
• WebServer/UWebApp.pas (modified) (4 diffs)

trunk/Components/CoolWeb/Modules/UUser.pas

@@ -18 +18 @@
 
   TWebUser = class
+    Id: Integer;
+    Name: string;
     FullName: string;
+    Email: string;
     Database: TSqlDatabase;
     HandlerData: THTTPHandlerData;
@@ -25 +28 @@
     function GetIdByName(Name: string): Integer;
     function GetIdByNamePassword(Name: string; PassWord: string): Integer;
+    procedure Load;
   end;
 
@@ -42 +46 @@
 
 resourcestring
-  SDuplicateUserItem = 'User name already used.';
+  SDuplicateUserItem = 'User name "%s" already used.';
+  SEmptyUserParameters = 'Missing user parameters';
+  SUserNotFound = 'User "%s" not found';
 
 { TOnlineUser }
@@ -123 +129 @@
   DbRows: TDbRows;
 begin
+  if (Name = '') or (Password = '') or (Email = '') then raise Exception.Create(SEmptyUserParameters);
   try
     DbRows := TDbRows.Create;
@@ -131 +138 @@
         Name + '", SHA1(CONCAT("' + Password + '", "' + Salt + '")), "' + Salt +
         '", "' + Email + '", NOW())');
-    end else raise EDuplicateItem.Create(SDuplicateUserItem);
+    end else raise EDuplicateItem.Create(Format(SDuplicateUserItem, [Name]));
   finally
     DbRows.Free;
@@ -145 +152 @@
     Database.Query(DbRows, 'SELECT `Id` FROM `User` WHERE `Name`="' + Name + '"');
     if DbRows.Count = 1 then Result := StrToInt(DbRows[0].Items[0].Value)
-      else raise ENotFound.Create('User "' + Name + '" not found');
+      else raise ENotFound.Create(Format(SUserNotFound, [Name]));
   finally
     DBRows.Free;
@@ -160 +167 @@
       '`Password` = SHA1(CONCAT("' + Password + '", Salt))');
     if DbRows.Count = 1 then Result := StrToInt(DbRows[0].Items[0].Value)
-      else raise ENotFound.Create('User "' + Name + '" not found');
+      else raise ENotFound.Create(Format(SUserNotFound, [Name]));
+  finally
+    DBRows.Free;
+  end;
+end;
+
+procedure TWebUser.Load;
+var
+  DbRows: TDbRows;
+begin
+  try
+    DbRows := TDbRows.Create;
+    Database.Query(DbRows, 'SELECT * FROM `User` WHERE `Id`="' + IntToStr(Id) + '"');
+    if DbRows.Count = 1 then begin
+      Name := DbRows[0].Values['Name'];
+      FullName := DbRows[0].Values['FullName'];
+      Email := DbRows[0].Values['Email'];
+    end else raise ENotFound.Create(Format(SUserNotFound, [IntToStr(Id)]));
   finally
     DBRows.Free;

trunk/Components/CoolWeb/WebServer/UWebApp.pas

@@ -27 +27 @@
   TWebApp = class(TCustomApplication)
   private
+    FOnBeforePageProduce: TOnProduceEvent;
     FOnInitialize: TNotifyEvent;
     FServerType: THTTPServerType;
@@ -42 +43 @@
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
+    property OnBeforePageProduce: TOnProduceEvent read FOnBeforePageProduce write FOnBeforePageProduce;
     property OnInitialize: TNotifyEvent read FOnInitialize write FOnInitialize;
     property ServerType: THTTPServerType read FServerType write SetServerType;
@@ -133 +135 @@
     //Request.QueryParts[0] := 'uzivatel';
     //Request.QueryParts[1] := 'prihlaseni';
+    if Assigned(FOnBeforePageProduce) then
+      FOnBeforePageProduce(HandlerData);
 
     if Request.QueryParts.Count > 0 then PageName := Request.QueryParts[0]
@@ -172 +176 @@
     hstdout := @stderr;
     Writeln(hstdout^, 'An unhandled exception occurred: ' + E.Message + '<br>');
-    WriteLn(hstdout^, StringReplace(DumpExceptionCallStack(E), LineEnding, '<br>', [rfReplaceAll]));
+    WriteLn(hstdout^, DumpExceptionCallStack(E));
   end;
 end;