GET SERIAL PORT MAPPING

4D v16.3


GET SERIAL PORT MAPPING ( arrNumeros ; arrNombres )

Parámetro	Tipo	Descripción
arrNumeros	Array entero largo	Array de números de puertos
arrNombres	Array cadena	Array de nombres de puertos

Descripción

El comando GET SERIAL PORT MAPPING devuelve dos arrays, arrNumeros y arrNombres, que contienen los números y nombres de puertos seriales del equipo actual.

Este comando es útil en Mac OS X, donde el sistema operativo asigna dinámicamente el número de puerto cuando utiliza un adaptador serial USB. Puede direccionar cualquier puerto serial extendido utilizando su nombre (estático), sin importar su número actual.

Nota: este comando no devuelve valores significativos con puertos estándar. Si quiere direccionar un puerto estándar, debe pasar su valor (0 o 1) directamente utilizando el comando SET CHANNEL (modo antiguo de funcionamiento de 4D).

Ejemplo

Este método de proyecto puede utilizarse para direccionar el mismo puerto serial (sin protocolo), sin importar el número que se le haya asignado:

 ARRAY TEXT($arrNombrePuertos;0)

 ARRAY LONGINT($arrNumsPuertos;0)

 C_LONGINT($vNumPuerto;$vNumPuertoFinal)

 

  `Buscar los números actuales de los puertos seriales

 GET SERIAL PORT MAPPING($arrNumsPuertos;$arrNombrePuertos)

 $vPortNum:=Find in array($arrNombrePuertos;vNombrePuerto)

  ` vNombrePuerto contiene el nombre del puerto a utilizar; puede venir de una ventana,

  ` de un valor almacenado en un campo, etc.

 If(arrNumsPuertos{$vNumPuerto}=0)

    vNumPuertoFinal:=0 `caso especial sobre Mac OS X

 else

    vNumPuertoFinal:=arrNumsPuertos{$vNumPuerto}+100

 End if

 SET CHANNEL(vNumPuertoFinal;params) `params contiene los parámetros de comunicación

 ... `Efectuar las operaciones deseadas

 SET CHANNEL(11) `Cierre del puerto

Ver también

SET CHANNEL