GERAR QR CODE OFFLINE

[FABRICIO CERAVOLO PENA]

Alguém experiente pode dar alguma dica de como gerar o QR Code sem estar conectado na internet ?

Estou usando a API do google para gerar o QR Code, preciso de alguma maneira offline para gerar este QR Code...

Ajuda urgente.

[Juliomar Marchetti]

  Em 19/06/2017 at 12:07, FABRICIO CERAVOLO PENA disse:

Alguém experiente pode dar alguma dica de como gerar o QR Code sem estar conectado na internet ?

Estou usando a API do google para gerar o QR Code, preciso de alguma maneira offline para gerar este QR Code...

Ajuda urgente.

Expandir  

Sim o componente que é usado pelo próprio ACBr para gerar!

ele é de terceiros e também existe no Fast Report.

[FABRICIO CERAVOLO PENA]

Pode me dar um exemplo de código para gravar o png no computador ???

[BigWings]

  Em 19/06/2017 at 15:00, FABRICIO CERAVOLO PENA disse:

Pode me dar um exemplo de código para gravar o png no computador ???

Expandir  

Tem no fonte:

procedure TACBrNFeFRClass.PintarQRCode(QRCodeData: String; APict: TPicture);
var
  QRCode: TDelphiZXingQRCode;
  QRCodeBitmap: TBitmap;
  Row, Column: Integer;
begin
  QRCode       := TDelphiZXingQRCode.Create;
  QRCodeBitmap := TBitmap.Create;
  try
    QRCode.Data      := QRCodeData;
    QRCode.Encoding  := qrUTF8NoBOM;
    QRCode.QuietZone := 1;

    //QRCodeBitmap.SetSize(QRCode.Rows, QRCode.Columns);
    QRCodeBitmap.Width  := QRCode.Columns;
    QRCodeBitmap.Height := QRCode.Rows;

    for Row := 0 to QRCode.Rows - 1 do
    begin
      for Column := 0 to QRCode.Columns - 1 do
      begin
        if (QRCode.IsBlack[Row, Column]) then
          QRCodeBitmap.Canvas.Pixels[Column, Row] := clBlack
        else
          QRCodeBitmap.Canvas.Pixels[Column, Row] := clWhite;
      end;
    end;

    APict.Assign(QRCodeBitmap);
  finally
    QRCode.Free;
    QRCodeBitmap.Free;
  end;
end;

 

[FABRICIO CERAVOLO PENA]

Pode explicar melhor como faço uso desta função para gerar um png ?

 

[...]

  Em 20/06/2017 at 11:18, FABRICIO CERAVOLO PENA disse:

Pode explicar melhor como faço uso desta função para gerar um png ?

 

Expandir  

APict: TPicture

Veja nos metodos desse tipo de variavel se não existe algum que salve a mesma em disco
A imagem do qrcode está salvo em APict

[FABRICIO CERAVOLO PENA]

obrigado resolvido