关于socket的无知，请大家指教

Question

示例如下
s :socket
c :int;
b :sockaddrin
begin
...
while not terminated do
...
s:=accept(s,@b,@c); 
...
end;
...
end;
程序执行到accept就始终等待客户端连接了，咋样使只accept只等待一段时间？（比如说10秒）,如果时间一到就终止些线程？

Answer 1

把它加在一个TIMER中，然后呢S是一个全局变量吧，不要在这创建
，办法的确有很多的，在这监听十分钟就断就行了

Answer 2

简单的就是使用一个Ｔimer组件，然后使它事件激发时间设置为１０秒，在事件中将线程的terminated，那么只要时间一到就会终止线程运行！不过这样的线程就没有什么作用了．失去了等待和开辟这个线程的意义了／