Lector Codigo de Barra

[mjjj]

Hola gente del foro, una preguntita.

Tengo un lector de codigo de barra que funciona como un teclado.
Necesito desarrollar un software que pueda detectar "en cualquier momento" la entrada de datos desde el lector de CB, y asignarlo a una variable de string publica.


Como puedo detectar la entrada de datos desde el lector, si este funciona como un teclado, y luego de copiar el texto emula un enter en el teclado.

Será que podré detectar el boton enter?

Bueno, espero que me puedan ayudar.

Gracias

[cecam]

Nosotros tambien usamos lectores de codigo de barras (Metrologic) y estos se pueden programar añadiendo prefijos y sufijos para que simulen la pulsación de teclas . . .

En nuestro caso, simulamos que antes de hacer el envio de caracteres envie un F1 . . .

Mirate el manual . . .

No obstante depende de lo que quieras detectar/hacer.

Saludos!

[mjjj]

ya lo tengo solucionado,

lo que me ocurre ahora, es que el codigo de barra tiene algunos guiones entre sus caracteres, el problema es que el guion (-), me lo detecta como una comilla ('), por lo tanto por codigo, quiero reemplazar la comilla por un guion.

el problema es que la funcion stringreplace, pone entre comillas lo que quiero cambio...

quedaria algo asi.

Código Delphi [-]
StringReplace(SEDIT2.TEXT,''','-',[]);

como puedo hacer esto?

[cecam]

En vez de stringreplace, usamos una funcion propia

function StrTran( const cText, cOrigen, cDesti:string ):string;
var
   nPos:Integer;
begin
  Result := cText;
  if cOrigen<>cDesti then
  begin
      nPos:=Pos(cOrigen, Result);
      while (nPos>0) do
      begin
        Result := Copy( Result, 1, (nPos-1))+cDesti+Copy( Result, nPos+Length(cOrigen), Length(Result) );
        nPos:=Pos(cOrigen, Result);
      end;
  end;
end;

Saludos!!

[anubis]

Bueno, algo estuve viendo sobre los codigo de barras.
Parece que en el lector se puede configurar con diferents paquetes de codigos (creo que se llaman asi) los ansi. Si eso no entra dentro de lo posible, tambien en delphi en vez de reemplazar codigo ascii podrias usar su valor numerico, nose si esto te funcionaria.

editado:sorry, me adelante, olvida lo que dije, mejor la solucion de cecam

[cocute]

Empezado por mjjj

ya lo tengo solucionado,

lo que me ocurre ahora, es que el codigo de barra tiene algunos guiones entre sus caracteres, el problema es que el guion (-), me lo detecta como una comilla ('), por lo tanto por codigo, quiero reemplazar la comilla por un guion.

el problema es que la funcion stringreplace, pone entre comillas lo que quiero cambio...

quedaria algo asi.

Código Delphi [-]
StringReplace(SEDIT2.TEXT,''','-',[]);

como puedo hacer esto?

aunque no vayas a usar esto para que lo sepas para otra vez en esos casos tienes que poner la comilla dos veces osea:

Código PHP:

StringReplace(SEDIT2.TEXT,'''','-',[]); 


[mjjj]

la idea de la doble comilla no resulta, les voy a poner un ejemplo.

Lo que tengo es: CO'611'892'AF
Necesito: CO-611-892-AF

El la funcionen que ponen, que significan las distintas variables.
Me servirá la función?

Gracias

[rgstuamigo]

Empezado por mjjj

la idea de la doble comilla no resulta, les voy a poner un ejemplo.

Lo que tengo es: CO'611'892'AF
Necesito: CO-611-892-AF

Gracias

Pues haslo asi:

Código Delphi [-]
Resultado:=StringReplace(Edit1.Text,'''','-',[rfReplaceAll]);

O asi tambien

Código Delphi [-]
Resultado:=StringReplace(Edit1.Text,chr(39),'-',[rfReplaceAll]);

Saludos...