Eliminar caracteres extraños obtenidos por puerto serie

[Sr.Scorpion]

Hola

Uso Delphi 6.0 y el componente ComPort, estoy adquiriendo datos de una pizarra telefonica y los pongo en un memo pero me salen caracteres extraños como un palito bien negro... caracter q no salia cuando capturaba la informacion por el Hyperterminal alguien me puede decir como eliminar eso ?

Saludos de antemano

[[egostar]]

Empezado por Sr.Scorpion

Hola

Uso Delphi 6.0 y el componente ComPort, estoy adquiriendo datos de una pizarra telefonica y los pongo en un memo pero me salen caracteres extraños como un palito bien negro... caracter q no salia cuando capturaba la informacion por el Hyperterminal alguien me puede decir como eliminar eso ?

Saludos de antemano

Hola,

Así sin ver, me podria aventurar que son caracteres de control que van desde el Null (ASCII 0) hasta el US (ASCII 31), si colocas el código con el cual estas recibiendo datos, te podriamos ayudar mejor.

Salud OS

[mario2000]

probablemente es la velocidad con la que envias los datos.
yo siempre coloco este codigo y me sale todo bien:

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var
dato:string;
begin
comport1.Readstr(dato,3);
memo1.Lines.Text:=memo1.Lines.Text+dato;
end;

tienes que seleccionar el evento rxchar y lo pones asi como te dije veras que si funciona si quieres te envio uno que tengo armado y funcionando

[JoseFco]

Empezado por Sr.Scorpion

Hola

Uso Delphi 6.0 y el componente ComPort, estoy adquiriendo datos de una pizarra telefonica y los pongo en un memo pero me salen caracteres extraños como un palito bien negro... caracter q no salia cuando capturaba la informacion por el Hyperterminal alguien me puede decir como eliminar eso ?

Saludos de antemano

Pon el codigo a ver que se le encuentra.

Un Saludo.

[Sr.Scorpion]

Los caracteres en rojo son los q me salen, si hago un ShowMessage con el Texto q se lee desde el puerto me sale como un simbolo de un cuadrito.

10/20/08 10:46AM 219 01 2047564219 00:00'15 1771
10/20/08 10:46AM 222 01 8811345 00:02'30 6416

El codigo q utilizo es este:

Código Delphi [-]
procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
var
str: string;
begin
ComPort.ReadStr(Str, Count);
ShowMessage(Str);
Memo.Text := Memo.Text + Str;
end;

Saludos y gracias

[[Lepe]]

A mí lo que me gustaría saber es ¿cómo has puesto ese caracter en el foro?

En serio, parece que pone 0013... y 13 es el símbolo ASCII de retorno de línea, en windows es muy común el caracter 10 seguido del 13 que viene a significar retorno de carro y retorno de linea. Su representación:
- en delphi str := #10#13;
- En hexadecimal $A$D
- En C y en otros lenguajes se suelen usar constantes CR (Carry Return) y LF (Line Feed??)

para eliminarlos podrías usar cualquier función de delphi:

Código Delphi [-]
 str := ReplaceStr(lacadena, #13, ' ', [rfReplaceAll]);

Espero sea eso. Saludos

[mario2000]

Hola en count tienes que poner un entero pequeño de 1 a 10 es la cantidad de caracteres que vas a recivir.

[[egostar]]

Empezado por mario2000

Hola en count tienes que poner un entero pequeño de 1 a 10 es la cantidad de caracteres que vas a recivir.

No no, el parámetro count es precisamente los caracteres recibidos en el puerto, como dice Lepe, deberás de precisar cuales son los caracteres "raros" para que los reemplaces.

Salud OS

[Sr.Scorpion]

Empezado por Lepe

A mí lo que me gustaría saber es ¿cómo has puesto ese caracter en el foro?

En serio, parece que pone 0013... y 13 es el símbolo ASCII de retorno de línea, en windows es muy común el caracter 10 seguido del 13 que viene a significar retorno de carro y retorno de linea. Su representación:
- en delphi str := #10#13;
- En hexadecimal $A$D
- En C y en otros lenguajes se suelen usar constantes CR (Carry Return) y LF (Line Feed??)

para eliminarlos podrías usar cualquier función de delphi:
Código Delphi [-] str := ReplaceStr(lacadena, #13, ' ', [rfReplaceAll]);


Espero sea eso. Saludos

La funcion ReplaceStr es propia de Delphi, API ???? o es una funcion q implementastes tu

Saludos

[[Delphius]]

Empezado por Sr.Scorpion

La funcion ReplaceStr es propia de Delphi, API ???? o es una funcion q implementastes tu

Saludos

Hola Sr.Scorpion,
Esa función ya viene en Delphi. Para saber más sobre la función escribe su nombre, seleccionalo y presiona F1. Debería aparecerte la ayuda sobre dicha función.

Saludos,