FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour EscapeCommFunction No funciona
Posts: 485
Joined: Fri Feb 09, 2007 10:34 AM
EscapeCommFunction No funciona
Posted: Wed Dec 02, 2009 09:58 AM

Muy buenas, estoy utilizando la funcion EscapeCommFunction para activar y desactivar el RTS pero no me funciona yo utilizo lo hago así:

if !BuildCommDcb( alltrim(cPort)+":"+alltrim(cBaud)+","+alltrim(cParity)+","+alltrim(cData)+","+alltrim(cStop), @cDcb )
try
CloseComm(nComm)
catch

    end 
  return 0

end if

#ifdef CLIPPER
if ! SetCommState( cDcb )
#else
if ! SetCommState( nComm, cDcb )
#endif

    try
        CloseComm(nComm)
    catch

    end 
  return 0

end if
msginfo( EscapeCommFunction(nComm,4)) //CLRRTS

La funcion EscapeCommFuncion me devuelve .t., entonces se supone que lo está haciendo pero estoy monitorizando el puerto y no hace el clear RTS

¿Sabeis algo compañeros?

Un Saludo.

Posts: 485
Joined: Fri Feb 09, 2007 10:34 AM
Re: EscapeCommFunction No funciona
Posted: Thu Dec 03, 2009 08:11 AM

Solucionado, ya he desarrollado el código, si alguien lo quiere, decirlo y lo posteo.

Un Saludo.

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: EscapeCommFunction No funciona
Posted: Thu Dec 03, 2009 10:02 AM

Juan,

Te agradecemos si lo posteas para que pueda ayudar a otros usuarios que se vean en con la misma necesidad, gracias :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 190
Joined: Tue Mar 14, 2006 01:59 AM
Re: EscapeCommFunction No funciona
Posted: Mon Jan 04, 2010 12:39 AM

Dear Juan,

I would be interested in your solution.

Thanks,
Davide

Continue the discussion