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

[[AzidRain]]

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...

[champy]

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;

[[AzidRain]]

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

[fherwashere]

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.