Italian bluetooth e samsung s3 o s4, l'app va in crash, perchè?

fifiddu70

Well-Known Member
Licensed User
Longtime User
non capisco quale sia il problema che con i samsung s3 oppure s4 questo codice non funziona, l'app va in crash ed esce con l'arresto anomalo, mentre altri smartphone o tablet funzionano, sapete dirmi perchè? vi posto il codice che ho implementato sulla mia app:
B4X:
#Region Module Attributes
    #FullScreen: False
    #IncludeTitle: True
    #ApplicationLabel: Bluetooth POS Printing
    #VersionCode: 1
    #VersionName:
    #SupportedOrientations: portrait
    #CanInstallToExternalStorage: False
#End Region

Sub Process_Globals
    Dim PrintBuffer As String

    Dim BtAdmin As BluetoothAdmin
    Dim BTConnection As Serial
    Dim Printer As TextWriter
End Sub

Sub Globals
  
End Sub

Sub Activity_Create(FirstTime As Boolean)
    If FirstTime Then
        BtAdmin.Initialize("BlueTooth")
        BTConnection.Initialize("Printer")
        Dim PairedDevices As Map
        PairedDevices = BTConnection.GetPairedDevices
        Dim l As List
        Dim DeviceName, MacAddress As String
        l.Initialize
        For i = 0 To PairedDevices.Size - 1 'Check all devices
            l.Add(PairedDevices.GetKeyAt(i))
            DeviceName=PairedDevices.Getkeyat(i)
            MacAddress=PairedDevices.GetValueAt(i)
            Log(DeviceName & " -> " & MacAddress)
            If DeviceName.Contains("Thermal") Then 'Insert the BT-Name of the printer or use the MAC address
                Exit
            End If
        Next
        BTConnection.Connect(MacAddress)
    End If
End Sub

Sub Activity_Resume
  
End Sub

Sub Activity_Pause
  
End Sub

Sub Printer_Connected (Success As Boolean)
    If Success Then
        Printer.Initialize2(BTConnection.OutputStream,"windows-1252") 'important to print f.e. German/French chars
        PrintBuffer=Chr(27)&"t"&Chr(16)&"Hello öäüßéèê" 'Set codepage 1252
        Printer.WriteLine(PrintBuffer)
        Printer.Flush

        Msgbox("Printed!","")
        Printer.Close
        BTConnection.Disconnect 'disable this if you like
    Else
        Msgbox("No printer found...","Print error")
    End If
End Sub
 

MarcoRome

Expert
Licensed User
Longtime User
Fifi sai perchè non ti rispondo..perchè non metti neanche i like.
Della serie dovresti abituarti a lavorare su questa grande comunità... invece chiedi...prendi...e non fai neanche un click su like...ho visto che la stessa cosa fai con Erel...come dire "è poco gentile" nei riguardi di chi ti da una mano
 

sirjo66

Well-Known Member
Licensed User
Longtime User
non ho capito a cosa ti serve l'oggetto BtAdmin, lo inizializzi ma poi non lo usi, e quindi può essere che il sistema chiami un evento che non esiste

comunque c'è il metodo Connect3 che serve proprio per quei dispositivi che non riescono a connettersi con il metodo Connect:


Connect3 (MacAddress As String, Port As Int)
This method is a workaround for hardware devices that do not connect with Connect or Connect2.
 

fifiddu70

Well-Known Member
Licensed User
Longtime User
scusate ragazzi, non pensate che non metto i like perchè vi snobbo oppure per maleducazione, io non sapevo nemmeno che esistevano i likee che servivano per questo, mi dovrò abituare, a volte anche non rispondere su un aiuto non lo faccio per maleducazione, però ho capito che io sono uno soltanto voi siete una grande comunità e quindi dovro essere io ad adeguarmi al sistema, nonn voglio passare per quello antipatico, mi deve solo entrare in testa come anche il linguaggio di programmazione.
Rispondendo a sirjo66, il codice che vedi lo preso da un tutorial che trovi sul bluetooth non lo fatto io, io lo sto usando nella mia applicazione, e non ho fatto caso a questo particolare.
 
Top