易语言怎么吧客户端提交的文本到服务端里
展开全部
以下程序为客户端:
需要用到:一个叫客户的组件。基本组件里面就有了。刚装的易语言4.11版本在有一个时钟的那行的最后一个就是。
.版本 2
.子程序 __启动窗口_创建完毕
'先连接到服务器,端口号用19730端口
.如果真 (客户1.连接 (地址编辑框.内容,19730 ) = 假)
信息框 (“连接失败!”, 0, )
返回 ()
.版本 2
.子程序 _发送按钮_被单击
.如果真 (客户1.发送数据 (发送编辑框.内容) = 假)
信息框 (“发送失败!”, 0, )
.如果真结束
__________________________________________________-
以下程序为服务端
需要用到:一个叫服务器的东西。
.版本 2
.子程序 _服务器1_数据到达
.局部变量 变量1
.局部变量 收到数据, 字节集
收到数据 = 服务器1.取回数据 ()
'这样一来“收到数据”这个变量里面就保存着客户端传上来的文本的数据。可以进行其他处理。
__________________________________________________________________
需要用到:一个叫客户的组件。基本组件里面就有了。刚装的易语言4.11版本在有一个时钟的那行的最后一个就是。
.版本 2
.子程序 __启动窗口_创建完毕
'先连接到服务器,端口号用19730端口
.如果真 (客户1.连接 (地址编辑框.内容,19730 ) = 假)
信息框 (“连接失败!”, 0, )
返回 ()
.版本 2
.子程序 _发送按钮_被单击
.如果真 (客户1.发送数据 (发送编辑框.内容) = 假)
信息框 (“发送失败!”, 0, )
.如果真结束
__________________________________________________-
以下程序为服务端
需要用到:一个叫服务器的东西。
.版本 2
.子程序 _服务器1_数据到达
.局部变量 变量1
.局部变量 收到数据, 字节集
收到数据 = 服务器1.取回数据 ()
'这样一来“收到数据”这个变量里面就保存着客户端传上来的文本的数据。可以进行其他处理。
__________________________________________________________________
展开全部
.版本 2
.支持库 Exmlrpc
.程序集 窗口程序集1
.程序集变量 客户端, 请求客户端
.子程序 _按钮1_被单击
客户端.异步发送文本 (到文本 (编辑框1.内容))
.子程序 服务
.参数 消息地址, 整数型
.局部变量 消息类型, 整数型
.局部变量 结果消息, 文本型
消息类型 = 客户端.取消息类型 (消息地址)
客户端.取返回文本 (消息地址, 结果消息)
.子程序 __启动窗口_创建完毕
客户端.连接 (8089, “127.0.0.1”, 假, &服务)
.支持库 Exmlrpc
.程序集 窗口程序集1
.程序集变量 客户端, 请求客户端
.子程序 _按钮1_被单击
客户端.异步发送文本 (到文本 (编辑框1.内容))
.子程序 服务
.参数 消息地址, 整数型
.局部变量 消息类型, 整数型
.局部变量 结果消息, 文本型
消息类型 = 客户端.取消息类型 (消息地址)
客户端.取返回文本 (消息地址, 结果消息)
.子程序 __启动窗口_创建完毕
客户端.连接 (8089, “127.0.0.1”, 假, &服务)
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询