线程编写？（马上给分）

Question

要开设线程来处理SOCKET的接受发送，首先开设线程，使线程处于阻塞状态，怎样才能处理完数据后又进入阻塞状态？

Answer 1

循环贝，
while true do
begin
  阻塞处理
end;
最好使用，事件或消息驱动

Answer 2

使用临界区，就是
entercriticalsection
 {
  调用公共资源部分
 }
leavecriticalsection不过在使用临界区时要记住要先初始化一下,
initializecriticalsection

Answer 3

你到<delphi5.0开发人员指南>上去找第11章多线程
www.51delphi.com上应该有这本书如果没有
到www.delphiboy.com或www.playicq.com找找看