Changeset 69 for trunk/Components/CoolWeb/WebServer/UWebApp.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

• trunk/Components/CoolWeb/WebServer/UWebApp.pas (modified) (4 diffs)

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;