delphi6.0 多线程socket，分不够再加

Question

一个多线程socket程序，阻塞模式。ServerSocket收到客户端请求后创建一个线程，
在线程里再创建一个ClientSocket将信息转发出去。可是运行一段时间后就弹出如下对话框
 
 Application Error
       Exception ESocketError in module voicelottery.exe at 0005F7C2.
       Windows socket error:无法立即完成一个非阻挡性套接字操作。 
                                          (10038),on API'closesocket'. 
       
点击弹出对话框的确定按扭后又跳出几个一样的对话框，一一点确定后再跳出一个对话框“应用程序发生异常 未知的软件异常(0x0eedfade),位置为0x77e6f142.”，点确定后程序结束

Answer 1

>>>Windows socket error:无法立即完成一个非阻挡性套接字操作。 
这好象是WINSOCK的非阻方式错误,你不是说用的阻塞方式吗?
怎么会报这类错误呢?首先看看ClientSocket 是不是使用的阻塞方式吧.

Answer 2

明明指明了是阻塞模式的，但客户端是用UNIX下的C写的

Answer 3

这同客户端SOCKET怎么写的没有关系.为什么不把问题说得具体些呢?
这样没法帮你.

Answer 4

我写的类似程序，线程中 发送回自己没问题，但是发送给其他线程的socket 有问题。你说的问题，我没遇到。

Answer 5

我可以把相关的程序发给大家，请留下email