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

[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

[vejerf]

Hola de nuevo,

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.

Esto lo entiendo, pero yo lo que digo es que no tienen por qué llegarte todos los caracteres de una trama de una vez. Es decir si yo envío por ejemplo la siguiente trama por un puerto serie:
<STX>Esto es un ejemplo de una cadena por el puerto serie<ETX>

puede que la primera vez que se genera el evento llegue tan sólo:
<STX>Esto es un ejemplo de una cadena

esto tu lo almacenas en lína y a continuación te llega el resto de trama:
por el puerto serie<ETX>

Esto te llega la segunda vez que se genera el evento por lo que la variable línea se habrá vuelto a inicializar y no tendrá la trama completa por lo que se perdería.

Si no me equivoco este es el comportamiento del puerto serie, aunque para decir la verdad es ahora cuando lo estoy manejando por primera vez. Para evitar que se pierdan tramas lo que usaba yo es un buffer circular.

Un saludo egostar & cia...