安卓端是用E4A写的,简单易上手,界面如下:
事件 主窗口.创建完毕()
'安卓6.0以上的系统需要动态申请权限,否则app可能无法正常运行
如果 权限操作1.取系统版本号()>=23 则
权限操作1.申请全部权限()
结束 如果
置状态栏颜色(标签_窗口标题.背景颜色)'E4A的设置里,窗口风格要设置为沉浸模式,此命令才能生效
浏览框1.显示方式=2
浏览框1.跳转("http://xxx/?action=stream")
结束 事件
事件 权限操作1.申请完毕(权限数组 为 文本型(),申请结果 为 整数型())
'可以把需要特殊权限的代码写在此处,当申请权限成功后再执行相关代码
结束 事件
事件 主窗口.按下某键(键代码 为 整数型,传址 屏蔽 为 逻辑型)
如果 键代码 = 返回键 则
返回桌面()
结束 如果
结束 事件
事件 图片框_返回.被单击()
返回桌面()
结束 事件
事件 按钮1.被单击()
客户1.连接服务器(编辑框1.内容,到整数(编辑框2.内容),5000)
结束 事件
事件 客户1.连接完毕(连接结果 为 逻辑型)
如果 连接结果=真 则
标签4.标题="连接成功..."
客户1.发送数据(文本到字节("APP","GBK"))
否则
标签4.标题="连接失败..."
结束 如果
结束 事件
事件 客户1.收到数据(数据 为 字节型())
变量 data 为 文本型()
data=分割文本(字节到文本(数据,"GBK"),"||")
如果 data(0)="回执信息" 则
标签5.标题=data(1)
结束 如果
结束 事件
事件 客户1.连接断开()
标签4.标题="已断开连接..."
结束 事件
事件 按钮2.被单击()
客户1.发送数据(文本到字节("open","GBK"))
结束 事件
事件 按钮3.被单击()
客户1.发送数据(文本到字节("close","GBK"))
结束 事件
事件 按钮4.被单击()
浏览框1.跳转("http://xxx/?action=stream")
结束 事件
PS:那个浏览框本来是想做网络摄像头的,但是因为某些技术原因,无法做到摄像头监控脚本在树莓派开机自启,所以就搁置(没什么用)了,使用时可以自行删除
附上下载链接:
Comments | NOTHING