ServerSocket问题？

Question

Delphi中的ServerSocket如何实现多线程操作？

Answer 1

我想你不是要了解它的原理把?
把ServerType属性设置为stThreadBlockingtype
  TMySocketThread = class(TServerClientThread)
  protected  //这个线程就对应一个客户端
    //...
  end;procedure TMainForm.ServerSocket1GetThread(Sender: TObject;
  ClientSocket: TServerClientWinSocket;
  var SocketThread: TServerClientThread);
begin
  SocketThread := TMysocketThread.Create(false, ClientSocket);
end;

Answer 2

看看<<windows网络编程>>,知道winsock api怎么用了这问题自然解决。

Answer 3

在ServerSocket1GetThread中创建TServerClientThread呐