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;