clientsocket线程问题 ( 积分: 200 )

如何用线程的方法在动态创建clientsocket，
每个clientsocket每30秒发送同样的一串数据到服务器端，然后在30秒内接收数据，
每个线程对应一个clientsocket,
在我的客户端要发送多个不同的数据，每种数据要创建一个clientsocket.
（比如在edit中填上数据，我点一下按钮数据发送，
这时不用再点按钮，让它30秒发送一次，再填入数据，
再点一下按钮发送第二个数据，再每30秒发送一次，
这样不断的发。想要停止的时候再发每种数据相反的数据，
让某一个停止。）最好贴出完整代码。

如何用线程的方法在动态创建clientsocket，
每个clientsocket每30秒发送同样的一串数据到服务器端，然后在30秒内接收数据，
每个线程对应一个clientsocket,
在我的客户端要发送多个不同的数据，每种数据要创建一个clientsocket.
（比如在edit中填上数据，我点一下按钮数据发送，
这时不用再点按钮，让它30秒发送一次，再填入数据，
再点一下按钮发送第二个数据，再每30秒发送一次，
这样不断的发。想要停止的时候再发每种数据相反的数据，
让某一个停止。）最好贴出完整代码。

怎么没人回答啊！？

听不懂你在问什么，好象跟技术无关，只是问一个编程思路而已，你又说得颠三倒四，怎么给你完整代码呢？

procedure TForm1.btnOneSendClick(Sender: TObject);
var
ID:Integer;
Socket:TCustomWinSocket;
begin
if cbxID.Text='' then
exit;
ID:=strtoint(cbxID.text);
//Create a socket with exist socket handle
Socket:=TCustomWinSocket.Create(ID);
Socket.SendText(EdtSend.text);
end;