Changeset 32 for trunk/Application

Timestamp:

Sep 13, 2010, 8:35:39 AM (14 years ago)

Author:

george

Message:

• Upraveno: Třída pro obsluhu CGI aplikace přepracována na obecný HTTP server s podporou pro CGI HTTP server a přímý TCP HTTP server dle výběru zděděných tříd.
• Přidáno: Podpůrné obecné třídy ve složce Common.
• Přidáno: Komponenta Synapse pro obsluhu TCP spojení.

Location:

trunk/Application

Files:

• UCustomCGIApplication.pas (modified) (7 diffs)
• UUser.pas (added)

trunk/Application/UCustomCGIApplication.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UCGIApplication, Contnrs, USqlDatabase, UConfig, DateUtils,
-  UXmlClasses, UHtmlClasses, UCore, UStringListEx;
+  Classes, SysUtils, UHTTPServerCGI, Contnrs, USqlDatabase, UConfig, DateUtils,
+  UXmlClasses, UHtmlClasses, UCore, UStringListEx, UHTTPServer;
 
 type
@@ -21 +21 @@
   { TCustomCGIApplication }
 
-  TCustomCGIApplication = class(TCGIApplication)
+  TCustomCGIApplication = class(THTTPServerCGI)
   private
     procedure Footer;
@@ -43 +43 @@
     PageName: string;
     ModuleName: string;
-    procedure Execute; override;
+    BaseURL: string;
+    procedure Execute(HandlerData: THTTPHandlerData);
     constructor Create;
     destructor Destroy; override;
@@ -84 +85 @@
 end;
 
-procedure TCustomCGIApplication.Execute;
+procedure TCustomCGIApplication.Execute(HandlerData: THTTPHandlerData);
 var
   I: Integer;
   TitleTag: THtmlString;
 begin
+  with HandlerData do begin
   Style := ConfigStyle;
   BaseURL := ConfigBaseURL;
@@ -98 +100 @@
   HtmlDocument.Scripts.Add(NavigationLink('/Style/' + Style + '/jquery.js'));
 
-  if QueryParts.Count > 0 then PageName := QueryParts[0]
+  if Request.QueryParts.Count > 0 then PageName := Request.QueryParts[0]
     else PageName := '';
   I := 0;
@@ -112 +114 @@
     with HtmlDocument.AsXmlDocument do try
       Formated := ConfigFormatHTML;
-      Output.Add(AsString);
+      Response.Stream.WriteString(AsString);
     finally
       Free;
     end;
-  end else Output.Add(SPageNotFound);
+  end else Response.Stream.WriteString(SPageNotFound);
+  end;
 end;
 
@@ -126 +129 @@
   Pages := TObjectList.Create;
   HtmlDocument := THtmlDocument.Create;
+  OnRequest := Execute;
 end;