如何建立tserverclientthread对象

如何建立tserverclientthread对象

serverclientThread是ServerSocket中用到了的线程 在服务器端，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;

总结：通过客户端和服务器端的多线程控制,当我们需要对大信息量的数据处理的时候，尤为方便,而且能够很大程度上提高网络资源的利用率。目前我们正在研究通过线程控制来对数据库的查询进行优化处理以及数据发送问题！

家家有本难念的经。。。