Quien sabe programar en delphi

[Gerardo el pequeño]

Como le puedo hacer para leer un codigo de barras en delphi

[JavierB]

Hola Gerardo el pequeño. Bienvenido al foro.

El foro de Bienvenida a Foros del Web es para presentarse y, si quieres, contarnos algo sobre tí. Para preguntas concretas utiliza el foro que mejor se adapte a tu duda.

Muevo tu mensaje al foro de Programación desde Bienvenida a Foros del Web.

Saludos,

[Developer9]

Delphi... je je

Y para que quieres aprender (o estás aprendiendo) a programar en Delphi?

[Pistemas]

Iniciado por Gerardo el pequeño

Como le puedo hacer para leer un codigo de barras en delphi

Primero, deberas de tomar en cuenta que debes de saber cual es la DLL que usa el lector de codigo de barras para poder usarla y de esta manera poder hacer la lectura de la informacion que llegue del codigo de barras.

ya sabiendo bien como trabaja la DLL y el lector, solo sera cuestion de hacer pruebas para ver que delphi opera bien con la DLL en cuestion

[dogduck]

http://www.ajpdsoft.com/modules.php?...rticle&sid=207

Código:

unit UnidadMenuPrincipal;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, shellapi;

type
  TformObtenerDatosEAN = class(TForm)
    txtEAN13: TEdit;
    bObtenerEAN13: TButton;
    Label1: TLabel;
    Label6: TLabel;
    txtNumDigEmpresa: TEdit;
    GroupBox1: TGroupBox;
    txtOrganizacion: TEdit;
    txtEmpresa: TEdit;
    txtProducto: TEdit;
    txtDC: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    LWEB: TLabel;
    procedure bObtenerEAN13Click(Sender: TObject);
    procedure LWEBClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formObtenerDatosEAN: TformObtenerDatosEAN;

implementation

{$R *.dfm}

procedure TformObtenerDatosEAN.bObtenerEAN13Click(Sender: TObject);
var
  ean13 : string;
  numDigEmpresa : Integer;
begin
  numDigEmpresa := StrToInt (txtNumDigEmpresa.text);
  if numDigEmpresa > 8 then
    MessageDlg('El número de dígitos máximo para la empresa es de 8.',
        mtWarning, [mbok], 0)
  else
  begin
    if numDigEmpresa < 5 then
      MessageDlg('El número de dígitos mínimo para la empresa es de 5.',
          mtWarning, [mbok], 0)
    else
    begin
      ean13 := txtEAN13.Text;
      txtOrganizacion.Text := copy (ean13, 1, 2);
      txtEmpresa.Text := copy (ean13, 3, numDigEmpresa);
      txtProducto.Text := copy (ean13, 8, 10 - numDigEmpresa);
      txtDC.Text := copy (ean13, 13, 1);
    end;
  end;
end;

procedure TformObtenerDatosEAN.LWEBClick(Sender: TObject);
begin
  ShellExecute(Handle, Nil, PChar('http://www.ajpdsoft.com'),
      Nil, Nil, SW_SHOWNORMAL);
end;

end.