TServerSocket和TClientSocket的奇怪问题，麻烦解释下

Question

TServerSocket 使用 阻塞模式，
当client 连上时，为其分配一个线程 进行监听
然后 当我 把clientsocket.active := false 后, 没有释放 服务段分配的 线城我在吧serversocket.active := false 后， 应用程序自动关掉（直接运行exe）。怎么回事啊？
如果用delphi 就会报错。

Answer 1

>> 把clientsocket.active := false 后, 没有释放 服务段分配的 线城看看你的那个线程,代码是如何写的了>>我在吧serversocket.active := false 后， 应用程序自动关掉（直接运行exe）。可能是你服务器出相关的异常处理,没有处理好>>delphi 就会报错什么错,贴出来看看

Answer 2

在服务端的onGetThread  
SocketThread.FreeOnTerminate := True;
就行了