FoxPro/Visual FoxPro - Como saber que puertos seriales existen

   
Vista:

Como saber que puertos seriales existen

Publicado por JAG (13 intervenciones) el 16/03/2010 19:31:40
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Mauricio

Como saber que puertos seriales existen

Publicado por Mauricio (1368 intervenciones) el 17/03/2010 02:08:37
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Como saber que puertos seriales existen

Publicado por JAG (13 intervenciones) el 17/03/2010 03:37:18
Gracias , lo voy a probar y les cuento

Saludos
JAG
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Como saber que puertos seriales existen

Publicado por JAG (13 intervenciones) el 18/03/2010 02:07:13
Buenas tardes :

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

Saludos
JAG
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar