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

[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;