Eliminar caracteres extraños obtenidos por puerto serie

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

[[egostar]]

Empezado por maeyanes

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

Hola

Código Delphi [-]
procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
var
  cadena: string;
begin
  ComPort.ReadStr(cadena, Count);
  cadena := StringReplace(cadena, #13, '', [rfReplaceAll]);
  ShowMessage(cadena);
  Memo.Text := Memo.Text + cadena;
end;

Salud OS

[[maeyanes]]

Hola...

Solo que te confundiste al hacer el quote...


Saludos...

[Sr.Scorpion]

Probe tu sentencia y me dice Incompatibles types.... no creo q esa sea la solucion.... hay algo q tener hecho mal cuando declaro Flags o algo por el estilo

Saludos

[Sr.Scorpion]

Empezado por egostar

Hola

Código Delphi [-]procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer); var cadena: string; begin ComPort.ReadStr(cadena, Count); cadena := StringReplace(cadena, #13, '', [rfReplaceAll]); ShowMessage(cadena); Memo.Text := Memo.Text + cadena; end;


Salud OS

Código Delphi [-]
cadena := StringReplace(cadena, #13, '', [rfReplaceAll]);

Incompatible types de nuevo

[[Delphius]]

Empezado por Sr.Scorpion

Código Delphi [-]cadena := StringReplace(cadena, #13, '', [rfReplaceAll]);

Incompatible types de nuevo

Hola Sr.Scorpion,
Si leyeras un poco la ayuda sobre StringReplace sabrías que el error es bastante sencillo de resolver: le faltan las comillas simples a #13. Es decir que es: '#13'.

Mayenaes unos post antes lo ha comentado.

Saludos,

[Sr.Scorpion]

Empezado por Delphius

Hola Sr.Scorpion,
Si leyeras un poco la ayuda sobre StringReplace sabrías que el error es bastante sencillo de resolver: le faltan las comillas simples a #13. Es decir que es: '#13'.

Mayenaes unos post antes lo ha comentado.

Saludos,

Hola Delphius

Si tu tambien leyeras un poco.... al principio del post mi sentencia era '#13' y me daba el mismo error (Incompatible types) segun los consejos de los miembros de este forums me dijeron q eliminara las comillas, cosa q hice y me sigue saliendo el mismo por eso lo he ido poniendo como ellos me lo han dicho

Saludos

[[maeyanes]]

Empezado por Delphius

Hola Sr.Scorpion,
Si leyeras un poco la ayuda sobre StringReplace sabrías que el error es bastante sencillo de resolver: le faltan las comillas simples a #13. Es decir que es: '#13'.

Mayenaes unos post antes lo ha comentado.

Saludos,

Hola...

Delphius, lo que yo hice fue corregirle de: '#13' a #13, o sea, le quité las comillas simples a su código...

Ahora, esto al menos a mi me compila bien, no se por que razón al compañero le da ese error...

Tal vez podría hacer algo como:

Código Delphi [-]
var
  CharToReplace: string;
  Cadena: string;

begin
  CharToReplace := #13;
  Cadena := StringReplace(cadena, CharToReplace, '', [rfReplaceAll]);
end;

Saludos...

[[Delphius]]

Es verdad, tienen razón.
Disculpa mi reacción Sr.Scorpion, no debí reacción asi.

A mi también me resulta raro que arroje un error allí.

Saludos,

[JoseFco]

Empezado por Delphius

Hola Sr.Scorpion,
Si leyeras un poco la ayuda sobre StringReplace sabrías que el error es bastante sencillo de resolver: le faltan las comillas simples a #13. Es decir que es: '#13'.

Mayenaes unos post antes lo ha comentado.

Saludos,

Código Delphi [-]
cadena := StringReplace(cadena, '#13', ' ', [rfReplaceAll]); 

No les parece que despues de (cadena, #13, lo que debe ir es '' y no esto".Ojo que puede ser ese el problema. ' ' eso es lo que va no esto ".

Un Saludo.

[Sr.Scorpion]

Hola JoseFco para serte sincero no creo q ese sea el problema. Para mi ' ' es lo mismo q '', al final es una string, aqui pienso q el verdadero dolor de cabeza esta en el ultimo parametro, q no se pq diablos q me dice q son de tipos incompatibles. No obstante sigo a la espera de los gurus de este foro... a ver q dicen.

Saludos

[[maeyanes]]

Hola...

El último parámetro no tiene nada que ver, ahí espera un conjunto y eso es lo que le estás enviando...

Podrías hacerlo de otra forma si quieres:

Código Delphi [-]
var
  CharToReplace: string;
  Cadena: string;
  Flags: TReplaceFlags;

begin
  CharToReplace := #13;
  Flags := [rfReplaceAll];
  Cadena := StringReplace(cadena, CharToReplace, '', Flags);
end;

Pero para el caso es lo mismo...


Saludos...

[[Lepe]]

Creo que alguna directiva de compilación está haciendo de las suyas. Acabo de probar de ambas formas en delphi 6.

Código Delphi [-]
var
  Cadena, str: string;
begin
  str := 'mio mio '+ #13 + 'mio';
  Cadena := StringReplace(str, '#13','', []);
  ShowMessage (cadena);
end;

Esto compila pero no funciona , En el showmessage se ve la cadena partida por el salto de linea.

Esto es lo que funciona correctamente:

Código Delphi [-]
var
  Cadena, str: string;
begin
  str := 'mio mio '+ #13 + 'mio';
  Cadena := StringReplace(str, #13,'', []);
  ShowMessage (cadena);
end;

Es decir, sin las comillas simples.

Al menos yo, en Project -> options -> compiler -> syntax options, tengo todo marcado excepto "complete boolean eval" y "@ typed operand".

Sin duda, algo se nos escapa cuando no le funciona.

Saludos.

[JoseFco]

Empezado por Sr.Scorpion

Hola JoseFco para serte sincero no creo q ese sea el problema. Para mi ' ' es lo mismo q '', al final es una string, aqui pienso q el verdadero dolor de cabeza esta en el ultimo parametro, q no se pq diablos q me dice q son de tipos incompatibles. No obstante sigo a la espera de los gurus de este foro... a ver q dicen.

Saludos

Bueno tengan en cuenta que soy novato en esto, pero esto " = Shift+" y esto '' son dos ' ' .No estoy en mi pc asi que no tengo Delphi para poder comprobar si es lo mismo.

Un Salud.

[Sr.Scorpion]

Fin del asunto... muchas a todos en especial a Lepe

Como decia el gran Lepe

Código Delphi [-]
str:= StringReplace(Cadena, #13, '',[]);

Pero realmente si lo que quieres es eliminar los caracteres de los q habia hablado desde el principio tienes q poner #$13, por lo q la sentencia quedaria asi

Código Delphi [-]
str:= StringReplace(Cadena, #$13, '',[rfReplaceAll]);

Gracias una vez mas