Trabajar con Scanner de código de barras

[Flecha]

Empezado por jcarteagaf

Hace algun tiempo hice una aplicación en la que necesitaba controlar a un lector USB de tarjetas magneticas (credito, debito), no venia con ningun controlador y pude hacer interface usando el componente JvHidDeviceController de las librerias Jedi. Funciono para mi.

Espero que te sirva

Saludos.

¿Dónde puedo encontrar ese componente y esa librería?
Yo estoy con Delphi 6. ¿Es de algún Delphi superior, o es una librería externa a Delphi?

Muchas gracias.

[[jcarteagaf]]

Las JEDI son un conjunto de Componentes (mas de 300) gratuitos que puedes encontrarlos en su pagina de SourceForge. Constan de los JVCL (que son los componentes) y las JCL que son librerias de codigo. Para poder utilizarlos debes instalar ambos (primero las JCL). Cada uno viene con un install que hace practicamente todo.

Espero que te sirva. Saludos.

[Flecha]

Algo me dice que ya no son gratuitos, o que algo ha cambiado desde que lo utilizaste.
He entrado en el link y después en Download, y esto es lo que me encuentro:


No File Packages Defined

This project has not yet created any file release packages.

[Neeruu]

Hola yo tengo las Jedi dime donde te las puedo mandar!!!!


No se si se puede hacer esto en el foro, sino se puede perdon!!!


Saluda Atte Neeruu

[Flecha]

Empezado por Neeruu

Hola yo tengo las Jedi dime donde te las puedo mandar!!!!


No se si se puede hacer esto en el foro, sino se puede perdon!!!


Saluda Atte Neeruu

No sé si habrá algún problema. Por mi parte, no.
Puedes mandármelo a [email protected]

Muchas gracias.
Ya contaré qué tal me ha ido.

[MaMu]

Yo pienso una posible solución, es hacer un Hook para el teclado, y la única distinción entre el ingreso por teclado por parte del usuario, respecto del enviado por el lector, es la velocidad, claro está, mucho más rápida esta última.
Con respecto a acceder directamente al puerto, (0x060) tiene el conflicto de necesitar establecerse por driver, a nivel del kernel, ya que XP no lo permite de otra forma, y habría que convertir la data binaria al formato que quieras.
Yo particularme prefiero el método mediante un Hook, tipo TKeyboardHook, ya que todos los lectores CCD, tienen la carecterística de definir el caracter terminal, pudiendose utilizar éste para la distinción usuario/lector.
Los lectores que emulan teclado son los más económicos, pero tienen sus limitaciones. Fueron creados con el fin de satisfacer terminales TPV, donde la mayoría de los casos, por no decir todos, siempre tienen un elemento con el foco, como en tu caso, un TEdit.

Saludos

[MaMu]

Porbando lo que decias, a nivel de Puerto, hice este ensayo:

- Colocando 2 Memos en un form, y haciendo uso de esta dll
http://logix4u.net/Legacy_Ports/Para...000/NT/XP.html

Código Delphi [-]
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    procedure Memo1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
function Inp32(wAddr:word):byte; stdcall; external 'inpout32.dll';
function Out32(wAddr:word;bOut:byte):byte; stdcall; external 'inpout32.dll';

{$R *.dfm}
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
var leido:byte;
begin
  leido:=Inp32($060);
  Memo1.Text:=(IntToStr(leido));
  case leido of   //por cada código
    2: begin
          memo2.Text:=memo2.Text+IntToStr(leido-1);
        end;
    3: begin
          memo2.Text:=memo2.Text+IntToStr(leido-1);
        end;
end;
end;
end.

Me resulta bastante incómodo, por 2 razones. Se mezclan flags de la INT33 (mouse) con el Port 0x060 del teclado PS/2, por lo que un simple clic (Flag Dx) altera el curso del Port 0x060, efecto no deseable pero tratable. Y lo más
molesto, es que si cronometrás el evento en cada KeyPress, el envío del scanner CCD equivale a mantener presionada una tecla, es decir tener un KeyDown siempre en true, aunque visualmente no lo parezca, pero las mediciones manda. Voy a seguir viendo o mejor dicho encontrando una forma de distinguir entre Usuario y Scanner CCD, pienso que el quiz está en el Buffer del teclado, Probaste mantener una tecla presionada o presionarla justo en el mismo momento que el scanner envia el dato?

Saludos