客户端和服务端启动的时候 连接
TCP协议
客户端发送点击按钮把编辑框1的内容发送到服务器端
服务器端 发送编辑框1到客户端
怎么写？最好给个源码，谢了！
.版本 2
.程序集 窗口程序集1
.程序集变量 客户, 文本型
.子程序 __启动窗口_创建完毕
服务器1.端口 ＝ 19730
' 这里是将服务器跟客户端放在同一个窗口下写的
' 客户1连接服务器的3个条件，1：服务端已经运行。2：服务地址填写正确。3：端口要一致
' 本机测试用127.0.0.1就可以了，外网的话根据外网IP填写，或用域名解析。例如 花生壳等软件，解析后直接填入域名。
' 端口 0-65535 只要不跟其他程序使用的端口冲突就可以
.如果真 (客户1.连接 (“127.0.0.1”, 19730) ＝ 假)
信息框 (“连接服务器失败！”, 0, )
返回 ()
.如果真结束
信息框 (“连接服务器成功！”, 0, )
.子程序 _服务器1_客户进入
' 当客户连接进来以后可以先取回这个客户的IP,等下发送数据数用得到，有多个客户连接的话可以用数组保存
客户 ＝ 服务器1.取回客户 ()
.子程序 _按钮2_被单击
' 客户发送数据
客户1.发送数据 (“客户1发送来的数据”)
.子程序 _按钮1_被单击
' 服务器发送数据
服务器1.发送数据 (客户, “服务器1发送来的消息”, )
.子程序 _客户1_数据到达
.局部变量 消息, 文本型
' 客户取回服务器发来的消息
' 接收到的数据时字节集型的，先到下文本
消息 ＝ 到文本 (客户1.取回数据 ())
信息框 (消息, 0, )
' 当然，如果发送的不是文本，而是一个文件、一张图片的话，就不用到文本了。而应该用一个字节集型的变量来接收
.子程序 _服务器1_数据到达
.局部变量 消息, 文本型
' 接收客户发送的数据
消息 ＝ 到文本 (服务器1.取回数据 ())
信息框 (消息, 0, )
.程序集 窗口程序集1
.程序集变量 客户, 文本型
.子程序 __启动窗口_创建完毕
服务器1.端口 ＝ 19730
' 这里是将服务器跟客户端放在同一个窗口下写的
' 客户1连接服务器的3个条件，1：服务端已经运行。2：服务地址填写正确。3：端口要一致
' 本机测试用127.0.0.1就可以了，外网的话根据外网IP填写，或用域名解析。例如 花生壳等软件，解析后直接填入域名。
' 端口 0-65535 只要不跟其他程序使用的端口冲突就可以
.如果真 (客户1.连接 (“127.0.0.1”, 19730) ＝ 假)
信息框 (“连接服务器失败！”, 0, )
返回 ()
.如果真结束
信息框 (“连接服务器成功！”, 0, )
.子程序 _服务器1_客户进入
' 当客户连接进来以后可以先取回这个客户的IP,等下发送数据数用得到，有多个客户连接的话可以用数组保存
客户 ＝ 服务器1.取回客户 ()
.子程序 _按钮2_被单击
' 客户发送数据
客户1.发送数据 (“客户1发送来的数据”)
.子程序 _按钮1_被单击
' 服务器发送数据
服务器1.发送数据 (客户, “服务器1发送来的消息”, )
.子程序 _客户1_数据到达
.局部变量 消息, 文本型
' 客户取回服务器发来的消息
' 接收到的数据时字节集型的，先到下文本
消息 ＝ 到文本 (客户1.取回数据 ())
信息框 (消息, 0, )
' 当然，如果发送的不是文本，而是一个文件、一张图片的话，就不用到文本了。而应该用一个字节集型的变量来接收
.子程序 _服务器1_数据到达
.局部变量 消息, 文本型
' 接收客户发送的数据
消息 ＝ 到文本 (服务器1.取回数据 ())
信息框 (消息, 0, )
温馨提示：答案为网友推荐，仅供参考
第1个回答 2012-08-15
服务器1.发送数据 (, , )
调用格式： 〈逻辑型〉 对象．发送数据 （文本型 接收客户，通用型 欲发送数据，［整数型 最长等待时间］） - 系统核心支持库->服务器
英文名称：send
向指定已经连接进来的客户发送数据。成功返回真，失败返回假。本命令为初级对象成员命令。
参数<1>的名称为“接收客户”，类型为“文本型（text）”。为调用“取回客户”方法所返回的客户地址文本。
参数<2>的名称为“欲发送数据”，类型为“通用型（all）”。欲发送数据必须是系统基本数据类型。
参数<3>的名称为“最长等待时间”，类型为“整数型（int）”，可以被省略。指定等待发送成功的最长时间，单位为秒。如果省略本参数，默认为无限等待。
------------------------------------------------------------------------------------------------------------------
有问题请追问。自己先琢磨下哈。别直接要源码。要源码，没用一点用没有，要源码的编程永远学不好。就像 老师 交给他 1+1=2 他遇见2+2=？ 还是不会算。本回答被网友采纳
调用格式： 〈逻辑型〉 对象．发送数据 （文本型 接收客户，通用型 欲发送数据，［整数型 最长等待时间］） - 系统核心支持库->服务器
英文名称：send
向指定已经连接进来的客户发送数据。成功返回真，失败返回假。本命令为初级对象成员命令。
参数<1>的名称为“接收客户”，类型为“文本型（text）”。为调用“取回客户”方法所返回的客户地址文本。
参数<2>的名称为“欲发送数据”，类型为“通用型（all）”。欲发送数据必须是系统基本数据类型。
参数<3>的名称为“最长等待时间”，类型为“整数型（int）”，可以被省略。指定等待发送成功的最长时间，单位为秒。如果省略本参数，默认为无限等待。
------------------------------------------------------------------------------------------------------------------
有问题请追问。自己先琢磨下哈。别直接要源码。要源码，没用一点用没有，要源码的编程永远学不好。就像 老师 交给他 1+1=2 他遇见2+2=？ 还是不会算。本回答被网友采纳
第2个回答 2012-08-15
楼主可以到华夏联盟找找，里面很多网络技术资料，祝您好运
