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.
