BlogAll Blog Posts | Next Post | Previous Post
Tuesday, August 04, 2020TMS WEB Core already has a TWebQRDecoder component to decode QR codes. It's evident that we need something that works the other way around and creates QR codes instead. Meet our new addition to tackle this problem: TWebQRCode.
FunctionalityNot surprisingly, you can generate a QR code based on a text. Just drop the component onto the form, and set the TWebQRCode.Text property:
procedure TForm1.WebButton1Click(Sender: TObject); begin WebQRCode1.Text := WebEdit1.Text; end;
You can also retrieve the QR code as a base64 encoded string or as a TBitmap. To retrieve this data, use the GetBase64/GetBitmap methods or their GetBase64Async/GetBitmapAsync versions. The reason behind an async version of these methods is simple: GetBase64 and GetBitmap will work right away if the component is visible, because the underlying image source is a base64 encoded string. If you want to get a QR code data without showing any images, then the process will be asynchronous because the image needs to be created and loaded on the fly by the library. These asynchronous versions work with anonymous methods. This way you have full control over the retrieved data.
And last but not least, the QR code can be downloaded as an image. Only PNG format is supported by the library.
procedure TForm1.WebButton1Click(Sender: TObject); var qr: TWebQRCode; begin qr := TWebQRCode.Create(Self); qr.Width := 200; qr.Height := 200; qr.Text := 'my text'; qr.GetBase64Async(procedure (AData: string) begin //do something with AData end); end;
procedure TForm1.WebButton1Click(Sender: TObject); begin WebQRCode1.Download('myqrcode.png'); end;
ExampleAs a small example, we are going to create a small business card generator application with TTMSFNCPDFLib. TTMSFNCPDFLib makes it possible to create PDF files on the fly and if we combine it with TWebQRCode then we have an application which can generate PDF files with QR codes directly in the client!
To keep it short, we are going to focus on the QR code drawing. As a first step, we need to load the default fonts and disable the button until the fonts are loaded.
For the business cards we want to turn the website URL into a QR code. So the next step is to create a TTMSFNCPDFLib instance, get the TBitmap from TWebQRCode and draw it. We get the URL from a TWebEdit so if we change the website URL the underlying library needs to update the QR code first. In this case it's better to use the GetBitmapAsync method.
procedure TForm1.WebFormCreate(Sender: TObject); begin WebButton2.Enabled := False; Application.OnFontCacheReady := DoFontCacheReady; AddFontToCache('https://download.tmssoftware.com/tmsweb/pdf/fonts/arial.ttf'); AddFontToCache('https://download.tmssoftware.com/tmsweb/pdf/fonts/tahoma.ttf'); end; procedure TForm1.DoFontCacheReady(Sender: TObject); begin WebButton2.Enabled := True; end;
We want to draw the business cards multiple times so it's better to create a method for it. We can then introduce a loop and call our drawing method with PDF and ABitmap as a parameter.
procedure TForm1.WebButton2Click(Sender: TObject); var PDF: TTMSFNCPDFLib; I: Integer; begin WebQRCode1.Text := edtWebsite.Text; //Set URL WebQRCode1.GetBitmapAsync(procedure (ABitmap: TBitmap) //Wait for bitmap to load begin PDF := TTMSFNCPDFLib.Create; try PDF.BeginDocument('sample.pdf'); PDF.PageSize := psA4; PDF.Header := ''; PDF.Footer := ''; PDF.NewPage; PDF.Graphics.Font.Color := gcBlack; PDF.Graphics.Font.Style := ; //Draw with PDF here PDF.EndDocument(True); finally PDF.Free; end; end); end;
This sample not only shows how easy it is to create PDFs with QR codes but also demonstrates the power of TMS FNC and TMS WEB Core combined! You can play around with the full demo here.
procedure TForm1.DrawBusinessCard(APDF: TTMSFNCPDFLib; ALeft, ATop, ARight, ABottom: Integer; AQR: TBitmap); begin APDF.Graphics.DrawRectangle(RectF(ALeft, ATop, ARight, ABottom)); //text drawing would come here APDF.Graphics.DrawImage(AQR, RectF(ARight - 95, ABottom - 90, ARight - 25, ABottom - 20)); end;
But wait, we have some more good news: we made this component available through our TMS WEB Core Partner program which means that you can download it from here for free!
To install, open, compile & install the package from the "Component Library Source" folder. This will install the design-time TWebQRCode component.
For use at runtime, make sure that the "Core Source" folder is in your TMS WEB Core specific library path that you can set via IDE Tools, Options, TMS Web, Library path.
This blog post has not received any comments yet.
All Blog Posts | Next Post | Previous Post