delphi socket 并发问题

Question

我要在delphi 上写个socket 服务程序，如何才能实现并发，同时接受客户端的多个信息，尽量不要线程，我更不懂，能有具体实例再好，谢谢大家

Answer 1

ThreadBlocking模式,网上有的是实例.

Answer 2

ServerSocket1 基于异步通信，所有交互最后都会串成消息，你不需要额外的去处理线程队列。只要在事件级编写代码就可以了很高效。

Answer 3

如果应用要求不高，多线程不是必须的。就用TServerSocket，每个客户连接的通信是互不干扰的。
看看它的这些事件，都带有Socket参数，表示与事件关联的连接。procedure TForm1.ServerSocket1Accept(Sender: TObject;
  Socket: TCustomWinSocket);
beginend;procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
beginend;procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
beginend;procedure TForm1.ServerSocket1ClientWrite(Sender: TObject;
  Socket: TCustomWinSocket);
beginend;

Answer 4

我clientsocket 与serversocket 用的是短连接，并发发送的时候，服务端返回的数据客户端收不到呢，

Answer 5

我clientsocket 与serversocket 用的是短连接，并发发送的时候，服务端返回的数据客户端收不到呢，