Componente de codigo de barras EAN para ligarlo a una base de datos
 

Hola amigos, hace unos años en una versión antigua de delphi usaba un componente que te permitía poner en un quickreport un codigo de barras ligado a una base de datos, hoy no recuerdo como se llama, ojalá alguien me pueda ayudar a recordarlo o darme alguna otra opción para poder salir de este lío. Saludos.

Por cierto, el componente del cual les hablo permitía varios tipos de EAN.

Creo que no se entiende.

Estimado fherwashere:

El componente que señalas puede ser 2D Barcode VCL Component que lo puedes obtener en este link
Es de pago y yo al menos no conozco otro que sea gratuito.
Saludos

Mas bien necesitas una fuenta de código de barras, la cual es independiente de tu reporte. En este caso usas EAN la cual lleva un dígito de verificación que hay que calgular antes de ponerlo en el QReport. Los componentes lo que hacen es generarlo en automático pero dicha generación no es la gran ciencia...

El componente que buscas se llamaba AsBarCode, en concreto el que usabas en el Quickreport era el Tqrasbarcode y se sacaba de la pagina de torry.net, he ido a mirar y parece que ya no está en la web. Yo aún lo tengo por aquí y en su momento era un componente gratuito pero no sé si las normas del foro me permiten ponerlo en el ftp.

¿Algún admin me dice si puedo ponerselo al compañero?

Por cierto, si lo que buscas es solo la función para calcular el dígito de control de un EAN13 (12+1), tengo una función propia para hacerlo.

Código Delphi [-]
function DigitControl(EAN : String) : Integer;
var
        Sum1 : integer;
        Sum2 : integer;
        PrimerDecimal : integer;
        A : String;
        B : BOOLEAN;
begin
        if Length(EAN) <> 12 then
                begin
                        Result := -1;
                        exit;
                end;
        SUM1 := STRTOINT(COPY(EAN, 2, 1)) +STRTOINT(COPY(EAN, 4, 1))+STRTOINT(COPY(EAN, 6, 1))+STRTOINT(COPY(EAN, 8, 1))+STRTOINT(COPY(EAN, 10, 1))+STRTOINT(COPY(EAN, 12, 1));
        SUM1 := SUM1 * 3;
        SUM2 := STRTOINT(COPY(EAN, 1, 1)) +STRTOINT(COPY(EAN, 3, 1))+STRTOINT(COPY(EAN, 5, 1))+STRTOINT(COPY(EAN, 7, 1))+STRTOINT(COPY(EAN, 9, 1))+STRTOINT(COPY(EAN, 11, 1));
        SUM1 := SUM1 + SUM2;
        PRIMERDECIMAL := SUM1;
        B := FALSE;

        REPEAT
                A := INTTOSTR(PRIMERDECIMAL);
                A := COPY(A, LENGTH(A) , 1);
                IF A = '0' THEN
                        BEGIN
                        B := TRUE;
                        END
                ELSE
                        BEGIN
                        B := FALSE;
                        END;
                IF B = FALSE THEN
                        PRIMERDECIMAL := PRIMERDECIMAL +1;
        UNTIL B = TRUE;
        RESULT := PRIMERDECIMAL - SUM1;
end;

Con una fuente TTF EAN y el código del champy consigues lo que necesitas.

Si asi es, era gratuito y ya no lo encuentro.

Y si no requeria ciencia, solo poner el simbolo en el qreport y asignarle la tabla y el campo y listo... Ojala y si pudieras ponerme el ftp, de todos modos voy a intentar con las otras opciones que me han dado... Mil gracias amigos.

es cierto quise decir ligado al campo de una tabla

Hola,
en el foro tienes muchos hilos referentes a este tema.

Necesitas la rutina que te calcule el código de control y una fuente de código de barras.

http://clubdelphi.com/foros/showthre...=codigo+barras

Prueba y escribe las dudas que tengas.

Saludos