Changeset 311 for Network/CoolWeb/Network/UTCPServer.pas
- Timestamp:
- Jan 4, 2012, 2:27:19 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Network/CoolWeb/Network/UTCPServer.pas
r295 r311 31 31 32 32 TClientThreadedPool = class(TThreadPool) 33 protected 34 function NewItemObject: TObject; override; 33 35 private 34 36 FActive: Boolean; … … 164 166 { TClientThreadedPool } 165 167 168 function TClientThreadedPool.NewItemObject: TObject; 169 begin 170 Result := TTCPClientThread.Create; 171 TResetableThread(Result).OnException := ThreadException; 172 end; 173 166 174 procedure TClientThreadedPool.SetActive(const AValue: Boolean); 167 175 begin
Note:
See TracChangeset
for help on using the changeset viewer.