German Bluetooth Auflistung aktuell angeschlossener Geräte

[bonap]

Hallo,

wie kann ich eine Auflistung aktuell angeschlossener Geräte erstellen? Serial.GetPairedDevices zeigt mir alle schon mal
verbundenen Geräte an.

Danke

 

[bonap]

Hallo,

ich habe mir das Bluetooth-Chat-Bsp angesehen und in Teilen nachgebaut. Allerdings liefert StartDiscovery keinerlei Ergebnisse, obwohl Geräte angeschlossen sind.
Woran kann das liegen?

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Private ser As Serial
    Private sad As BluetoothAdmin
    Private li As List
End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("Layout")
    ser.Initialize("etest")
    sad.Initialize("sad")
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
    Dim btdev As Map
    Dim l As List
    
'    l.Initialize
'    btdev=ser.GetPairedDevices
'   
'   
'    For i=0 To btdev.Size-1
'        l.Add(btdev.GetKeyAt(i))
'        Log(btdev.GetKeyAt(i))
'    Next
    li.Initialize
    sad.StartDiscovery       
End Sub

Private Sub sad_DeviceFound (Name As String, MacAddress As String)
    Dim dummy As String   
    dummy=Name & ";" & MacAddress   
    li.Add(dummy)
End Sub

Private Sub sad_DiscoveryFinished
    If li.Size=0 Then
        MsgboxAsync("nix gefunden","wfdew")
    End If
    
    For i=0 To li.Size-1
        MsgboxAsync(li.Get(i),"test")
    Next
End Sub

 

[bonap]

Keiner wenigstens eine kleine hilfe oder Tipp für mich?

 

[klaus]

Ich hatte nicht geantwortet weil ich in diesem Bereich kein Erfahrung habe.
Von welchem Bluetooth-Chat-Beispiel spricht Du?
Ich habe dieses Beispiel [B4XPages] Bluetooth Chat Example herunter geladen und es funktioniert.
Versuche mal das gleiche Beispiel wie ich, funktioniert es?
Wahrscheinlich ja, dann passe Deinen Code an diesen an.

 

[bonap]

Danke Klaus. ich habe das Beispiel mal auseinander genommen. Ich hatte bei mir das Problem mit den Rechten links liegen lassen. Habe es entsprechend angepasst,
jetzt klappt zumindest das discovern.