FiveTech Software tech support forums

Que tal a Todos:

En clipper tengo funcionando lo siguiente:

.....
DO WHILE .T.
nTrab := nChars := nInicio := 0
cStatus:=""
/* Limpiar el buffer para una nueva lectura*/
COM_FLUSH(nPuerto)

DO WHILE (nChars := COM_COUNT(nPuerto)) <= 6 // Asegura
@ 18,17 SAY "Leyendo el peso..." // al menos haya 7
// car cteres en
IF INKEY() = K_ESC // el Buffers.
RESTSCREEN (16,15,21,36,cVentana)
SETCOLOR(cColorAnt)
RETURN(-1)
ENDIF
ENDDO
@ 18,17 SAY SPACE(1

/* Toma la cadena de car cteres del buffer */
cDato := COM_READ(nPuerto)

nInicio := at(chr(2) , cDato) // B£sca el carater STX (inicio)

nTrab := val( substr ( cDato, nInicio+2, 7 ) )

cStatus := substr( cDato, nInicio+11, 1 )

@ 19,25 SAY nTrab PICT "9999999"

GrabaEntrada(nTrab)
DO CASE
CASE cStatus == " "
EXIT /* El TRAB es correcto */
ENDCASE

EXIT
ENDDO

Y NECESITO PASARLO A FIVEWIN, PARA ESO PUSE LO SIGUIENTE:

function entrada()
local cDcb, nBytes,nError,cDataRead
local nComm := OpenComm( "COM2", 1024, 128 )

if ! BuildCommDcb( "COM2:9600,n,8,1", @cDcb )
nError = GetCommError( nComm )
MsgInfo( "BuildCommDcb Error: " + Str( nError ) )
endif

if ! SetCommState( cDcb )
nError = GetCommError( nComm )
MsgInfo( "SetCommState Error: " + Str( nError ) )
endif

***Read Comm Port here
DO WHILE .t.
nBytes := ReadComm( nComm , @cDataRead)
msginfo(nBytes) // <----- AQUI SOLO MUESTRA -1 SIEMPRE
if nBytes > 6
msginfo(cDataRead)
exit
endif
enddo
msginfo(cDataRead)

***Close Comm Port
if FlushComm( nComm, 0 ) != 0
nError = GetCommError( nComm )
MsgInfo( "FlushComm Error: " + Str( nError ) )
endif

if ! CloseComm( nComm )
nError = GetCommError( nComm )
MsgInfo( "CloseComm Error: " + Str( nError ) )
endif

Podrian ayudarme en lo que me falta, por favor, de antemano muchas gracias

Atte Miguel Salas

Gracias Joao

Veo que usa el fwh27

funcionará con fw24?
de ser asi me faltan una lib de xharbour: stlp.lib, tip.lib y hbxsix.lib ,
quizas puedas facilitarmelas?

Miguel Salas wrote:Gracias Joao

Veo que usa el fwh27

funcionará con fw24?
de ser asi me faltan una lib de xharbour: stlp.lib, tip.lib y hbxsix.lib ,
quizas puedas facilitarmelas?

El mas recomendable, aconsejable, estimable, és ke usted trueque tu versión.

FiveWin 2.7 for [x]Harbour 0.99.60, impresionante, emocionante. Electrizante, alucinante.

jejeje.

Saludos.