Eliminar caracteres extraños obtenidos por puerto serie

[[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

[mario2000]

Hola egostar, siento dicentir un poco con eso, pero el manual dice comport lo dice.

ahora viejo el no deberia recivir caracteres extraños si en otro programa no le salen por que en el de el iban a salir, es mas le voy a hacer un ejemplo y se los subo, yo no soy experto es lo que mas me gustaria pero asi es como siempre lo he hecho y funciona perfectamente

[[egostar]]

Empezado por mario2000

Hola egostar, siento dicentir un poco con eso, pero el manual dice comport lo dice.

ahora viejo el no deberia recivir caracteres extraños si en otro programa no le salen por que en el de el iban a salir, es mas le voy a hacer un ejemplo y se los subo, yo no soy experto es lo que mas me gustaria pero asi es como siempre lo he hecho y funciona perfectamente

Hola,

Podriamos debartirlo, pero es muy claro, te explico, cuando tu lees datos del puerto serial tienes dos alternativas, que uses el evento OnRxChar (que es el evento que nos ocupa en este caso) o desde cualquier punto de tu programa, por ejemplo en un botón.

Si usas el evento onRxChar del ComPort debes de leer en base a los caracteres recibidos, que para eso es el parámetro Count.

Código Delphi [-]
procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var
  Str: String;
begin
  ComPort1.ReadStr(Str, Count);
end;

Si lees por ejemplo al presionar un boton, entonces si, puedes indicar cuantos caracteres quieres leer.

Código Delphi [-]
Procedure LeePuerto;
var
  Str: String;
begin
  ComPort1.ReadStr(Str, 127);
end;

Y si tienes alguna duda, lee bien el manual del ComPort, en especifico la sección Reading from port

Salud OS

[mario2000]

Bueno egostar tu sabes mas que yo, debes tener razon. , yo tambien reviso a ver lo que tu dices y gracias por las aclaraciones

[JoseFco]

Empezado por mario2000

Hola egostar, siento dicentir un poco con eso, pero el manual dice comport lo dice.

ahora viejo el no deberia recivir caracteres extraños si en otro programa no le salen por que en el de el iban a salir, es mas le voy a hacer un ejemplo y se los subo, yo no soy experto es lo que mas me gustaria pero asi es como siempre lo he hecho y funciona perfectamente

Sigo esperando el ejemplo amigo.


Un Saludo.

PD:En el Hyperterminal terminal no sale porque tiene un filtro para no mostrarlo.(elimina ese caracter)

[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,

[Sr.Scorpion]

Empezado por Delphius

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,

Lo q me dices fue lo primero q hice le di F1 a la funcion y me sale un ReplaceText con parametros totalmente diferentes. OJO estoy usando Delphi 6

Saludos

[[egostar]]

Empezado por Sr.Scorpion

Lo q me dices fue lo primero q hice le di F1 a la funcion y me sale un ReplaceText con parametros totalmente diferentes. OJO estoy usando Delphi 6

Saludos

Hola,

Tienes razón no es ReplaceStr() es StringReplace()

Código Delphi [-]
type
  TReplaceFlags = set of (rfReplaceAll, rfIgnoreCase);

function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;

Salud OS

[[Lepe]]

gracias amigos, ya nos habéis sacado del apuro.

Nunca acierto con el nombre de esa rutina, es mi talón de aquiles... (y la vejez que no perdona ).

Saludos

[Sr.Scorpion]

Empezado por egostar

Hola,

Tienes razón no es ReplaceStr() es StringReplace()

Código Delphi [-]type TReplaceFlags = set of (rfReplaceAll, rfIgnoreCase); function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;


Salud OS

Disculpen mi ignorancia con esta funcion.... alguien puede postear un ejemplo de esta funcion... algo tengo q estar haciendo mal, q no hay manera q me compile el Delphi

Saludos

[[maeyanes]]

Hola...

¿Te da algún error? ¿Cuál? Ponlo aquí para que te podamos ayudar mejor...



Saludos...