Changeset 286 for branches/web/index.pas

Timestamp:

Sep 8, 2010, 10:08:43 AM (14 years ago)

Author:

george

Message:

• Odstraněno: Nadále nebude používána sada knihoven powutils.
• Přidáno: Vlastní třída pro obsluhu a podporu zpracování CGI programů.
• Upraveno: Korekce názvů sloupců a tabulek databáze.

File:

• branches/web/index.pas (modified) (1 diff)

branches/web/index.pas

@@ -5 +5 @@
 uses
   UCore, USqlDatabase, SysUtils, UMainPage,
-  UFinancePage, UNewsPage, UUserPage, UBill;
+  UFinancePage, UNewsPage, UUserPage, UBill, UCGIApplication, UMainCGI, UStringListEx;
+
+type
+
+  { TMyCGIApplication }
+
+  TMyCGIApplication = class(TCGIApplication)
+    procedure Execute; override;
+  end;
 
 var
-  Output: string;
+  Application: TMyCGIApplication;
+
+{ TMyCGIApplication }
+
+procedure TMyCGIApplication.Execute;
+var
   I: Integer;
   PageName: string;
 begin
-//  SetHeader('Content-Type', 'text/html; charset=utf-8');
-  //PageName := GetCgiVar('p');
+  Output.Add('Hello friend');
+  SysInfo;
+
+  PageName := Query.Values['p'];
   if PageName = '' then PageName := 'index';
   I := 0;
   while (I < Length(Pages)) and (Pages[I].Name <> PageName) do Inc(I);
-  if I < Length(Pages) then Output := Pages[I].Producer
-    else Output := 'Stránka nenalezena';
+  if I < Length(Pages) then Output.Add(Pages[I].Producer)
+    else Output.Add('Stránka nenalezena');
 //  WebWriteLn(FormatOutput(Output));
+end;
+
+begin
+  Application := TMyCGIApplication.Create;
+  Application.Run;
+  Application.Free;
 end.