易语言怎么吧客户端提交的文本到服务端里

Question

如题所述

Answer 1

以下程序为客户端：
需要用到：一个叫客户的组件。基本组件里面就有了。刚装的易语言4.11版本在有一个时钟的那行的最后一个就是。

.版本 2

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

'先连接到服务器，端口号用19730端口
.如果真 (客户1.连接 (地址编辑框.内容,19730 ) ＝ 假)
信息框 (“连接失败！”, 0, )
返回 ()

.版本 2

.子程序 _发送按钮_被单击

.如果真 (客户1.发送数据 (发送编辑框.内容) ＝ 假)
信息框 (“发送失败！”, 0, )
.如果真结束
__________________________________________________-
以下程序为服务端
需要用到：一个叫服务器的东西。
.版本 2

.子程序 _服务器1_数据到达
.局部变量 变量1
.局部变量 收到数据, 字节集

收到数据 ＝ 服务器1.取回数据 ()

'这样一来“收到数据”这个变量里面就保存着客户端传上来的文本的数据。可以进行其他处理。

__________________________________________________________________

Answer 2

.版本 2
.支持库 Exmlrpc

.程序集 窗口程序集1
.程序集变量 客户端, 请求客户端

.子程序 _按钮1_被单击

客户端.异步发送文本 (到文本 (编辑框1.内容))

.子程序 服务
.参数 消息地址, 整数型
.局部变量 消息类型, 整数型
.局部变量 结果消息, 文本型

消息类型 ＝ 客户端.取消息类型 (消息地址)
客户端.取返回文本 (消息地址, 结果消息)

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

客户端.连接 (8089, “127.0.0.1”, 假, &服务)