Hola ha Todos
Despues de tantas Pruebas he resuleto esto de los puertos, anexe la funcion de flushcomm(), pero continuaba el problema que no procesaba los comandos enviados al indicador de la bascula, esto se vino a solucionar de forma temporal y rapaida anexando un ciclo for a la funcion que manda escribir los comandos, a i forma de ver las cosas, creo que no todos los dispositivos funcionan igual algunos procesan mas rapidos los comandos que otros ya sea por memorio o alguna otra cosa, bueno anexo la parte del codigo con el cambio realizado y si es posible el señor antonio tenga alguna sugerencia en alguna funcion de mas a fondo nos ayudara con eso, me di cuenta que hyperterminal maneja un retardador a la hora de escribir comandos.
//////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////
function SendModem( cMsg )
nBytes = 0
nBytes := WriteComm( nComm, cMsg )
for ix = 1 to laespera // El valor de LaEspera seria de acuerdo al dispositivo
next ix // Puse 1,000,000 Asi pudo Funcionar
if nBytes < 0
MsgStop( "Error de Envio!!: " + Str( GetCommError( nComm ) ) )
endif
if FlushComm( nComm, 0 ) != 0 // Esta Inst. La Deje Pero Seguia Igual
nError = GetCommError( nComm )
MsgInfo( "FlushComm Error: " + Str( nError ) )
endif
return nil
//////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////
Muchas Gracias Señor Antonio por su Ayuda, aqui seguiremos.
Que esten Bien Todos
Carlos I. De La Rosa.
carloslmm@hotmail.com