Posted on 2009-09-18 16:46
xyz 阅读(1835)
评论(0) 编辑 收藏 引用 所属分类:
Delphi
在服务器端，Delphi将自动为每一个阻塞方式的连接分配一个新的线程，并通过TServerClientThread来操纵每一个线程。所以不能通过对象库中的向导来创建线程对象，只能手工建立一个TServerClientThread的派生类，然后重载ClientExcute方法。Procedure TServerThread.ClientExcute;
Var sStream:TWinSocketStream;
sBuffer:array[0..9] of char
Begin
//获取和操作命令,直到连接断开或者线程终止
While (not Terminate) and (ClientSocket.Active) do
Begin
Try
sStream:= TWinSocketStream.Create(ClientSocket.Socket,60000);
try //填充SBuffer数组
FillChar(sBuffer,10,0);
//延迟时间60秒
If sStream.WaitForData(60000) then
Begin
If sStream.Read(sBuffer,10)=0 then
ClientSocket.Close;
……
End
Else ClientSocket.Close;
except
HandleException;
end;
Finally
sStream.Free;
end;
end;
End;