Changeset 34 for trunk/Application

Timestamp:

Sep 13, 2010, 11:45:27 AM (14 years ago)

Author:

george

Message:

• Opraveno: Načítání session.
• Opraveno: Úniky paměti.

File:

• trunk/Application/UCustomApplication.pas (modified) (5 diffs)

trunk/Application/UCustomApplication.pas

@@ -76 +76 @@
   DbRows: TDbRows;
 begin
-  Database := TSqlDatabase.Create;
   with Database do begin
     Hostname := DatabaseHostName;
@@ -84 +83 @@
     Connect;
   end;
-  DbRows := Database.Query('SET NAMES utf8');
-  DbRows.Free;
+  try
+    DbRows := Database.Query('SET NAMES utf8');
+  finally
+    DbRows.Free;
+  end;
 end;
 
@@ -93 +95 @@
   TitleTag: THtmlString;
 begin
-  HTTPServer.ShowExceptions := False;
   with HandlerData do begin
   Style := ConfigStyle;
@@ -130 +131 @@
   inherited;
   Database := TSqlDatabase.Create;
-  InitDatabase;
   Pages := TObjectList.Create;
   HtmlDocument := THtmlDocument.Create;
@@ -250 +250 @@
 procedure TCustomApplication.Run;
 begin
+  InitDatabase;
+  //Database.Query('SELECT * FROM ssss');
   HTTPServer.SessionStorage := THTTPSessionStorageMySQL.Create;
   THTTPSessionStorageMySQL(HTTPServer.SessionStorage).SqlDatabase := Database;