delphi7 使用socket实现websocket

[{"title":"（ 18 个子文件 530KB ） delphi7 使用socket实现websocket","children":[{"title":"websocketAtd7","children":[{"title":"Unit1.ddp <span style='color:#111;'> 51B </span>","children":null,"spread":false},{"title":"websocketClient.html <span style='color:#111;'> 1.16KB </span>","children":null,"spread":false},{"title":"Project1.res <span style='color:#111;'> 876B </span>","children":null,"spread":false},{"title":"Unit1.dcu <span style='color:#111;'> 15.70KB </span>","children":null,"spread":false},{"title":"Unit1.~ddp <span style='color:#111;'> 51B </span>","children":null,"spread":false},{"title":"qbsha1.dcu <span style='color:#111;'> 6.49KB </span>","children":null,"spread":false},{"title":"Unit1.dfm <span style='color:#111;'> 1.53KB </span>","children":null,"spread":false},{"title":"Project1.cfg <span style='color:#111;'> 406B </span>","children":null,"spread":false},{"title":"Project1.dpr <span style='color:#111;'> 188B </span>","children":null,"spread":false},{"title":"Unit1.~dfm <span style='color:#111;'> 1.53KB </span>","children":null,"spread":false},{"title":"Project1.exe <span style='color:#111;'> 420.50KB </span>","children":null,"spread":false},{"title":"Delphi7Websocket.doc <span style='color:#111;'> 392.50KB </span>","children":null,"spread":false},{"title":"Project1.dof <span style='color:#111;'> 2.83KB </span>","children":null,"spread":false},{"title":"Unit1.~pas <span style='color:#111;'> 11.66KB </span>","children":null,"spread":false},{"title":"Unit1.pas <span style='color:#111;'> 11.66KB </span>","children":null,"spread":false},{"title":"qbsha1.pas <span style='color:#111;'> 8.65KB </span>","children":null,"spread":false},{"title":"ttt.html <span style='color:#111;'> 2.57KB </span>","children":null,"spread":false},{"title":"qbsha1.~pas <span style='color:#111;'> 8.65KB </span>","children":null,"spread":false}],"spread":false}],"spread":true}]