ActiveDelphi

[joemil]

ola pessoal,

pesquisei no forum, mas nao encontrei.

alg conhece algum componente para impressao de QR-Code?

tenho q fazer a impressao das NFS-e pra algumas cidades, mas 2 delas possuem esse codigo.

apesar q ainda temos q pedir autorizacao para a impressao, ja quero adiantar meu servico hehehe
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/

[rzzanatta]

Olá, dá uma olhada nesse post, q ele me ajudou bastante:
http://www.activedelphi.com.br/modules.php?op=modload&name=News&file=article&sid=1293

aí para eu imprimir, nao achei nenhum componete pra qrcode, mas eu fiz uma chuncha, e mandei ele pro fastreports como imagem , e ele imprimiu direito.... nesse codigo eu usei um memorydata pra armazenar o campo imagem com a imagem gerada na procedure de montar o QRCode, e mando para o FastReport como imagem mesmo.
no botao imprimir eu fiz esse codigo:
procedure TFrmMain.Button1Click(Sender: TObject);
var
ImageStream : TMemoryStream;
PngImage : TPngImage;
Relatorio : String;
begin
Image1.Picture:=nil;
ImageStream:=TMemoryStream.Create;
PngImage :=TPngImage.Create;
try
try
//aqui eu chamo a procedure que gera o QRCode que está no link acima
GetQrCode(StrToInt(Trim(EditWidth.Text)),StrToInt(Trim(EditHeight.Text)),TQrImage_ErrCorrLevel(ComboBoxErrCorrLevel.ItemIndex),MemoData.Lines.Text,ImageStream);
if ImageStream.Size>0 then
begin
ImageStream.Position:=0;
PngImage.LoadFromStream(ImageStream);
mdQRCode.Open;
mdQRCode.Insert;
mdQRCodeimagem.Assign(PngImage);
Relatorio := 'C:\Delphi Teste\QRCode\QRCodeRel.fr3';

frxReport1.LoadFromFile(Relatorio);
frxReport1.ShowReport();
mdQRCode.Close;
end;
except
on E: exception do
ShowMessage(E.Message);
end;
finally
ImageStream.Free;
PngImage.Free;
end;

end;
bom, espero ter te ajudado....
e uma pergunta, como vc faz pra ler o QRCode? nao achei nada na net pra ser usado no delphi, agradeceria se vc pudesse me passar...
obrigado...

[joemil]

tb nao sei como faz pra ler, to querendo isso por causa das notas eletronicas de servico, em algumas cidades tem o QRCode.

so vi leitores disso em celulares
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/

[Borland_Linuxer]

Eu encontrei os seguintes componente

Eu também vou precisar disso para a nfce.

Acabei de achar uma solução free não open source e sem fonte.
http://www.han-soft.com/barcode2d.php

Vou testar essa solução também ele suporta:
O Relatório Rápido, FastReport, ReportBuilder, Repórter ACE são suportados.
O Delphi 4, 5, 6, 7, 2005, 2006, 2007, 2009, 2010, XE, XE2 e C + + Builder 4, 5, 6, 2006, 2007, 2009, 2010, XE, XE2 são suportados

Eu utilizo o danfe em Fast Report da NFe e a unica solução que eu encontrei que ja testei que funciona e o barcode studio 2011, que tem suporte para:

Direct draw via TCanvas
Report Builder
Rave report
Fast report
ACE reporter
Quick report


abraços
_________________
Abraços

Sérgio Guedes
www.lsisistemas.com.br
www.scvarejo.com.br - Projetos para parceiros e desenvolvedores