delphi搭建websocket服务求助

Question

要用delphi搭建一个websocket服务端， 客户端可有多个（其他人用其他语言开发的）。
网上没找到相关例子，关于delphi搭建websocket服务相关知识非常少，谁有相关的简单delphi websocket通信的例子？
应该用哪个控件？
对于怎样握手？ 怎样建立长连接真的还是很模糊

Answer 1

有TCPIPserver，UDPServer都可以，还可以搭建web service

Answer 2

关键是把websocket协议整明白。RFC6455有详细的描述，不过标准文档一般艰涩难懂。网上找个译本。
其他的话没啥特别的，websocket属于应用层协议，在tcp之上，你只要用socket api就可以实现了。话说我也挺感兴趣，改天用IOCP模型封装一个看看，作为学习。