amobbs.com 阿莫电子技术论坛

标题: 分享一个b4a下安卓操作蓝牙打印机的代码 [打印本页]

作者: daiqx 时间: 2017-2-21 11:38
标题: 分享一个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

作者: YAOZHE 时间: 2017-2-21 20:23
很牛的一逼！顶一下

作者: daiqx 时间: 2017-2-21 20:30
还没有熟悉b4a的人过来啊？求zxing_b4a_1.3plus_lib

作者: ANHOME 时间: 2017-2-21 20:47
请问楼主，BA4 有开发或入门的书籍介绍吗？

作者: daiqx 时间: 2017-2-21 21:53

ANHOME 发表于 2017-2-21 20:47
请问楼主，BA4 有开发或入门的书籍介绍吗？

如果有vb基础，再百度一下就入门了。如果没有的话就学其它。太小众了。不过没办法，java虽然不难，又太麻烦了

作者: niba 时间: 2017-2-21 22:32
打印机型号是什么？

作者: ifus 时间: 2017-2-21 22:40
楼主放出APP 吧，我也不想装上环境只是编一个而已

作者: daiqx 时间: 2017-2-21 22:58

ifus 发表于 2017-2-21 22:40
楼主放出APP 吧，我也不想装上环境只是编一个而已

这种试验性质的关键代码才有用。app没用的。基本没实用的功能。

作者: daiqx 时间: 2017-2-21 23:00

niba 发表于 2017-2-21 22:32
打印机型号是什么？

蓝牙小票类打印机应该通用。

作者: ifus 时间: 2017-2-21 23:32

daiqx 发表于 2017-2-21 22:58
这种试验性质的关键代码才有用。app没用的。基本没实用的功能。

那发个测试的APP也可以的

作者: niba 时间: 2017-2-22 08:03

daiqx 发表于 2017-2-21 23:00
蓝牙小票类打印机应该通用。

推荐一个淘宝型号。。买一个测试下

作者: daiqx 时间: 2017-2-22 09:12

niba 发表于 2017-2-22 08:03
推荐一个淘宝型号。。买一个测试下

我用的是佳博 58MBIII的带蓝牙的。

作者: daiqx 时间: 2017-2-22 10:06

niba 发表于 2017-2-22 08:03
推荐一个淘宝型号。。买一个测试下

你用b4a的吗？有没有好用的库可以分享一下哈

欢迎光临 amobbs.com 阿莫电子技术论坛 (https://www.amobbs.com/)