EscapeCommFunction No funciona

[softruz]

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.

[softruz]

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

Un Saludo.

[Antonio Linares]

Juan,

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

[Davide]

Dear Juan,

I would be interested in your solution.

Thanks,
Davide