Simplificacion de la libreria DelphiZXingQRCodeEx

[andressanchez]

Hola!

Comparto código ligeramente modificado utilizando Delphi 7 y QuickReport 3.0.9.

QRImage1 es el componente TQRImage de QuickReport.

En Delphi 7, El componente TImage no tiene definido el método SetSize

QRCodeBitmap.Picture.Bitmap.SetSize

Código Delphi [-]
procedure TFrepFactura.GenerarCodigoQR;
var
  QRCode: TDelphiZXingQRCode;
  Row, Column: Integer;

begin

  QRCode := TDelphiZXingQRCode.Create;
  try
    QRCode.Data := 'Hola Mundo, Código QR';

    QRCode.Encoding := qrAuto;
    QRCode.QuietZone := 400;
    QRCodeBitmap.Picture.Bitmap.Width := QRCode.Rows;
    QRCodeBitmap.Picture.Bitmap.Height := QRCode.Columns;

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

end;

Saludos.-