Lectura de tramas: <SYN><DLE><STX> ... <DLE><ETX>

[[egostar]]

Empezado por vejerf

Quizás no sea la forma más práctica ni ortodoxa, pero más o menos me funciona

Hola vejerf

Para este tipo de menesteres y desde mi experiencia con la recepción de paquetes de datos a través de puerto serial, te recomiendo que uses el componente TurboPower Async Professional (gracias amigo Al por recomendarmelo hace ya unos años ), el cual tiene dentro de sus particularidades un objeto de nombre ApdDataPacket, a este objeto le asignas una cadena de inicio y una cadena de final por ejemplo:

En las propiedades del Objeto ApdDataPacket

StartString = #22 [SYN] (Aunque yo usaria solo #2 [STX], a menos que requieras por fuerza el [SYN])
EndString = #3 [ETX];

y en código solo requieres hacer esto:

Código Delphi [-]
procedure TLector.ApdDataPacket1StringPacket(Sender: TObject; Data: string);
begin
  ProcesaInformacion(Data); //Data ya tiene todo el paquete de datos que esperas.
end;

Al final, te olvidas de codificar y validar cada vez que recibes un caracter.

Salud OS

[vejerf]

Gracias por tu ayuda Egostar... pero... pero...
El componente que uso es el TVaComm. Este viene junto con otra serie de componentes en un paquete llamado Async32 si no me equivoco. Otro de los componentes que trae es el TVaCapture que funciona como tu dices. Le indicas el comienzo y el fin de trama y cuando detecta ese comienzo y fin produce un evento que tiene como parámetro el contenido del paquete. El problema que me encontré es que el modem que uso devuelve los caracteres hexadecimales y el componente TVaCapture devuelve caracteres ASCII. En principio para algunas cosas me es igual, pero me he dado cuenta de un pequeño fallo. Resulta que el modem devuelve en muchas tramas el valor $00 (carácter NULL) y TVaCapture lo devuelve en el String de datos como un espacio en blanco ($20 si no me equivoco). Entonces esto a veces me lleva a error xq puede que alguna vez sí sea verdaderamente un espacio o a veces sea un NULL. Y estos valores puede que me sean necesarios saber el valor exacto.
No sé si después de todo este palabrerío se me habrá entendido jeje.

De todas formas... muchísimas gracias por el consejo!!!

[[Al González]]

Empezado por vejerf

...El componente que uso es el TVaComm. Este viene junto con otra serie de componentes en un paquete llamado Async32 si no me equivoco. Otro de los componentes que trae es el TVaCapture que funciona como tu dices. Le indicas el comienzo y el fin de trama y cuando detecta ese comienzo y fin produce un evento que tiene como parámetro el contenido del paquete...

Sólo como dato, te comento que usas los mismos componentes que yo utilizaba antes de descubrir los de TurboPower que te sugiere Eliseo, los cuales encontré más potentes y funcionales. Y es bastante problable que con ellos tengas menos problemas.

Saludos.

Al.

[vejerf]

Sólo como dato, te comento que usas los mismos componentes que yo utilizaba antes de descubrir los de TurboPower que te sugiere Eliseo, los cuales encontré más potentes y funcionales. Y es bastante problable que con ellos tengas menos problemas

Pues ante esto sólo me resta rendirme ante la evidencia. Soy un poco reacio a cambiar de componentes cuando ya más o menos sé el comportamiento de cada uno, pero supongo que por echar una ojeada a los que recomendáis no pierdo nada.

Muchas gracias otra vez a los dos!!!

[[egostar]]

Empezado por vejerf

Pues ante esto sólo me resta rendirme ante la evidencia. Soy un poco reacio a cambiar de componentes cuando ya más o menos sé el comportamiento de cada uno, pero supongo que por echar una ojeada a los que recomendáis no pierdo nada.

Muchas gracias otra vez a los dos!!!

Sin saber como funciona tu componente y viendo que no te gusta mucho la idea, te pongo un pequeño código con lo que yo haría, digamos que es el esquema general de la lectura de puertos que normalmente yo realizo, es obvio que puede tener fallos, pero lo que quiero mostrar es que no necesitas tanto código para lo que quieres.

Código Delphi [-]
procedure TSimuladorThorcomForm.PuertoSerieRxChar(Sender: TObject;
  Count: Integer);
var
  I : Integer;
  Dato : Byte;
  Linea,DatoHx : String;
begin
  for I := 1 to count do begin
      Dato := ord(TVaComm1.GetChar); //Suponiendo que exista esa funcion (GetChar)
      DatoHx := IntToHex(Dato);
      case Dato of
           22: begin //Si es SYN, limpio la cadena para ingresar datos nuevos.
                    Linea := '';                             
           end;
           3: begin //Si es ETX, procedo a realizar lo que se tenga que hacer con el paquete de datos
                  Hago_lo_que_Sea(Linea);
           end;
      end;
      Linea := Linea +' '+ DatoHx; //Agrego todos los caracteres que le lleguen al puerto.
  end; 
end;

Salud OS

[vejerf]

Gracias por tomarte la molestia de realizar un código para la lectura del puerto serie. Una pequeña pega que le veo es que la variable linea debería ser global y no local, ya que puede que no lleguen todos los caracteres de la trama en el momento en que se produzca el evento. Quizás llegue en dos veces por lo que la variable se habrá vuelto a inicializar y supongo que no funcionará, no?

Salu2...

[[egostar]]

Empezado por vejerf

Gracias por tomarte la molestia de realizar un código para la lectura del puerto serie. Una pequeña pega que le veo es que la variable linea debería ser global y no local, ya que puede que no lleguen todos los caracteres de la trama en el momento en que se produzca el evento. Quizás llegue en dos veces por lo que la variable se habrá vuelto a inicializar y supongo que no funcionará, no?

Salu2...

Hola

Si y no, ya que al ser una comunicación serial, los caracteres te llegan como su nombre lo indica, de forma serial, uno tras otro, por lo que el conflicto que mencionas no creo que se presente ya que cuando te llega el primer caracter de la siguiente trama, inicializas la variable Linea.

La puse como local para que se viera, pero puedes hacerla global.

Salud OS

[richy08]

Empezado por egostar

Hola vejerf

Para este tipo de menesteres y desde mi experiencia con la recepción de paquetes de datos a través de puerto serial, te recomiendo que uses el componente TurboPower Async Professional (gracias amigo Al por recomendarmelo hace ya unos años ), el cual tiene dentro de sus particularidades un objeto de nombre ApdDataPacket, a este objeto le asignas una cadena de inicio y una cadena de final por ejemplo:

En las propiedades del Objeto ApdDataPacket

StartString = #22 [SYN] (Aunque yo usaria solo #2 [STX], a menos que requieras por fuerza el [SYN])
EndString = #3 [ETX];

y en código solo requieres hacer esto:


Código Delphi [-]
procedure TLector.ApdDataPacket1StringPacket(Sender: TObject; Data: string);
begin
ProcesaInformacion(Data); //Data ya tiene todo el paquete de datos que esperas.
end;





Al final, te olvidas de codificar y validar cada vez que recibes un caracter.

Salud OS

buenos dtardes egostar estoy leyendo el post y me baje el componenet que mencionas lo pienso usar para leer el puerto serial de un conmutador, me podrias proporcionar algun manual de como usarlo mil gracias.

[[egostar]]

Empezado por richy08

buenos dtardes egostar estoy leyendo el post y me baje el componenet que mencionas lo pienso usar para leer el puerto serial de un conmutador, me podrias proporcionar algun manual de como usarlo mil gracias.

Hola richy08

Puedes bajar los archivos de ayuda que tienen disponibles. tpapro_docs

Salud OS

[richy08]

ok gracias les echare un vistazo