易语言用易语言自带的组件
连接服务器部分代码
.版本 2
返回 = 客户1.连接 (“127.0.0.1”, 6655)
.如果 (返回 = 真)
编辑框1.内容 = 编辑框1.内容 + “连接成功” + #换行符
.否则
编辑框1.内容 = 编辑框1.内容 + “连接失败” + #换行符
.如果结束
发送数据
.版本 2
.支持库 spec
tmp_文本 = 读入文件 (“D:\E\易语言调用Demo\P.bmp”) ’ 本地的图片
返回 = 客户1.发送数据 (tmp_文本)
调试输出 (tmp_文本 [1], 取字节集长度 (tmp_文本), _数据值换算 (取字节集长度 (tmp_文本), 2))
.如果 (返回 = 真)
编辑框1.内容 = 编辑框1.内容 + “发送成功” + #换行符
.否则
编辑框1.内容 = 编辑框1.内容 + “发送失败” + #换行符
数据送达
.版本 2
.支持库 spec
.子程序 _客户1_数据到达, , , 返回的是识别结果
.局部变量 取回内容, 字节集
.局部变量 返回, 文本型
调试输出 (“返回数据”)
取回内容 = 客户1.取回数据 ()
返回 = UTF8到文本 (取回内容)
调试输出 (返回)
编辑框1.内容 = 编辑框1.内容 + 返回 + #换行符