Club Builder

[magin]

Hola a todos, bueno escribo este post, porque ya busque en el foro y no encuetro solucion a mi problema. (bueno aqui encontre un codigo pero en c y no lo pude pasar a builder).jejejejeje
bueno el problemas es que no encuentro la manera de generar mi codigo de barras automaticamente,para ser mas explicito, en mi aplicacion cuando le doy de alta a un cliente, le genero su credencial con sus datos personales pero ala vez necesito imprimir el codigo de barras de su codigo de identificacion para poder utilizarla con el lector de codigo de barras, es que sin esto lo tengo que hacer manual desde corel draw.

Agradeceria que alguien me ayudara, o me diera un referencia de como hacerlo.

[Lalo]

Lo que te puedo comentar al respecto es que las impresoras que utilice para imprimir codigos de barras lo hacian solas, solo hay que indicarle con algunas palabras de control que las siguientes lineas las imprima en codigo de barras; ademas se especifica que codigo de barras deseas (hay varios tipos de codigo).
_________________
Saludos.
Lalo.

[jfuentevilla]

FUENTE=BarCode 128

EJEMPLO Code128(1455ASSSA5455);



AnsiString TForm1::Code128(AnsiString Literal)
{

char start,stop;
char *lit;
int checksum,caracter,asc;
AnsiString devuelve;
unsigned char check;

lit = new char[Literal.Length()+1];
strcpy(lit,Literal.c_str());

start = 136;
stop = 138;
checksum = 104;


for(caracter=0;caracter <Literal> 126 || lit[caracter] < 32) lit[caracter] = 32;

checksum = checksum + ((lit[caracter]-32)*(caracter+1));

if(lit[caracter] == 32) lit[caracter] = 232;
}

check = (checksum % 103)+32;
if(check == 127) check = 192;
if(check == 128) check = 193;
devuelve = AnsiString(start)+AnsiString(lit)+AnsiString(char(check))+AnsiString(stop);
delete lit;
return(devuelve);
}

//SI NECESITAS CODIGO DE BARRAS EAN-13 TE ENVIO FUNCION

[magin]

gracias a todos, probare tu funcion de todas formas creo que existe otra formas mas facil simplemente buscando el tipo de letra y asignarle a u edit, label lo que sea
bueno eso es en teoria lo checare y luego platico gracias por responder

[sisabb]

Como no lo efectues como te indican en la función anterior luego no lo podras leer, ademas el resultado lo tienes que imprimir con el font que te indica code128

[zeacarlos100]

bueno yo lo he probado y es muy sencillo, simplemente hay que asignarle a algun componente de texto el font de codigo de barras, los mas usados son code 128, ean29, y no recuerdo otros. ejemplo:

This->Edit1->Font = "nombreFont.ttf";
y listo todo lo que escribas sera codigo de barras.
P.D. esto se lo debo al master Cesar. saludos