怎样动态生成socket?

[flyby]

我象用delphi的serverSocket和clientsocket做一个通讯程序，类似于ICQ.
如何做到动态生成socket与多个好友连接？
最好友源程序（发到[e-mail])谢谢了50份送你！！！

[PoolD]

Socket不需要自己生成，在ClientSocket与ServerSocket连结之后，Delphi会自动生成一个相应的Socket。
在ServerSocket.Connections中可以找到。

[wsf]

先封装socket
TTCP = Class (TClientSocket)
Procedure TCPCSRead (Sender: TObject; Socket: TCustomWinSocket);
Procedure TCPCSConnect (Sender: TObject; Socket: TCustomWinSocket);
Procedure TCPCSConnecting (Sender: TObject; Socket: TCustomWinSocket);
Procedure TCPCSDisconnect (Sender: TObject; Socket: TCustomWinSocket);
Procedure TCPCSError (Sender: TObject; Socket: TCustomWinSocket; ErrorEvent:
TErrorEvent; Var ErrorCode: Integer);
Procedure TCPCSLookup (Sender: TObject; Socket: TCustomWinSocket);
Procedure TCPCSWrite (Sender: TObject; Socket: TCustomWinSocket);
end
再动态创建,只用于客户端

[flyby]

wsf:
谢谢你，但我还是不懂，能不能给个例子。