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:
01176879
Views:
7
>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
Specialist in Advertising, Marketing, especially Direct Marketing

I run courses in Business Management and Marketing
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform