MSComm con Error - Urgente!!!!!!!

SET NIGHT ON

:-) es solo broma ;-)

Quizás a la medianoche, la central telefónica envie algún caracater especial al
puerto de la PC.

Lo mejor es que pongas una Etiqueta que se actualiza para ver exactamente en que
momento (Hora) se produce el error, o que vayas guardando en una tabla la cadena
"cruda" que vas leyendo de la central para así saber alguna opción que puedas no
haber contemplado.

¿Tienes los manuales de la central telefónica? Quizás alli puedas leer algo de
lo que te está sucediendo.

Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos


"sergio" escribió en el mensaje
news:

Estimados Foxabios:

Tengo una aplicación que con la clase MSCOMM.MSComm.1 del
MSComCt2.OCX usa el COM3 para leer las llamadas de una central
telefonica. El error se produce durante la noche ya que al regresar
encuentro el mensaje:
'Codigo de excepción OleDispatch de MSCOMM: Internal error
retrieving device control block for the port'
¿Que podrá ser? Es urgente ya pierdo los datos de la noche.

Sergio



PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway

Luis

Voy a seguir tus consejos. La verdad es que ahora, sin hacer nada, dejo de
envier el msg.

Otra duda: la central requiere para habilitar un interno de una cadena la
cual termina con CHR(13)

Ahora, cuando mando una cadena el MSComm espera de CHR(13) para iniciar la
transmision, es decir:

MiCadena=".."+chr(13)
MiForm.MiComm.Output=MiCadena

Como hago?

MiCadena=".."+chr(13)+chr(13) ???????????????
MiForm.MiComm.Output=MiCadena

Sergio





PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway

Sergio,

Hasta donde yo se, MSComm no espera ningún caracter especial para comenzar la transmición, sino que la comienza inmediatamente cuando la cantidad de caractéres en el buffer de salida es igual a la cantidad the caracteres que pusiste en la
propiedad SThreshold

sergio wrote:

Luis

Voy a seguir tus consejos. La verdad es que ahora, sin hacer nada, dejo de
envier el msg.

Otra duda: la central requiere para habilitar un interno de una cadena la
cual termina con CHR(13)

Ahora, cuando mando una cadena el MSComm espera de CHR(13) para iniciar la
transmision, es decir:

MiCadena=".."+chr(13)
MiForm.MiComm.Output=MiCadena

Como hago?

MiCadena=".."+chr(13)+chr(13) ???????????????
MiForm.MiComm.Output=MiCadena

Sergio





PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway

Estimado:

Tengo una laguna, el control recibe perfectamente los datos, ahora cuando
quiero enviar la Central Telefónica no responde.

MsComm tiene SThreshold=0

Entonces, debo modifcarlos para que pueda iniciar la transmisión de datos?

Es decir que para:

Cadena1=Chr(20) && Ctrl+T
Cadena2="Cha-berum;stn,111,1;"+Chr(13)
Cadena3=Chr(24) && Ctrl+X

* Len(Cadena1)=1
* Len(Cadena2)!
* Len(Cadena3)=1

Debo hacer:

ThisForm.MsComm.SThreshold=1
ThisForm.MsComm.Output=Cadena1
ThisForm.MsComm.SThreshold!
ThisForm.MsComm.Output=Cadena2
ThisForm.MsComm.SThreshold=1
ThisForm.MsComm.Output=Cadena3

??????

Agredecería me respondas urgente o a mi correo

Gracias de antemano

Sergio


-
PortalFox :: Nada corre como un zorr
http://www.portalfox.co

PortalFox - NNTP Forum Gatewa

Sergio,

Deja SThreshold en 1, no necesitas andar cambiandolo, a mi entender es solo una propiedad que usas cuando quieres optimizar la transmición cuando mandas datos que tienen siempre la misma longitud


sergio wrote:

Estimado:

Tengo una laguna, el control recibe perfectamente los datos, ahora cuando
quiero enviar la Central Telefónica no responde.

MsComm tiene SThreshold=0

Entonces, debo modifcarlos para que pueda iniciar la transmisión de datos?

Es decir que para:

Cadena1=Chr(20) && Ctrl+T
Cadena2="Cha-berum;stn,111,1;"+Chr(13)
Cadena3=Chr(24) && Ctrl+X

* Len(Cadena1)=1
* Len(Cadena2)!
* Len(Cadena3)=1

Debo hacer:

ThisForm.MsComm.SThreshold=1
ThisForm.MsComm.Output=Cadena1
ThisForm.MsComm.SThreshold!
ThisForm.MsComm.Output=Cadena2
ThisForm.MsComm.SThreshold=1
ThisForm.MsComm.Output=Cadena3

??????

Agredecería me respondas urgente o a mi correo

Gracias de antemano

Sergio



PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway