易语言服务器及火山客户端通讯开源

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

局_接收数据 ＝ 服务器1.取回数据 ()
局_数据长度 ＝ 取字节集长度 (局_接收数据)
局_接收数据 ＝ 取字节集右边 (局_接收数据, 局_数据长度 － 2) ' 火山安卓发来的文本带有包头长度定义的，所以要把真正的数据取出来。
编辑框1.加入文本 (编码_Utf8到Ansi (局_接收数据)) ' 安卓发送的是utf-8编码，易语言无法识别，所以需要转换。
_按钮_发生数据给火山_被单击 ()

.子程序 _按钮_发生数据给火山_被单击
.局部变量 局_要发送的数据, 字节集
.局部变量 局_字节集长度, 字节型

局_要发送的数据 ＝ 编码_Ansi到Utf8 (“现在时[” ＋ 到文本 (取现行时间 ()) ＋ “]”, ) ' 安卓是utf-8编码，所以需要转换。
局_字节集长度 ＝ 取字节集长度 (局_要发送的数据)
局_要发送的数据 ＝ 到字节集 (主机字节序转网络字节序 (局_字节集长度)) ＋ 局_要发送的数据 ' 发送的数据必须要有，网络字节序的 数据长度 包头
服务器1.发送数据 (程_客户信息, 局_要发送的数据, 10)