Free Trial
Web API version
Licensing
Request A Quote
HAVE QUESTIONS OR NEED HELP? SUBMIT THE SUPPORT REQUEST FORM or write email to SUPPORT@BYTESCOUT.COM
QR Code Barcode With Calender Entry | Delphi
QRCodeWithCalenderEntry.dpr:
program QRCodeWithCalenderEntry; //*******************************************************************************************// // // // Download Free Evaluation Version From: https://bytescout.com/download/web-installer // // // // Also available as Web API! Get Your Free API Key: https://app.pdf.co/signup // // // // Copyright � 2017-2020 ByteScout, Inc. All rights reserved. // // https://www.bytescout.com // // https://pdf.co // // // //*******************************************************************************************// {$APPTYPE CONSOLE} uses SysUtils, ActiveX, Bytescout_BarCode_TLB in 'C:\Program Files\Borland\BDS\4.0\Imports\Bytescout_BarCode_TLB.pas'; var bar_code: _Barcode; function GetCalenderEntryFormatText(): string; begin Result := 'BEGIN:VCALENDAR ' + 'BEGIN:VEVENT ' + 'DTSTART:20181113T100000Z ' + 'DTEND:20181113T150000Z ' + 'SUMMARY:New Calendar Entry ' + 'DESCRIPTION:Description Text ' + 'LOCATION:Chicago ' + 'RRULE:FREQ=YEARLY;BYDAY=-1SU;BYMONTH=3 ' + 'END:VEVENT ' + 'END:VCALENDAR'; end; begin // required for console applications, initializes ActiveX support CoInitialize(nil); bar_code := CoBarcode.Create(); bar_code.RegistrationName := 'demo'; bar_code.RegistrationKey := 'demo'; // set symbology bar_code.Symbology := SymbologyType_QRCode; // get QRCode value in CalenderEntry format bar_code.Value := GetCalenderEntryFormatText(); // save barcode to image bar_code.SaveImage('result.png'); // free barcode object bar_code.Dispose(); // calls to CoInitialize must be balanced by calls to CoUninitialize CoUninitialize(); end.