Author Topic: Bt Chat Server  (Read 2974 times)

Offline benjamin.martini.r

  • Newbie
  • *
  • Posts: 2
  • Karma: 0
Bt Chat Server
« 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

Online Mike Petrichenko

  • Bluetooth Framework Developer
  • Administrator
  • Hero Member
  • *****
  • Posts: 3052
  • Karma: 1000
    • Soft Service Company
Re: Bt Chat Server
« Reply #1 on: July 08, 2011, 02:16:10 AM »
Hello,

You have to specify service's UUID (the same on Client and on Server sides). Please, take a look on Bluetooth Chat demo.

Offline benjamin.martini.r

  • Newbie
  • *
  • Posts: 2
  • Karma: 0
Re: Bt Chat Server
« Reply #2 on: July 08, 2011, 02:54:50 PM »
Where i can download it?

Online Mike Petrichenko

  • Bluetooth Framework Developer
  • Administrator
  • Hero Member
  • *****
  • Posts: 3052
  • Karma: 1000
    • Soft Service Company
Re: Bt Chat Server
« Reply #3 on: July 08, 2011, 03:49:13 PM »
Download what? All the demos are available in WCL installation.

 

Sitemap 1 2 3 4 5 6 7 8 9