Watch, Follow, &
Connect with Us

For forums, blogs and more please visit our
Developer Tools Community.

Welcome, Guest
Guest Settings

Thread: Classic Bluetooth sample not working?

This question is not answered. Helpful answers available: 2. Correct answers available: 1.

Permlink Replies: 0
Robert Kondner

Posts: 59
Registered: 11/15/01
Classic Bluetooth sample not working?  
Click to report abuse...   Click to reply to this thread Reply
  Posted: Jun 23, 2017 5:14 PM

Delphi 10.1 building a Win32 app on WIn64 machine.

I need to access a Bluetooth barcode scanner so I started with the CIBluetooth sample app.

My scanner is pared with my machine I can select it and use the Start Text Services. ( ButtonOpenReadingSocket TButton)

The TServerConnectionTH.Execute thread is spinnin on the following loop:

while not Terminated and (FSocket = nil) do
FSocket := FServerSocket.Accept(100);

I am a total newbie here, any suggestions why this loop does not return a non nil FSocket? I am scanning barcodes there should be data.

Bob Kondner
Helpful Answer (5 pts)
Correct Answer (10 pts)

Server Response from: ETNAJIVE02