易语言服务器组件

建一个编辑框组件。

一个客户组件。

然后上代码

————————————————————————————————————————

版本 2

程序集 窗口程序集1

子程序 _编辑框1_内容被改变

判断开始 (编辑框1内容 ＝ “”)

客户1发送数据 (“空”)

默认

客户1发送数据 (编辑框1内容)

判断结束

子程序 __启动窗口_创建完毕

客户1连接 (这里写你服务器电脑的ip, 12345) ’ 如果不知道IP地址可以在服务器程序建一个文本型数组变量，在启动窗口创建完毕时附上代码：

版本 2

支持库 sock

变量 ＝ 取本机IP ()

_启动窗口标题 ＝ 变量 [1]

然后_启动窗口的标题就是你服务器的IP地址了，

————————————————————————————————————————

当然也要再弄一个服务器。

建一个编辑框、一个服务器。

然后上代码。

————————————————————————————————————————

版本 2

程序集 窗口程序集1

子程序 _服务器1_数据到达

判断开始 (到文本 (服务器1取回数据 ()) ＝ “空”)

编辑框1内容 ＝ “”

默认

编辑框1内容 ＝ 到文本 (服务器1取回数据 ())

复制进易里面看就不那么难看了，其实只有短短几条代码。

再不懂追问，一定教到你懂的。

流程就是：服务器先打开一个端口，等待客户端连接，客户端连接到服务端的IP地址和端口号后，它们就可以通信了，当客户离开后，服务端会自动断开该客户端与服务端端口的连接，以释放系统资源。这就是原理。

　　版本 2

　　程序集 窗口程序集1

　　程序集变量 客户, 文本型

　　子程序 __启动窗口_创建完毕

　　服务器1端口 ＝ 19730

　　' 这里是将服务器跟客户端放在同一个窗口下写的

　　' 客户1连接服务器的3个条件，1：服务端已经运行。2：服务地址填写正确。3：端口要一致

　　' 本机测试用127001就可以了，外网的话根据外网IP填写，或用域名解析。例如 花生壳等软件，解析后直接填入域名。

　　' 端口 0-65535 只要不跟其他程序使用的端口冲突就可以

　　如果真 (客户1连接 (“127001”, 19730) ＝ 假)

　　信息框 (“连接服务器失败！”, 0, )

　　返回 ()

　　如果真结束

　　信息框 (“连接服务器成功！”, 0, )

　　子程序 _服务器1_客户进入

　　' 当客户连接进来以后可以先取回这个客户的IP,等下发送数据数用得到，有多个客户连接的话可以用数组保存

　　客户 ＝ 服务器1取回客户 ()

　　子程序 _按钮2_被单击

　　' 客户发送数据

　　客户1发送数据 (“客户1发送来的数据”)

　　子程序 _按钮1_被单击

　　' 服务器发送数据

　　服务器1发送数据 (客户, “服务器1发送来的消息”, )

　　子程序 _客户1_数据到达

　　局部变量 消息, 文本型

　　' 客户取回服务器发来的消息

　　' 接收到的数据时字节集型的，先到下文本

　　消息 ＝ 到文本 (客户1取回数据 ())

　　信息框 (消息, 0, )

　　' 当然，如果发送的不是文本，而是一个文件、一张的话，就不用到文本了。而应该用一个字节集型的变量来接收

　　子程序 _服务器1_数据到达

　　局部变量 消息, 文本型

　　' 接收客户发送的数据

　　消息 ＝ 到文本 (服务器1取回数据 ())

　　信息框 (消息, 0, )