Wireless Communication Library Support Forum
Frameworks => Bluetooth Framework => Topic started by: benjamin.martini.r on July 08, 2011, 12:07:16 AM
-
I have this code in the server, but i can't connect with the wclClient.
Dim API As wclAPIX
Dim WithEvents Server As wclServerX
Sub Form1_Load
Set API = New wclAPIX
Set Server = New wclServerX
Set Discovery = New wclBluetoothDiscovery
API.Load
Server.Listen
End Sub
Private Sub Server_OnData(ByVal Buffer As Variant)
On Error GoTo ErrHandler
Text1.Text = Buffer
ErrHandler:
Exit Sub
End Sub
-
Hello,
You have to specify service's UUID (the same on Client and on Server sides). Please, take a look on Bluetooth Chat demo.
-
Where i can download it?
-
Download what? All the demos are available in WCL installation.