android 蓝牙打印代码,分享一个b4a下安卓操作蓝牙打印机的代码
b4a的 用到 Serial的库 实测过能用
另外:有人有 zxing_b4a_1.3plus_lib_demo.zip 的库没有?
关键代码
Sub Process_Globals
Dim o_Serial As Serial ' Objeto que contiene la comunicacion con los dispositivos
Dim o_Printer As TextWriter ' Objeto que contiene la informacion a imprimir
Dim o_Printer_Conected As Boolean ' Indica si la impresora está conectada
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("balance")
If FirstTime Then
o_Serial.Initialize("Printer")
StartPrinter
End If
End Sub
Sub Printer_Connected (Success As Boolean) ' 连接成功事件
If Success Then
o_Printer.Initialize2(o_Serial.OutputStream,"GB2312")
'printer.WriteLine(PrintBuffer)
Msgbox("Printer Connected!","")
'printer.Close
'cmp20.Disconnect
o_Printer_Conected=True
Else
If Msgbox2("", "Printer Error","Reprint","Cancel","",Null) = DialogResponse.POSITIVE Then
StartPrinter
End If
End If
End Sub
Sub StartPrinter '初始化 串口
Dim PairedDevices As Map
Dim lcPrinterName As String
PairedDevices = o_Serial.GetPairedDevices
Dim l As List
l.Initialize
For i = 0 To PairedDevices.Size - 1
lcPrinterName = PairedDevices.GetKeyAt(i)
l.Add(lcPrinterName)
Next
'
Dim res As Int
res = InputList(l, "Seleccione la Impresora", -1) 'show list with paired devices
If res <> DialogResponse.CANCEL Then
'lcPrinterAddress= PairedDevices.Get(l.Get(res))
lcPrinterName = l.Get(res)
Msgbox("Conectarse a: " & lcPrinterName,"提醒")
o_Serial.Connect(PairedDevices.Get(l.Get(res))) 'convert the name to mac address
End If
End Sub
Sub balPrint_Click '输出打印
o_Printer.WriteLine("Print Test")
o_Printer.WriteLine("--------------------------")
o_Printer.WriteLine("打印中文: " & "中文字符集打印没问题")
o_Printer.Flush
End Sub
android 蓝牙打印代码,分享一个b4a下安卓操作蓝牙打印机的代码相关推荐
- html贪吃蛇自动走,分享一个用html5实现的贪吃蛇特效代码
本篇小编为大家分享一个用html5实现的简单贪吃蛇特效代码,喜欢的小伙伴们可以看一下 Snake //内置大量BUG,I'm sorry. var lev=100; //定时器间隔时间 var num ...
- html5实现贪吃蛇,分享一个用html5实现的贪吃蛇特效代码
本篇小编为大家分享一个用html5实现的简单贪吃蛇特效代码,喜欢的小伙伴们可以看一下 Snake //内置大量BUG,I'm sorry. var lev=100; //定时器间隔时间 var num ...
- 砸地鼠 php源码,分享一个html+js实现打地鼠游戏的实例代码
本文主要分享了js实现打地鼠小游戏的示例代码.具有很好的参考价值,下面跟着小编一起来看下吧 话不多说,请看代码: 打地鼠 #content { width:960px; margin:0 auto; ...
- php欢迎界面代码,分享微信小程序欢迎界面开发的实例代码
这篇文章主要分享微信小程序欢迎界面开发的实例代码的相关资料,这里实现欢迎界面的简单实例和实现代码及实现效果图,需要的朋友可以参考下 微信小程序 欢迎界面 市面上大多数的app都会有一个欢迎界面,下面将 ...
- 台式计算机蓝屏代码08e,win7系统下电脑开机出现蓝屏代码0x000008e解决方法(图)
原标题:"win7系统下电脑开机出现蓝屏代码0x000008e怎么办"相关电脑问题教程分享. - 来源:191路由网. 蓝屏是我们日常使用电脑过程中最经常遇见的故障之一了,蓝屏总是 ...
- 台式计算机蓝屏代码08e,win7系统下电脑开机出现蓝屏代码0x000008e怎么办
蓝屏是我们日常使用电脑过程中最经常遇见的故障之一了,蓝屏总是让人很是头疼,而在开机出现蓝屏错误代码0x0000008E的原因主要是内存有错误或者软件不兼容导致的,那么,该如何解决蓝屏这个问题呢?下面, ...
- linux切换图片的代码,cacaview – Linux终端下将图片转换ASCII Art代码图案
有时你可能需要终端输出许多图片,那么现在就让我们在Linux终端打开一个新窗口显示图片. cacaview – Linux终端下将图片转换ASCII Art代码图案的命令. Ubuntu下安装命令: ...
- python办公自动化代码_[Python] 自动化办公 邮件操作基础知识及代码(下)
转载请注明:陈熹 chenx6542@foxmail.com (简书号:半为花间酒) 若公众号内转载请联系公众号:早起Python 这篇文章能学到的主要内容: imbox 收取邮件 poplib 收取 ...
- android usb投影win10,分享win10投影到安卓平板上的方法
内容来源:系统家园 今天来聊聊一篇关于分享win10投影到安卓平板上的方法的文章,现在就为大家来简单介绍下分享win10投影到安卓平板上的方法,希望对各位小伙伴们有所帮助. 一.首先,准备给电脑和平板 ...
最新文章
- 《Flink官方文档》示例总览
- input自适应_一种Dynamic ReLU:自适应参数化ReLU(调参记录26)Cifar10~95.92%
- Debug Multithread DLL 与 Debug Multithread
- 最新Angular2案例rebirth开源
- mysql中when用法_Mysql 中的CASE WHEN 用法
- this.getstate_Java线程类Thread.State getState()方法(带示例)
- 程序员父亲的遗产——编程十诫 转载
- Kroneker Tensor:克罗内克张量
- python中绘制散点图的函数_如何使用python的pygame模块绘制随机散点图
- DELPHI10.2的LINUX数据库开发环境配置
- 《数字图像处理 第三版》(冈萨雷斯)——第三章 灰度变换和空间滤波
- php flash斗地主,flash斗地主
- go模拟android浏览器,模拟浏览器登录操作
- qq邮箱的SMTP服务器是什么
- 直流电机的原理及驱动
- 车联网各领域头部企业排行榜
- CLIPS 的简单认识
- arduino接收hmi屏幕_求助 连接 Arduino 与威伦通触摸屏
- 关于髋关节固定支具的介绍
- [Android6.0][RK3399] PWM Backlight 驱动分析