Changeset 91 for trunk/Packages/CoolWeb/WebServer/UWebApp.pas

Timestamp:

Sep 7, 2012, 8:36:13 PM (12 years ago)

Author:

chronos

Message:

• Upraveno: Modulární systém přepracován tak, aby podporoval metody Install, Uninstall a Upgrade použitelné pro persistentní data. Původní metody Install a Uninstall přejmenovýny na Start a Stop.

File:

• trunk/Packages/CoolWeb/WebServer/UWebApp.pas (modified) (2 diffs)

trunk/Packages/CoolWeb/WebServer/UWebApp.pas

@@ -23 +23 @@
     function FindByName(Name: string): TRegistredPage;
     procedure RegisterPage(PageClass: TWebPageClass; out Reference; Path: string);
+    procedure UnregisterPage(Path: string);
     function ProducePage(HandlerData: THTTPHandlerData): Boolean;
   end;
@@ -119 +120 @@
 end;
 
+procedure TPageList.UnregisterPage(Path: string);
+var
+  Page: TRegistredPage;
+begin
+  Page := FindByName(Path);
+  Remove(Page);
+end;
+
 function TPageList.ProducePage(HandlerData: THTTPHandlerData): Boolean;
 var