一个奇怪的问题？

Question

请问，delphi中，TCP/IP 中SERVER控件，可以同时用两个CLIENT控件去连接，请问怎么用API实现
好象是让为两个CLIENT开两个线程，但是SERVER只开了一个端口，也就是一个端口有两个线程共用，这个怎么实现啊

Answer 1

呵呵
其实如果你清楚原始套接字编程应该不会有这样的疑问了
1   s=socket(AF_INET, SOCK_STREAM, 0)
2   bind(s, (struct sockaddr *)&server, sizeof(server))
3   listen(s,1)表示连接请求队列长度为1
4   ns = accept(s, (struct sockaddr *)&client, &namelen)) 
5   accept()阻塞(缺省)等待请求队列中的请求,一旦有连接请求来,该函数就建立一个和s有相同属性的新的套接口
这只是一般步骤

Answer 2

强烈建议你读一下Delphi 的TServerSocket和 TClientSocket 组件，你就会明白为什么了，如果不懂就记着吧，可以连多个客户端

Answer 3

naughtyboy(一切都是为了明天)说得对，看看有关TCP/IP协议原理的东西吧。