11 replies to this topic

[look]

hola compañeros.
estoy utilizadon del componente COMPORT  para manejar un escaner de codigo de barras por el puerto COM1 , he logrado hacer que lea el codigo y me dande a un edit el codigo de un articulo pero he tenido un efecto extraño que no he podido solucionar, es como que el escaner manda un enter codificado y se ve de esta manera:

como pueden ver al final de la cadena hay un rectangulo, me parece que es el ENTER que hace el escaner al final, como puedo evitar esto?, ya que por ese rectangulo no me localiza el articulo....
este es mas o menos el codigo que utilizo para leer y mandar el texto al edit:

delphi

procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
var
  Str: String;
begin
  ComPort.ReadStr(Str, Count);
  Edit1.Text := Edit1.Text + Str;
end;

espero me puedan ayudar, saludos!

[poliburro]

como pueden ver al final de la cadena hay un rectangulo, me parece que es el ENTER que hace el escaner al final, como puedo evitar esto?

[/code]

espero me puedan ayudar, saludos!

Pues, efectivamente, parece más un código de control ascii que un caracter. Puedes crear una función que se encargue de limpiar el código. Algo como:

delphi

//devuelve solo caracteres que correspondan a números
function DepuraCadena(PsInput: String): String;
Begin
  For I := 1 To Length(PsImput) Do
    If Ord(PsImput[I]) in (48..57) then
        result = result + PsImput[I];
End;

[look]

Gracias amigo, voy a hacer una pruebas ...

[look]

hola tube que modifar algo en funcion quedo de este modo:

delphi

function DepuraCadena(PsInput: String): String;
var I :Integer;
Begin
  For I := 1 To Length(PsInput) Do
    If Ord(PsInput[I]) in [48..57,65..90,97..122] then
        result := result + PsInput[I];
End;

delphi

procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
var
  Str: String;
begin
  ComPort.ReadStr(Str, Count);
  Edit1.Text := Edit1.Text +DepuraCadena(Str);
end;

Gracias amigo por la ayuda!

saludos.

[egostar]

No conozco el COMPORT, el que utilizo es el Async Pro y éste componente cuenta con una propiedad que indica si quieres ver o no los caracteres de inicio y/o fin de cadena, con eso ya no se ven.

La otra es que podrías utilizar la función StringReplace(); para quitar el caracter #13 y/o #10.

Salud OS

[look]

No conozco el COMPORT, el que utilizo es el Async Pro y éste componente cuenta con una propiedad que indica si quieres ver o no los caracteres de inicio y/o fin de cadena, con eso ya no se ven.

La otra es que podrías utilizar la función StringReplace(); para quitar el caracter #13 y/o #10.

Salud OS

No sabia de ese componente, lo probare en otra ocasion, por ahora ya solucione el problema, no habia pensado en el replace, en realidad hay muchas maneras de solucionar esto, una manera tosca de hacerlos tabien es mandar la pulsacion de la tecla backspace al final de la cadena, de este modo eliminara el caracter ese despues de agragar el codigo, pero como dije es una manera tosca de hacerlo, gracias por aportar amigo.

[enecumene]

Quedó resuelto el caso?, recordar asignar el prefijo [RESUELTO] en el primer post .

Saludos.

[look]

Quedó resuelto el caso?, recordar asignar el prefijo [RESUELTO] en el primer post .

Saludos.

a pos, le he buscado y no le encuentro,¿ como le cambio el estado a resuelto?

[eduarcol]

Edita el primer mensaje del hilo y alli al lado del titulo veras la lista desplegable

[egostar]

a pos, le he buscado y no le encuentro,¿ como le cambio el estado a resuelto?

Como dice Eduardo, modificas el primer post de tu tema poniendo el prefijo como [RESUELTO]

Seleccionar
Prefijo : Sin Prefijo

Salud OS

[look]

listo , gracias!

[egostar]

listo , gracias!

Gracias a ti amigo look

Salud OS