Changeset 34 for trunk/WebServer/UHTTPServer.pas

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/WebServer/UHTTPServer.pas (modified) (6 diffs)

trunk/WebServer/UHTTPServer.pas

@@ -141 +141 @@
     end;
 
-    WriteString('Session id: ' + SessionId);
+    //WriteString('Session id: ' + SessionId);
     WriteString('<h5>Session variables</h5>');
     for I := 0 to Session.Count - 1 do begin;
@@ -201 +201 @@
 constructor THTTPServer.Create;
 begin
+  ShowExceptions := False;
   DocumentRoot := './';
   Name := 'THTTPServer';
@@ -207 +208 @@
 destructor THTTPServer.Destroy;
 begin
+  SessionStorage.Free;
   inherited Destroy;
 end;
@@ -223 +225 @@
   Stream.Free;
   Headers.Free;
+  Cookies.Free;
   inherited Destroy;
 end;
@@ -395 +398 @@
     begin
       for i := 0 to FrameCount - 1 do
-        Writeln(hstdout^, BackTraceStrFunc(TArrayOfPointer(Frames)[i]));
+        if I < Length(TArrayOfPointer(Frames)) then
+          Writeln(hstdout^, BackTraceStrFunc(TArrayOfPointer(Frames)[i]));
     end;
   Writeln(hstdout^,'');
@@ -426 +430 @@
     begin
       for i := 0 to FrameCount - 1 do
-        Writeln(hstderr^, BackTraceStrFunc(TArrayOfPointer(Frames)[i]));
+        if I < Length(TArrayOfPointer(Frames)) then
+          Writeln(hstderr^, BackTraceStrFunc(TArrayOfPointer(Frames)[i]));
     end;
   Writeln(hstderr^,'');