Perdon
NO se poner imagenes en el foro
Aqui esta el codigo que necesito migrar
Gracias
FUNCTION abrirport(n)
LOCAL IdPort,cDcb,nError
IdPort := OpenComm("COM"+STR(n,1),1024,256)
IF IdPort <= 0
nError = GetCommError( IdPort)
MsgInfo( "Error al abrir: " + Str( nError ) )
Retun 0
ENDIF
IF ! BuildCommDcb("COM"+STR(n,1)+":9600,n,8,1" , @cDcb)
nError = GetCommError( IdPort)
MsgInfo( "Error al Configurar: " + Str( nError ) )
RETURN 0
ENDIF
IF ! SetCommState( IdPort, cDcb )
nError = GetCommError( IdPort)
MsgInfo( "Error al setear: " + Str( nError ) )
RETURN 0
ENDIF
IF (nBytes := WriteComm( port,string) ) < 0
MsgAlert("Mando mal string")
ENDIF
nBytes := ReadComm( port,@string)
IF nBytes < n
MsgInfo("Leyo menos bytes")
RETURN .f.
ENDIF
RETURN .t.