这个简单的 usocket 程序哪裏错了?
lisp吧
全部回复
仅看楼主
level 5
qpalz2 楼主
以下用 base64 编码,以免吃空格,请自己解码: www dot base64decode dot org
server:
KHJlcXVpcmUgOmFzZGYpCihhc2RmOm9wZXJhdGUgJ2FzZGY6bG9hZC1vcCA6dXNvY2tldCkKCih1c2UtcGFja2FnZSA6dXNvY2tldCkKCihsZXQgKChzb2NrIChzb2NrZXQtbG
lz
dGVuICIxMjcuMC4wLjEiIDk4NzY0KSkpCiAgKGxldCAoKHNvY2tfc3RyZWFtIChzb2NrZXQtc3RyZWFtIChzb2NrZXQtYWNjZXB0IHNvY2spKSkpCiAgICAoZm9ybWF0IHQgIkFjY2VwdCBDbGllbnR+JSIpCiAgICAobG9vcAogICAgICAoZm9ybWF0IHQgKHJlYWQtbGluZSBzb2NrX3N0cmVhbSkpCiAgICAgIChmb3JjZS1vdXRwdXQgdCkKICAgICAgKGZvcm1hdCBzb2NrX3N0cmVhbSAifkF+JSIgKHJlYWQtbGluZSkpCiAgICAgIChmb3JjZS1vdXRwdXQgc29ja19zdHJlYW0pKQogICAgKGNsb3NlIHNvY2tfc3RyZWFtKSkKICAoc29ja2V0LWNsb3NlIHNvY2spKQoK
client:
KHJlcXVpcmUgOmFzZGYpCihhc2RmOm9wZXJhdGUgJ2FzZGY6bG9hZC1vcCA6dXNvY2tldCkKCih1c2UtcGFja2FnZSA6dXNvY2tldCkKCihsZXQgKChzb2NrIChzb2NrZXQtY29ubmVjdCAiMTI3LjAuMC4xIiA5ODc2NCkpKQogIChmb3JtYXQgdCAiQ29ubmVjdGVkfiUiKQogIChsZXQgKChzb2NrX3N0cmVhbSAoc29ja2V0LXN0cmVhbSBzb2NrKSkpCiAgICAobG9vcAogICAgICAoZm9ybWF0IHNvY2tfc3RyZWFtICJ+QX4lIiAocmVhZC1saW5lKSkKICAgICAgKGZvcmNlLW91dHB1dCBzb2NrX3N0cmVhbSkKICAgICAgKGZvcm1hdCB0IChyZWFkLWxpbmUgc29ja19zdHJlYW0pKQogICAgICAoZm9yY2Utb3V0cHV0IHQpKSkKICAoc29ja2V0LWNsb3NlIHNvY2spKQoK
现象:
client 成功连接到 server,server 显示 Accept Client,client 显示 Connected,原本应该我在 client 打字,server 应该接收到并显示出来的,但却没有... 如果我把 (read-line) 改成 "abc" 就能正常收发了... 你看这是什麼问题呢?谢谢!
2013年07月11日 02点07分 1
level 5
qpalz2 楼主
不好意思,原来是低级错误,输出没有换行,他不肯输出而已
改成 (format sock_stream "~A~%" (read-line)) 就可以了
2013年07月11日 05点07分 2
1