problema com codigo de barras

Question

pessoal, eu preciso receber um codigo de barras em determinado arquivo.. eu o recebi dessa forma:<wnnWNnNnwWnnWWnnnWWnnnWWnwNnNwWnNnwwwNnNWnwnNnnWNwwwNNnwNNwnnwNNwnnWWnNnwwNnnWWnnNwWnNwnnWNwnnWnwNW...

Aroldo Zanela · Answer

[quote:fa19593790=�Uiratan Cavalcante�]pessoal, eu preciso receber um codigo de barras em determinado arquivo.. eu o recebi dessa forma:
<wnnWNnNnwWnnWWnnnWWnnnWWnwNnNwWnNnwwwNnNWnwnNnnWNwwwNNnwNNwnnwNNwnnWWnNnwwNnnWWnnNwWnNwnnWNwnnWnwNWnnwWNnwnWNn>

como fazer para ler esse campo?[/quote:fa19593790]
Caro Ubiratan,

Tenho a impress�o que sua leitura n�o est� configurada para o tipo de c�digo de barras que voc� est� tentando ler. Verifique no manual e fa�a a configura��o correta.

Uiratan Cavalcante · Answer

aroldo.. nao eh minha leitura.. eu recebo um arquivo formatado.. leio-o e alimento uma base de dados.. oq eu recebo pelo arquivo esta dessa forma.. ele ja vem assim, queria saber se alguem ja teve experiencia com esse tipo de campo...

Aroldo Zanela · Answer

Lamento, � a primeira vez que vejo isso....

Anonymous · Answer

Esta string � para formata��o da barraAcho que este campo identifica a largura de cada barra:W (barra branca larga)w (barra branca fina)N (barra preto larga)n (barra preta fina)Uso algo semelhante para montar um c�digo de barras em ASP.Geralmente tenho um arquivos (w.gif ,W.gif, N.gif, n.gif), com esta string basta mostrar os arquivos na sequencia da string....

Flavio Sanches · Answer

Eu tinha um Programalista que trabalhava aqui e que era maluco!
O cara desenvolveu um componente c�digo de barras baseado em canvas que usava esse mesmo padrao. Funciona exatamente como o colega disse W = branca larga, w = branca fina, etc...
Quando assumi o posto do cara, que foi mandado embora, tive que dar manuten��o no c�digo desse tro�o. Sofri um monte at� entender o mecanismo e at� hoje ainda n�o rolou. O que eu fiz? Simplesmente baixei um barcode (free) na net e refiz alguns relat�rios e pronto... Parei de sofrer.
Tente fazer o mesmo...

um Abra�o

Uiratan Cavalcante · Answer

�, bom saber q nao � somente eu quem passa por aperreios :))
Bem, 1o, Flavio, a questao eh que eu recebo isso de um arquivo texto.. ou seja.. nao depende de mim.. no caso, a op�ao do veloso seria mais interessante para mim, voce poderia me mandar um exempo doq vc faz.. junto com esses gifs.. e doq eu precisaria fazer?

Voces nao sabem se existe uma fonte pra isso?

bem.. agrade�o a ajuda e espero uma resposta, abra�os

Uiratan Cavalcante · Answer

Esqueci de uma coisa.. isso � para se fazer um boleto de pagamento no banco do brasil.. e o padrao eh o 2/5 intercalado certo?
Logo, veloso, essas barras q voce mencionou.. elas resolveriam meu problema?

PS: Flavio cara.. voces ai no rio come�am o carnaval cedo hein.. eu dependia de uns caras dai pra me falarem sobre esse assunto, pois eles q mandam o arquivo.. mas os caras desde ontem ja tao de folga! vida mansa.. =))

Anonymous · Answer

N�s aqui da Prefeitura trabalhamos no s�bado de carnaval at� as 18:00 e na quarta tb.Lamento n�o poder ajudar......

Adilsond · Answer

Eu j� desenvolvi um programa para gerar boletos banc�rios onde eu gerava as informa��es em arquivo texto e depois enviava-o para uma outra empresa gerar os boletos. Para tranformar o c�digo em:
<wnnWNnNnwWnnWWnnnWWnnnWWnwNnNwWnNnwwwNnNWnwnNnnWNwwwNNnwNNwnnwNNwnnWWnNnwwNnnWWnnNwWnNwnnWNwnnWnwNWnnwWNnwnWNn> eu pego os numeros em pares, gero os seus respectivos binarios e dai criava os WwNn�s. Isto serve para ser usado com fontes de c�digo de barra. Para testar basta colocar um label, defina sua fonte como a fonte de c�digo de barra(na web voce encontra) e coloque os WwNn�s na text.

Abaixo vai alguns fragmentos do c�digo:

const
BarraBin: array[0..9] of String[5] = (�00110�, �10001�, �01001�, �11000�,
�00101�, �10100�, �01100�, �00011�,
�10010�, �01010�);

S = string com o c�digo num�rico

Voce pega os n�meros em pares:

for Indice1 := 1 to 22 do
begin
NrBin1 := BarraBin[StrToInt(S[Posicao])];
NrBin2 := BarraBin[StrToInt(S[Posicao + 1])];

for Indice2 := 1 to 5 do
begin
if NrBin1[Indice2] = �0� then
begin
if NrBin2[Indice2] = �0� then
Mascara[Indice2] := �n�
else
Mascara[Indice2] := �N�;
end
else
begin
if NrBin2[Indice2] = �0� then
Mascara[Indice2] := �w�
else
Mascara[Indice2] := �W�;
end;
end;
end;

Com isto voce pode desenvolver uma rotina para converter para num�rico novamente.