Jump to content

Featured Replies

Posted

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

  • Author
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

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;


 

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;

 

  • 1 year later...
  • Administrators

We added new extension to FGX Native 1.12.0.0 with implementation new component TfgBarcode, which generates barcode of different types.

В версии 1.12.0.0 добавлено расширение с новым компонентом TfgBarcode, генерирующим всевозможные типы штрихкодов.

 

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

Recently Browsing 0

  • No registered users viewing this page.