分享一个b4a下安卓操作蓝牙打印机的代码

daiqx

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

很牛的一逼！顶一下

daiqx

还没有熟悉b4a的人过来啊？求zxing_b4a_1.3plus_lib

ANHOME

请问楼主，BA4 有开发或入门的书籍介绍吗？

daiqx

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

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

niba

打印机型号是什么？

ifus

楼主放出APP 吧，我也不想装上环境只是编一个而已

daiqx

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

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

daiqx

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

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

ifus

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

那发个测试的APP也可以的

niba

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

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

daiqx

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

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

daiqx

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

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