|
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
|
阿莫论坛20周年了!感谢大家的支持与爱护!!
曾经有一段真挚的爱情摆在我的面前,我没有珍惜,现在想起来,还好我没有珍惜……
|