TCP通讯

TCP通讯是面向连接的，也就是说在传输数据前必须先连接上。而UDP是面向非连接的，传输数据前不必先连接，当可能对方不在监听，即对方收不到这次数据。

TCP编程：

1.编辑界面

2.添加客户组件

3.编写TCP程序

事件 客户1.连接完毕(连接结果 为 逻辑型)
    如果 连接结果 = 真 则
        弹出提示("TCP连接成功！")
    否则
        弹出提示("TCP连接失败！")
    结束 如果
结束 事件

事件 客户1.收到数据(数据 为 字节型())
    列表框1.添加项目(字节到文本(数据,"GBK"))
结束 事件

事件 客户1.连接断开()
    弹出提示("TCP连接断开！")
结束 事件

事件 按钮1.被单击()
    如果 客户1.取连接状态() = 假 则
        客户1.连接服务器(编辑框1.内容,编辑框2.内容,5000)
        弹出提示("TCP正在连接！")
    否则
        客户1.断开连接()
        弹出提示("TCP断开连接！")
    结束 如果
结束 事件

事件 按钮2.被单击()
    如果 客户1.取连接状态() = 真 则
        客户1.发送数据(文本到字节(编辑框3.内容,"GBK"))
        弹出提示("TCP发送成功！")
    否则
        弹出提示("TCP未连接！")
    结束 如果
结束 事件

变量 启动时间 为 长整数型
事件 主窗口.按下某键(键代码 为 整数型,传址 屏蔽 为 逻辑型)
    如果 键代码 = 返回键 则
        如果 取启动时间() - 启动时间 >2000 则
            弹出提示("再按一次退出程序")
            启动时间 = 取启动时间()
        否则 
            结束程序()
        结束 如果
    结束 如果
结束 事件


事件 编辑框2.内容被改变(新内容 为 文本型)
    
结束 事件