delphi7 使用socket实现websocket

delphi7写应用程序作为服务端。delphi7安装websocket组件太麻烦了，还收费。既然websocket也是一个socket，那自己解析websocket就可以了。我只实现了握手，数据帧的简单解析。可以进行除汉字外的简单收发。如果你应用不是太深的话没问题的。若是深的话估计这些简单的你都会。。。。

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件     401920  2019-03-09 09:38  websocketAtd7\Delphi7Websocket.doc

     文件        406  2019-03-07 11:57  websocketAtd7\Project1.cfg

     文件       2903  2019-03-07 11:57  websocketAtd7\Project1.dof

     文件        188  2019-03-07 11:57  websocketAtd7\Project1.dpr

     文件     430592  2019-03-08 15:47  websocketAtd7\Project1.exe

     文件        876  2019-03-07 11:17  websocketAtd7\Project1.res

     文件       6643  2019-03-08 15:47  websocketAtd7\qbsha1.dcu

     文件       8860  2019-03-07 14:00  websocketAtd7\qbsha1.pas

     文件       8860  2019-03-07 14:00  websocketAtd7\qbsha1.~pas

     文件       2631  2019-03-08 15:05  websocketAtd7\ttt.html

     文件      16077  2019-03-08 15:47  websocketAtd7\Unit1.dcu

     文件         51  2019-03-08 15:47  websocketAtd7\Unit1.ddp

     文件       1564  2019-03-08 14:02  websocketAtd7\Unit1.dfm

     文件      11937  2019-03-08 15:47  websocketAtd7\Unit1.pas

     文件         51  2019-03-08 15:47  websocketAtd7\Unit1.~ddp

     文件       1564  2019-03-08 14:02  websocketAtd7\Unit1.~dfm

     文件      11937  2019-03-08 15:47  websocketAtd7\Unit1.~pas

     文件       1189  2019-03-09 08:56  websocketAtd7\websocketClient.html

     目录          0  2019-03-09 09:48  websocketAtd7

----------- ---------  ---------- -----  ----

               908249                    19