第一个程序
编辑框1用来显示文件路径
编辑框2用来显示对方发来的文本
按钮1用来浏览文件
按钮2用来发送文件
此外还有服务器 通用对话框
.版本 2
.程序集 窗口程序集1
.子程序 _按钮1_被单击
通用对话框1.打开 ()
编辑框1.内容 = 通用对话框1.文件名
.子程序 _按钮2_被单击
服务器1.发送数据 (客户IP, 读入文件 (通用对话框1.文件名), 1000)
信息框 (“发送成功”, 0, )
.子程序 _服务器1_数据到达
.局部变量 file, 字节集
file = 服务器1.取回数据 ()
编辑框2.内容 = 到文本 (file)
信息框 (“数据到达”, 0, )
第二个程序
编辑框1用来显示保存文件的路径
编辑框2用来显示发送的文本
按钮1用来发送文本
此外还有通用对话框 客户
.版本 2
.程序集 窗口程序集1
.子程序 _按钮1_被单击
客户1.连接 (用户IP, 19730)
客户1.发送数据 (编辑框1.内容)
信息框 (“已发送”, 0, )
.子程序 _客户1_数据到达
.局部变量 file, 字节集
file = 客户1.取回数据 ()
通用对话框1.打开 ()
编辑框1.内容 = 通用对话框1.文件名
信息框 (“已保存”, 0, )
我试过了,可以的……
在使用时可以将“客户IP”与“用户IP”替换成想要的
IP地址就可以了 IP为文本型