Leer el puerto serial de un conmutador KX-TA308 con tpapro

[[egostar]]

Empezado por richy08

Buenas tardes compañeros despues de leer los manuales y algunos post del foro sigo sin poder leer el puerto serial del conmutador estoy utilizando el ApdDataPacket por que segun es el que en otros post es el mas recomendable ya revise la info del conmutador y a l oque parece solo tiene cadena de inicio que es CR+LF Pero no entiendo como pasarle ese parametro al componente y los mas complicado com estar capturando los paquetes queme manda el conmutador y dividirlos en campos legibles cualquiera que tenga una idea muchas gracias de antemano.

Hola

Hay varias formas

1. Usar un ApdDataPacket configurando

• la propiedad EndString con los caracteres CR y LF
• la propiedad StartCond con el valor scAnyData
• la propiedad endCond ecString = True

Usas el evento OnStringPacket para recibir la cadena desde la variable Data del mismo evento.

2. Usar los eventos OnTriggerAvail y OnTriggerData del componente ApdComPort.

Busca en el manual del componente el uso de estos eventos, en realidad es muy fácil.

Salud OS

PD, Cuando hagas referencia a un hilo anterior y la pregunta sea sobre la misma situación, lo adecuado es continuar con el hilo en lugar de crear uno nuevo.

[richy08]

ok gracias por responder le echare otra machetiada al manual haber si ya se me ilumina la cabeza , otra duda como escribiria CR y LF asi tal cual ??

[donald shimoda]

Empezado por richy08

ok gracias por responder le echare otra machetiada al manual haber si ya se me ilumina la cabeza , otra duda como escribiria CR y LF asi tal cual ??

loquesea+#13+#10 (de memoria, prueba a la inversa si eso no camina).

Ah, y prueba synaserial, me parece que de las librerias seriales es la mas estable aunque tengas que hacerla multitarea a mano.

Saludos

[richy08]

muchas gracias donald lo probare a ver que tal

[[egostar]]

Empezado por donald shimoda

loquesea+#13+#10 (de memoria, prueba a la inversa si eso no camina).

Ah, y prueba synaserial, me parece que de las librerias seriales es la mas estable aunque tengas que hacerla multitarea a mano.

Saludos

Seria bueno que colocaras el enlace a ese componente que mencionas, siempre es bueno conocer cosas mas estables aunque se tengan que hacer cosas a mano .

Salud OS

[[FGarcia]]

¿cosas a mano? ¿ese no seria un hilo pa'la taberna?

[[egostar]]

Empezado por FGarcia

¿cosas a mano? ¿ese no seria un hilo pa'la taberna?

jejeje, pues en que estas pensando amigo [FGarcia]

Salud OS

[donald shimoda]

Empezado por egostar

Seria bueno que colocaras el enlace a ese componente que mencionas, siempre es bueno conocer cosas mas estables aunque se tengan que hacer cosas a mano .
Salud OS

Por supuesto amigo, es la web de synapse , la librería se llama synaser y se puede descargar aqui .

Digo librería porque no es un componente, es decir que no podemos pegarlo en un formulario. Hay que utilizarlo a la Turbo pascal, para que se entienda.

Aunque eso puede que asuste les garantizo que es un placer utilizarlo.

Saludo.

[[egostar]]

Empezado por donald shimoda

Por supuesto amigo, es la web de synapse , la librería se llama synaser y se puede descargar aqui .

Digo librería porque no es un componente, es decir que no podemos pegarlo en un formulario. Hay que utilizarlo a la Turbo pascal, para que se entienda.

Aunque eso puede que asuste les garantizo que es un placer utilizarlo.

Saludo.

Ah muy bien, alguna vez use una biblioteca llamada WSC que compre ya hace muchos años, me imagino que es algo similar, ya le daré una vista a ver que tal.

Salud OS

[richy08]

buenos dias sigo intentando leer las cadenas del puerto serial pero no lo logro hacer se que ahi conexion por que con un ejemplo que trae si lee lo que el conmutador manda, estoy utilizando un ApdComPort1 que lo configure de igual forma que el ejemplo, y un ApdComPort1 que le puse los parametros que me indicaron pero nada intento imprimir los datos recuperandolos de la variable DATA alguna sugerencia gracias.

Código Delphi [-]
procedure TForm1.ApdDataPacket1StringPacket(Sender: TObject; Data: String);
begin
showmessage(data);
end;