Simplificacion de la libreria DelphiZXingQRCodeEx

[darkamerico]

En efecto, no me explique apropiadamente, debido quizas a que ando con muchas cosas ahora, ese código me sirve, gracias amigo

Empezado por Neftali [Germán.Estévez]

Difícil adivinar lo que necesitas sólo con determinadas partes del código que has encontrado por Internet.
Revisando un poco y haciendo alguna prueba se ve que el primero, no corresponde a ese componente o al menos a la misma versión.

De todas formas trasteando un poco con uno de los códigos que has puesto sí se puede conseguir que pinte un código con algo.

Crea un proyecto con un Formulario y dentro un TImage con nombre: QRCodeBitmap
A continuación, en el OnCreate del formulario escribe lo siguiente:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
  QRCode: TDelphiZXingQRCode;
  Row, Column: Integer;
begin
  QRCode := TDelphiZXingQRCode.Create;
  try
    QRCode.Data := '39217493741947298471293741t4352234v54325f43v25435v324c543523425c982' +
                   '39217493741947298471293741t4352234v54325f43v25435v324c543523425c982' +
                   '39217493741947298471293741t4352234v54325f43v25435v324c543523425c982';
    QRCode.Encoding := qrAuto;
    QRCode.QuietZone := 400;
    QRCodeBitmap.Picture.Bitmap.SetSize(QRCode.Rows, 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;
  finally
    QRCode.Free;
  end;
end;

Con eso debería bastar para dibujar un QR.

[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.-