Como leer de los puertos series
Enviado por: HK 
 
 
 Mediante el MS Comm Control (MSCOMM32.OCX)

Para hacer esto hay que tener registrado el MSCOMM32.OCX. 
Luego agregamos el activeX al formulario y en el evento Click de un botón escribimos: 

Local cValor
With thisform
.olecontrol1.commport = 1 &&Selecciono el puerto1= Com1, 2 = Com2
* Configuración del puerto velocidad 1200 baudios
*sin paridad,8 bits de transferencia,1 bit de parada.olecontrol1.settings="1200,n,8,1"
.olecontrol1.inputmode = 0 && modo texto
.olecontrol1.portopen = .t. &&abre el puerto
.olecontrol1.inputlen = 0 &&hago que tome todos los datos del buffers 
cValor = ""
    for i=1 to 350
      cValor=cValor+.comport.input && leo el valor del buffers de entrada y lo almaceno
     endfor
&&Muestro el valor
         messagebox ( cVAlor )
    .olecontrol1.portopen = .f.  &&Cierro el puerto
Endwith




Saludos.... Horacio Kohler (HK)