Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Comm ports
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Environment versions
Visual FoxPro:
VFP 7 SP1
OS:
Windows XP
Miscellaneous
Thread ID:
01167666
Message ID:
01178758
Views:
15
Cool! I've worked with a few blue tooth devices with great success. Enjoy!


>Hi Tracy
>
>And then arrived my bluetooth scanner - a keyboard wedge device - charged it up and behold it too worked - and very fast it is too
>
>Now to try several more than 1 scanner on the same host!!!
>
>This is a link to the scanner
>
>http://www.europe.metrologic.com/europe/uk/products/retail/overview/Hand-Held/01_MS9535-Voyager-BT/moreinfo/index.html
>
>Colin
>
>>Great! You are so lucky. Most of the devices come with their own drivers and interface. Working with HID devices is easy enough as well. It is all those others.... :o(
>>
>>
>>
>>>>Perhaps it accepts a command to start the scanning? Or else another method is used such as a power button, etc? When you get the actual device, the manual or the website should tell you more...
>>>>
>>>Tracy
>>>
>>>Got a USB scanner this morning - created a dummy form with a couple of text boxes and the scanned data read straight into the text box which had focus
>>>
>>>So I have alreadt developed the app to work with the USB scanner - now I'm borrowing a couple of RF scanners but I'm told that should be quite easy to incorporate
>>>
>>>Thanks for your help
>>>
>>>Colin
>>>
>>>>
>>>>
>>>>>>See my other message I just sent you in the other thread. Do you have a USB device which accepts data (commands) and responds with data you can use for testing?
>>>>>>
>>>>>>
>>>>>>>>Ed's Faq does it for you:
>>>>>>>>
>>>>>>>>LOCAL oComm, i, cOldErrorHandler
>>>>>>>>DECLARE aComPorts[16]
>>>>>>>>aComPorts = .T.
>>>>>>>>cOldErrorHandler = ON('ERROR')
>>>>>>>>FOR i = 1 TO 16
>>>>>>>>  oComm = CREATEOBJ('MsCOMMLib.Mscomm')
>>>>>>>>  oComm.CommPort = i
>>>>>>>>  ON ERROR aComPorts[i] = .F.
>>>>>>>>  oComm.PortOpen = .T.
>>>>>>>>  oComm.PortOpen = .F.
>>>>>>>>  oComm = NULL
>>>>>>>>  ON ERROR &cOldErrorHandler
>>>>>>>>ENDFOR
>>>>>>>>For i = 1 TO 16
>>>>>>>>	IF aComPorts[i]
>>>>>>>>		? [Comm Port ] + ALLTRIM(STR(i)) + [ is valid]
>>>>>>>>	ENDIF
>>>>>>>>ENDFOR
>>>>>>>>
>>>>>>>>
>>>>>>>>>>Up to 16,
>>>>>>>>>>
>>>>>>>>>>FAQ #7943
>>>>>>>>>>
>>>>>>>
>>>>>>>Thanks Tracy but what about USB ports?
>>>>>>>
>>>>>>>Colin
>>>>>>>>>>>Hi all,
>>>>>>>>>>>
>>>>>>>>>>>is there a vfp command that can give me the number of serial ports installed ?
>>>>>>>>>>>
>>>>>>>>>>>Best Regards,
>>>>>>>>>>>Hans
>>>>>>>>>
>>>>>>>>>Jim
>>>>>>>>>
>>>>>>>>>Is there a VFP command which can tell me what those ports are?
>>>>>>>>>
>>>>>>>>>Thanks
>>>>>>>>>
>>>>>>>>>Colin
>>>>>
>>>>>
>>>>>Tracy
>>>>>
>>>>>Struggling to answer your questions - at the moment the first of my trial USB scanners comes tomorrow - I assumed it was only a reader and therefore could not accept data
>>>>>
>>>>>I had thought that if I knew the port ID (hence my original question) I could access the data with FGETS() commands - and do this in a loop - am I wrong to do it this way?
>>>>>
>>>>>
>>>>>
>>>>>Colin
.·*´¨)
.·`TCH
(..·*

010000110101001101101000011000010111001001110000010011110111001001000010011101010111001101110100
"When the debate is lost, slander becomes the tool of the loser." - Socrates
Vita contingit, Vive cum eo. (Life Happens, Live With it.)
"Life is not measured by the number of breaths we take, but by the moments that take our breath away." -- author unknown
"De omnibus dubitandum"
Previous
Reply
Map
View

Click here to load this message in the networking platform