FiveTech Software tech support forums

... := 128 DEFAULT nDelay := 0 // inicializa variables de instancia ::cCom := cCom ::nError := 0 ::nDelay := nDelay // abrir el puerto ::nCom := OpenComm(::cCom,nInBytes,nOutBytes) // control de error al abrir el puerto IF ::nCom < 0 : :Error(1) RETURN (SELF) ENDIF // configurar parametros ...

... en el apartado de "Puertos (COM y LPT)" y sin embargo no lo puedo manejar con las funciones de manejo de puertos serie. Cuando hago el OpenComm me devuelve números mayores que cero y cuando uso, acto seguido, BuildCommDcb me da false es decir que no reconoce los puertos serie que no ...

... Local xRESZTA:=.T. Local cSPEED:=":9600,e,8,1" // there are settings of my equipment, check your scanner for correct parameters hPORT:= OpenComm( pNAME, 1024, 128 ) If ! BuildCommDcb( pNAME+cSPEED, @cDcb ) nError = GetCommError( hPORT ) MsgInfo( "BuildCommDcb Error: " + Str( ...

... leer el valor entre a un campo cGet como lo hace un lector para teclado; en samples hay prgs para el uso del puerto comm con estas instrucciones OpenComm(), Closecomm(), ReadComm(), FlushComm(), GetCommError(), BuildCommDCB(), WriteComm(), EnableCommNot() y SetCommState(). Utilizo una versiom ...

... las librerias mmm? cual es el problema. **************** * bajado del Foro **************** FUNCTION abrirport LOCAL IdPort,cDcb,nError IdPort := OpenComm("COM1",1024,1024) IF IdPort <= 0 nError = GetCommError( IdPort) MsgInfo( "Error al abrir: " + Str( nError ) ) ELSE MsgRun("Puerto ...

... que me apoye con su codigo. Saludos **************** * bajado del Foro **************** FUNCTION abrirport LOCAL IdPort,cDcb,nError IdPort := OpenComm("COM1",1024,1024) IF IdPort <= 0 nError = GetCommError( IdPort) MsgInfo( "Error al abrir: " + Str( nError ) ) ELSE MsgRun("Puerto ...

... aparecen dentro del apartado "Puertos (COM y LPT)" del administrador de despositivos de MiPC, lo hago de la siguiente forma: hPuerto:=oPenComm(" COM1: ",1024,128) WriteComm(hPuerto,"Lo que sea...") CloseComm(hPuerto) .../... Pero mi problema viene cuando ese dispositivo ...

... local cDcb, nError, cPorVel cPorVel := TPortcom+":"+alltrim(str(TBitsSeg))+",n,8,1" nComm2 := OpenComm( TPortcom, 1024, 128 ) lComClose := .f. if ! BuildCommDcb( cPorVel, @cDcb ) nError := GetCommError( nComm2 ) MsgInfo( cDescContrF2+" - ...

... Case xPORT=7 pNAME:="COM7" Case xPORT=8 pNAME:="COM8" Case xPORT=9 pNAME:="COM9" EndCase hPORT:= OpenComm( pNAME, 2048, 2048 ) If ! BuildCommDcb( pNAME+cSPEED, @cDcb ) nError = GetCommError( hPORT ) MsgInfo( "BuildCommDcb Error: " + Str( ...

how to open multiple ports simultaneously?

if I try:

nCom1 := OpenComm( "COM1", 1024 , 128)
nCom2 := OpenComm( "COM2", 1024 , 128)

then

nCom1=1
nCom2=1

... 20, 20 ) CloseComm( nComm ) return nil ********************************************* function InitCOMM() local cDcb, nError, nBytes local nComm := OpenComm( "COM1", 1024, 128 ) local cF := 'commTest.log' FErase( cF ) if nComm=1 LogFile( cF, { 'Otvoren COM 1 port ' + '9600' } ) endif if ...

... del programa abres el puerto utilizando las mismas funciones con sus respectivas validaciones como lo estas haciendo Function Main nCommB := OpenComm( ) BuildCommDcb() SetCommState( ) . . llamado de Funciones . closecomm() Primero que no estas abriendo y cerrando el puerto cada vez que estas ...

... #include "fiveWin.ch" function fReadPort local cDcb, lError, nError local numero := space(8) cErrCode := space( 15 ) if !( gnCom := OpenComm( 'COM3', 1024, 256 ) ) == 0 *IF ! SetCommState( gnCom, cDcb ) * nError = GetCommError( gnCom) * MsgInfo( "Error al setear: " + Str( ...

... asi que mi cliente quiere que la instale por medio de USB. Como puedo abrir por medio del puerto USB ? Actualmente utilizo lo siguiente: PUERTO:=oPenComm("com1:",1024,128) WriteComm(PUERTO,"ABRIR") CloseComm(PUERTO) Y me funciona perfecto pero como ven es para puerto serial ...

Jeff, Please make these changes: hb_retnl( ( unsigned long ) OpenComm( ( char * ) hb_parc( 1 ), cbInQueue, cbOutQueue ) ); hb_retl( InternetFindNextFile( ( HINTERNET ) hb_parnl( 1 ), ( char * ) hb_parc( 2 ) ) ); BOOL lSuccess = InternetReadFile( ( HINTERNET ...