易语言如何向服务器发送要写入文本的命令

.版本 2

.子程序 按钮被单击

客户1.发送数据 (编辑框1.内容+“一个标记”+编辑框2.内容)

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

.局部变量 文本组, 文本型, , "0"

文本组 ＝ 分割字节集 (服务器1.取回数据 (), 到字节集 (“一个标记”), )

写到文件 (“1.txt”, 文本组 [1] ＋ #换行符 ＋ 文本组 [2])

以下程序为客户端：

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

.版本

2

.子程序

__启动窗口_创建完毕

'先连接到服务器，端口号用19730端口

.如果真

(客户1.连接

(地址编辑框.内容,19730

)

＝

假)

信息框

(“连接失败！”,

0,

)

返回

()

.版本

2

.子程序

_发送按钮_被单击

.如果真

(客户1.发送数据

(发送编辑框.内容)

＝

假)

信息框

(“发送失败！”,

0,

)

.如果真结束

__________________________________________________-

以下程序为服务端

需要用到：一个叫服务器的东西。

.版本

2

.子程序

_服务器1_数据到达

.局部变量

变量1

.局部变量

收到数据,

字节集

收到数据

＝

服务器1.取回数据

()

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

__________________________________________________________________

这个是首先要制定通信协议的。客户端发送不同的标志给服务器端，标志里携带给服务器端哪个文本框的信息，服务器在收到数据以后，根据标志解析，如果是发送给Text1的，就在Text1文本框中显示出来。如果是发送给Text2的，就在Text2中显示出来。原理大概就是这么个原理，首先要把协议定下来。

---