Jump to content

Recommended Posts

Hello,

I need a component that can generate QRCode. logically it can be generated on the server, then the application downloads as an asset. but it will be easier if FGX can generate it.

 

thanks you

Link to post
Share on other sites
21 hours ago, Stas said:

 

 

22 hours ago, Alex Shi said:

Hello,

I have tried this source code before, but failed to apply it to FGX. in this section I have not found the code on FGX.

QRCodeBitmap.Canvas.Pixels[Column, Row] := clBlack;

and how to repaint tfgpaintbox.

 

Thanks you

Link to post
Share on other sites

QRCodeBitmap: TfgBitmap;

procedure TFormMain.UpdateQR;
var
  QRCode: TDelphiZXingQRCode;
  pixelColor: TAlphaColor;
  Row, Column: integer;
  y, x: integer;
  columnPixel, rowPixel, pixelCount: single;

  function GetPixelCount(AWidth, AHeight: single): single;
  begin
    if QRCode.Rows > 0 then
      Result := (Trunc(Min(AWidth, AHeight)) div QRCode.Rows) * TfgAndroidHelper.ScreenScale
    else
      Result := 0;
  end;

begin
  TfgAssert.IsNotNil(QRCodeBitmap, 'QRCodeBitmap is nil UpdateQR');

  QRCode := TDelphiZXingQRCode.Create;
  try
    QRCode.Data := '  ' + QRCodeText;
    QRCode.Encoding := qrAuto;
    QRCode.QuietZone := 1;

    pixelCount := GetPixelCount(imgQRCode.Width, imgQRCode.Height);
    QRCodeBitmap.Size := TSizeF.Create(QRCode.Rows * pixelCount,
      QRCode.Columns * pixelCount).Round;
    QRCodeBitmap.Canvas.Stroke.Kind := TfgBrushKind.Solid;
    QRCodeBitmap.Canvas.Fill.Kind := TfgBrushKind.Solid;

    for Row := 0 to QRCode.Rows - 1 do
    begin
      for Column := 0 to QRCode.Columns - 1 do
      begin
        if (QRCode.IsBlack[Row, Column]) then
          pixelColor := TAlphaColorRec.Black
        else
          pixelColor := TAlphaColorRec.White;

        columnPixel := Column * pixelCount;
        rowPixel := Row * pixelCount;

        QRCodeBitmap.Canvas.Fill.Color := pixelColor;
        QRCodeBitmap.Canvas.Stroke.Color := pixelColor;
        QRCodeBitmap.Canvas.FillRect(columnPixel, rowPixel, columnPixel + pixelCount, rowPixel + pixelCount);
      end;
    end;
  finally
    QRCode.Free;
  end;
end;


 

Link to post
Share on other sites
procedure TFormMain.imgQRCodePaint(Sender: TObject; const ACanvas: TfgCanvas);
begin
  ACanvas.FillColor(TAlphaColorRec.White);

  TfgAssert.IsNotNil(QRCodeBitmap, 'QRCodeBitmap is nil imgQRCodePaint');

  ACanvas.DrawBitmap(QRCodeBitmap, TRect.Create(0, 0, QRCodeBitmap.Width,
    QRCodeBitmap.Height), TRectF.Create(0, 0,
    ACanvas.Width * TfgAndroidHelper.ScreenScale,
    ACanvas.Height * TfgAndroidHelper.ScreenScale));
end;

 

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...