How to write an read strings to/from a device with SPP profile only?

[lanisoft]

Hi,
i don't know how to connect with a device with SPP. Can you help me?
I write:

SerialPortServiceClass_UUID = "{00001101-0000-1000-8000-00805F9B34FB}"

        wclClient.Transport = ctBluetooth
        wclClient.BluetoothParams.Address = "(00:07:80:91:19:F8)"
        wclClient.BluetoothParams.Radio = Radio
        wclClient.BluetoothParams.Service = SerialPortServiceClass_UUID
        wclClient.BluetoothParams.Authentication = False
        wclClient.BluetoothParams.Encryption = False
        wclClient.BluetoothParams.Channel = 1
       
        wclAPI.ShowError (wclClient.Connect)

but the result is error on connect 45. What is the error? UUID? Channel?
Thanks in advanced.

[Mike Petrichenko]

Hi,

Add

uses
  wclUIIDs;

Remove this line:
  SerialPortServiceClass_UUID = "{00001101-0000-1000-8000-00805F9B34FB}"

Depends on your device but usualy:
  wclClient.BluetoothParams.Authentication = True

Remove this line:
  wclClient.BluetoothParams.Channel = 1

Of course, if your device has SPP

[lanisoft]

Hi,
I dont understand you say with
uses
  wclUIIDs;

I am testing wcl in VB6.

I can connect with this lines

wclClient.Transport = ctBluetooth
wclClient.BluetoothParams.Address = "(00:07:80:91:19:F8)"
wclClient.BluetoothParams.Radio = Radio
wclClient.BluetoothParams.Service = "{00001101-0000-1000-8000-00805F9B34FB}" or "{00001124-0000-1000-8000-00805F9B34FB}" or "{00001126-0000-1000-8000-00805F9B34FB}"
wclClient.BluetoothParams.Authentication = False
wclClient.BluetoothParams.Encryption = False
wclClient.BluetoothParams.Channel = 1

then write this

wclClient.Connect
While wclClient.State <> csConnected
  DoEvents
Wend
wclAPI.ShowError (wclClient.Write(PALABRA))
wclClient.Disconnect
While wclClient.State <> csDisconnected
  DoEvents
Wend

but the device not disconnects. Can you tell me what happen?
Thanks in advanced

[Mike Petrichenko]

Hi,

you have posted topic in WCL VCL Edition so I thought that you use Delphi. There is topics for COM Edition.

wclClient.Connect

after you called Connect wait OnConnect event. Waiting in loop is wrong

The you can write

wclAPI.ShowError (wclClient.Write(PALABRA))

And disconnect

wclClient.Disconnect

Wait for OnDisconnect event. Waiting in loop is wrong.