|
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周年了!感谢大家的支持与爱护!!
阿莫论坛才是最爱国的,关心国家的经济、社会的发展、担心国家被别国牵连卷入战争、知道珍惜来之不易的和平发展,知道师夷之长,关注世界的先进文化与技术,也探讨中国文化的博大精深,也懂得警惕民粹主义的祸国殃民等等等等,无不是爱国忧民的表现。(坛友:tianxian)
|