Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Comm ports
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Versions des environnements
Visual FoxPro:
VFP 7 SP1
OS:
Windows XP
Divers
Thread ID:
01167666
Message ID:
01176879
Vues:
8
>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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform