Changeset 256 for Network/CoolWeb

Timestamp:

Jul 20, 2011, 11:42:23 PM (13 years ago)

Author:

george

Message:

• Modified: Enhanced TWebApp class.

File:

• Network/CoolWeb/WebServer/UWebApp.pas (modified) (7 diffs)

Network/CoolWeb/WebServer/UWebApp.pas

@@ -1 +1 @@
 unit UWebApp;
 
-{$mode objfpc}{$H+}
+{$mode Delphi}{$H+}
 
 interface
 
 uses
-  Classes, SysUtils, CustApp, SpecializedList, UWebPage;
+  Classes, SysUtils, CustApp, SpecializedList, UWebPage, UHTTPSessionFile,
+  UHTTPServer, UHTTPServerCGI;
 
 type
   TRegistredPage = class
-    Path: string;
+    Name: string;
     Page: TWebPage;
+  end;
+
+  { TRegistredPageList }
+
+  TRegistredPageList = class(TListObject)
+    function FindByName(Name: string): TRegistredPage;
   end;
 
@@ -18 +25 @@
   TWebApp = class(TCustomApplication)
   private
+    FOnInitialize: TNotifyEvent;
     procedure DoRun; override;
+    procedure HTTPServerRequest(HandlerData: THTTPHandlerData);
   public
-    Pages: TListObject;
+    Pages: TRegistredPageList;
+    HTTPServer: THTTPServer;
+    HTTPSessionStorageFile: THTTPSessionStorageFile;
     procedure RegisterPage(PageClass: TWebPageClass; out Reference; Path: string);
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
+    property OnInitialize: TNotifyEvent read FOnInitialize write FOnInitialize;
   end;
 
@@ -29 +41 @@
 procedure Register;
 
+var
+  Application: TWebApp;
+
 
 implementation
+
+resourcestring
+  SPageNotFound = 'Page not found';
+
 
 procedure Register;
@@ -37 +56 @@
 end;
 
+{ TRegistredPageList }
+
+function TRegistredPageList.FindByName(Name: string): TRegistredPage;
+var
+  I: Integer;
+begin
+  I := 0;
+  while (I < Count) and (TRegistredPage(Items[I]).Name <> Name) do Inc(I);
+  if I < Count then Result := TRegistredPage(Items[I])
+    else Result := nil;
+end;
+
 { TWebApp }
 
 procedure TWebApp.DoRun;
 begin
+  if Assigned(FOnInitialize) then FOnInitialize(Self);
+  HTTPServer.Run;
   Terminate;
 end;
@@ -53 +86 @@
 //  NewPage.Page := PageClass.Create(Self);
   NewPage.Page := PageClass.Create(nil);
-  NewPage.Path := Path;
+  NewPage.Name := Path;
   TWebPage(Reference) := NewPage.Page;
+end;
+
+procedure TWebApp.HTTPServerRequest(HandlerData: THTTPHandlerData);
+var
+  Page: TRegistredPage;
+  PageName: string;
+begin
+  with HandlerData do begin
+    //Request.QueryParts.Count := 2;
+    //Request.QueryParts[0] := 'uzivatel';
+    //Request.QueryParts[1] := 'prihlaseni';
+
+    if Request.QueryParts.Count > 0 then PageName := Request.QueryParts[0]
+      else PageName := '';
+    Page := Pages.FindByName(PageName);
+    if Assigned(Page) then begin
+      Page.Page.OnProduce(HandlerData);
+    end else Response.Stream.WriteString(SPageNotFound);
+  end;
 end;
 
@@ -60 +112 @@
 begin
   inherited Create(AOwner);
-  Pages := TListObject.Create;
+  Pages := TRegistredPageList.Create;
+  HTTPServer := THTTPServerCGI.Create(nil);
+  HTTPServer.OnRequest := HTTPServerRequest;
 end;
 
@@ -66 +120 @@
 begin
   Pages.Free;
+  HTTPServer.Free;
   inherited Destroy;
 end;
 
+
+initialization
+
+Application := TWebApp.Create(nil);
+
+
+finalization
+
+Application.Free;
+
 end.