Ignore:
Timestamp:
Oct 2, 2012, 9:22:02 AM (12 years ago)
Author:
chronos
Message:
  • Opraveno: Neuvolňovaly se správně registrované stránky.
Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore

      •  

        old new  
        55backup
        66ZdechovNET.lps
         7heaptrclog.trc

  • trunk/Packages/CoolWeb/WebServer/UHTTPServer.pas

    r84 r96  
    77uses
    88  Classes, SysUtils, UTCPServer, UCommon, UMemoryStreamEx, UMIMEType,
    9   Synautil, SpecializedList, SpecializedDictionary;
     9  Synautil, SpecializedList, SpecializedDictionary, Syncobjs;
    1010
    1111type
    … …  
    102102    procedure SetShowExceptions(const AValue: Boolean);
    103103  public
     104    Lock: TCriticalSection;
    104105    procedure Run; virtual;
    105106    procedure ErrorResponse(HandlerData: THTTPHandlerData);
    … …  
    228229begin
    229230  inherited;
     231  Lock := TCriticalSection.Create;
    230232  ShowExceptions := False;
    231233  DocumentRoot := './';
    … …  
    234236destructor THTTPServer.Destroy;
    235237begin
    236   inherited Destroy;
     238  FreeAndNil(Lock);
     239  inherited;
    237240end;
    238241
Note: See TracChangeset for help on using the changeset viewer.