Delphi 版 HTML5 WebSocket Server 代码

名称：HTML5 WebSocket Server Delphi版 编写：tjCFeng 时间：2011-07-01 说明：创建SocketServer监听端口，当数据到达时首先判断第一个字符是否是#$00， 如果不是#0，则证明是第一次的握手信息，需要为HTML5 Client返回验证结果， 即调用下面的ShakeHand函数。如果不是#0，则为连接后的数据信息，请自行解析。 参数：接收到的数据和长度。 返回：HTML5 Client的IP地址和端口。 代码中包括： HTML5 WebSocket 握手协议的说明及解析代码； AnsiToUnicode和UnicodeToAnsi高效转码代码； SplitStr按指定字符串拆分字符串的高效代码； 适用于Delphi2010及高版本的MD5代码，非本人编写，未改动，感谢原作者。