Changeset 96 for trunk/ZdechovNET.lpr


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/ZdechovNET.lpr

    r81 r96  
    88  {$ENDIF}
    99  UUtils, USqlDatabase, SysUtils, Contnrs, Forms,
    10   UUser, UHTTPSessionMySQL, UHTTPSessionFile,
     10  UUser, UHTTPSessionMySQL, UHTTPSessionFile, Printers,
    1111  UCommon, UHTTPServer, UHTTPServerTCP, UHTTPServerCGI, UTCPServer, UPool,
    1212  UMemoryStreamEx, UMIMEType, UPageList, Interfaces, UCore, UWebApp;
    1313
     14{$IFDEF DEBUG}
     15const
     16  HeapTraceLog = 'heaptrclog.trc';
     17{$ENDIF}
     18
    1419begin
     20  {$IFDEF DEBUG}
     21  // Heap trace
     22  DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
     23  SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
     24  {$ENDIF}
     25
    1526  with Application do begin
    1627    Initialize;
    … …  
    1829    Core.Run;
    1930    Run;
     31    Printer.RawMode := True; // Avoid printer finalization exception
    2032  end;
    2133end.
Note: See TracChangeset for help on using the changeset viewer.