Page 1 of 1
Extracción de información por el puerto com
Posted: Tue Jan 29, 2008 10:07 am
by jose_murugosa
Hola a todos.
Tengo una aplicación que captura la pesada de una balanza electrónica a través del puerto com1.
Actualmente he resuelto la captura con la lib hbcomm, pero intento deshacerme de estas libs y capturar esos datos con las funciones propias de FWHX.
He hecho algunas pruebas, pero hasta el momento sin éxito.
¿Alguien podría darme información o algún ejemplo de como efectuar esta captura de información desde el puerto com del PC?
Desde ya agradezco la ayuda que siempre me dan.
Posted: Tue Jan 29, 2008 10:49 am
by Antonio Linares
José,
Revisa fwh\samples\TestComm.prg y Phone.prg
Posted: Tue Jan 29, 2008 11:52 am
by karinha
Mira se la balanca no tiene una DLL propria. se si, haces asi:
Ejemplo:
Code: Select all
STATIC xDllB // Para Apertura de la DLL
//
FUNCTION...
//
xDllB := LoadLibrary( "FILIZOLA.DLL" )
//
DEFINE DIALOG...
// bla... bla...
ACTIVATE DIALOG...
//-> salida
FreeLibrary( xDllb )
XDLLB:=NIL
//
RETURN NIL
//-> Tu codigo de trabajo.
Posted: Tue Jan 29, 2008 3:35 pm
by jose_murugosa
Gracias a ambos
, haré algunas pruebas y les cuento....
Posted: Wed Jan 30, 2008 10:00 am
by cmsoft
Hola Jose:
Yo he hecho comunicar con una registradora fiscal, pero la misma tiene un protocolo particular que hay que respetar. El único problema, es que con la versión de FW que yo tengo, Antonio me envio un archivo COMM.OBJ para enlazar que solucionaba un problema que creo en versiones nuevas está solucionado.
Te envio parte del código de comunicacion con las funciones nativas de FW.
Apertura del puerto
Code: Select all
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 ) )
ELSE
MsgRun("Puerto abierto como " + STR(IdPort))
ENDIF
IF ! BuildCommDcb("COM"+STR(n,1)+":9600,n,8,1" , @cDcb)
nError = GetCommError( IdPort)
MsgInfo( "Error al Configurar: " + Str( nError ) )
RETURN 0
ELSE
MsgRun("Puerto Configurado")
ENDIF
IF ! SetCommState( IdPort, cDcb )
nError = GetCommError( IdPort)
MsgInfo( "Error al setear: " + Str( nError ) )
RETURN 0
ELSE
MsgRun("Puerto Seteado")
ENDIF
RETURN IdPort
Recibir informacion
Code: Select all
FUNCTION leer_bloque(port,n)
LOCAL bloque:= SPACE(n), nBytes
DO WHILE .t.
nBytes := ReadComm( port,@bloque)
IF nBytes >= n
EXIT
ENDIF
ENDDO
RETURN bloque
Espero te sirva