FoxPro/Visual FoxPro - Como saber que puertos seriales existen

Buenas dias.

Quisiera ver si alguien de ustedes me pueden orientar como saber| que puertos seriales existen usando el mscomm32.ocx, he visto ejemplos pero veo que todos suponen que existen ya.

como por ejemplo :

This.Settings = "28800,N,8,1"
This.InputLen = 1
This.CommPort = 1
This.PortOpen = .T.

Define que voy a usar el COM1 y lo abre con el true . pero como saber que existe antes de abrirlo.

Tengo la duda o no he entendido bien. Alguien me explica por favor

JAG

Intentalo con este codigo:
*--- LWP Testear puertos disponibles
DO decl
? "Testing port COM1:", TestPort("COM1")
? "Testing port COM2:", TestPort("COM2")
? "Testing port COM3:", TestPort("COM3")
? "Testing port COM4:", TestPort("COM4")

FUNCTION TestPort (lcPort)
#DEFINE OPEN_EXISTING 3
#DEFINE GENERIC_READ 2147483648 && 0x80000000
#DEFINE FILE_FLAG_OVERLAPPED 1073741824 && 0x40000000
#DEFINE INVALID_HANDLE_VALUE -1
*
LOCAL hPort
hPort = CreateFile (lcPort, GENERIC_READ, 0,0,;
OPEN_EXISTING, FILE_FLAG_OVERLAPPED, 0)
*
= CloseHandle(hPort)
RETURN (hPort <> INVALID_HANDLE_VALUE)
*
PROCEDURE decl
DECLARE INTEGER CreateFile IN kernel32;
STRING lpFileName, INTEGER dwAccess, INTEGER dwShareMode,;
INTEGER lpSecurityAttr, INTEGER dwCreationDisp,;
INTEGER dwFlagsAndAttr, INTEGER hTemplateFile
*
DECLARE INTEGER CloseHandle IN kernel32 INTEGER hObject

Gracias , lo voy a probar y les cuento

Saludos
JAG

Buenas tardes :

Ya hice la prueba y funciono perfectamente, muy agradecido con la ayuda

Saludos
JAG

Que kapo sos..!!!

Funciona bien para puertos desde 1 a 4. Si los puertos se numeran desde el 5 en adelante no los detecta a pesar de que existan. El problema que yo encuentro y que me sucede muy a menudo es con los adaptadores usb/rs232, cuando los desconectan y vuelven a conectar en otra entrada usb, el puerto se "renumera" (por ejemplo, pasa de com6 a com8) y el software deja de poder comunicarse con el periférico. Este es el caso que necesito resolver y no encuentro la manera...

Hola, buen dia!
Coincido con Fabio Castro, el código de prueba que coloco Mauricio (Muchas gracias), funciona pero solo para puertos <=9
Alguien pudo resolverlo para probar puertos >=10?

Desde ya muchas gracias!!!

Hola Mario!
Por esas casualidades, pudiste solucionar este problema "funciona pero solo para puertos <=9" con los COMM desde VFP?

Te agradecería me comentes o me compartas la solución si la encontraste.

Desde ya, muchas gracias!!!