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/Network/UTCPServer.pas

    r84 r96  
    2121
    2222  TTCPClientThread = class(TResetableThread)
     23    Id: Integer;
    2324    Parent: TTCPServer;
    2425    Socket: TTCPBlockSocket;
    … …  
    5556    FActive: Boolean;
    5657    AcceptThread: TAcceptThread;
     58    NewId: Integer;
    5759    procedure SetActive(const AValue: Boolean);
    5860  public
    … …  
    9496      AcceptThread.Terminate;
    9597      AcceptThread.WaitFor;
    96       AcceptThread.Destroy;
     98      FreeAndNil(AcceptThread);
    9799      ThreadPool.Active := False;
    98100      CloseSocket;
    … …  
    115117destructor TTCPServer.Destroy;
    116118begin
    117   ThreadPool.Destroy;
    118119  Active := False;
    119   Socket.Destroy;
    120   inherited Destroy;
     120  FreeAndNil(ThreadPool);
     121  FreeAndNil(Socket);
     122  inherited;
    121123end;
    122124
    … …  
    136138        NewObject.Socket.Socket := NewSocket;
    137139        NewObject.Start;
     140        NewObject.Id := Parent.NewId;
     141        Inc(Parent.NewId);
    138142      end;
    139143    end;
    … …  
    160164destructor TTCPClientThread.Destroy;
    161165begin
    162   Socket.Destroy;
     166  FreeAndNil(Socket);
    163167  inherited;
    164168end;
Note: See TracChangeset for help on using the changeset viewer.