Lazarus Pascal Requires Chilkat v11.7.0+

QR Codes for Email, Phone, SMS and Location

See more QR Code Examples

Demonstrates QR codes that start an action on a phone. A QR code only holds text, and what happens on scanning depends on the form of that text: mailto: starts an email, tel: dials a number, SMSTO: starts a text message, and geo: opens a map at a latitude and longitude. A web address opens in the browser. Lazarus Pascal

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.Formats,
  Chilkat.JsonObject;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  fmt: TFormats;
  json: TJsonObject;
  jsonOut: TJsonObject;

begin
  success := False;

  //  This example requires the Chilkat API to have been previously unlocked.
  //  See Global Unlock Sample for sample code.

  fmt := TFormats.Create;
  json := TJsonObject.Create;
  jsonOut := TJsonObject.Create;
  json.UpdateInt('render.moduleSize',6);
  json.UpdateBool('output.overwrite',True);
  json.UpdateString('output.return','none');

  //  An email, with the address and optionally a subject.  Spaces in the subject are written %20.
  json.UpdateString('payload.text','mailto:support@example.com?subject=Order%2012345');
  json.UpdateString('output.path','qa_output/qr_email.png');
  success := fmt.QrCode('generate',json,jsonOut);
  if (success = False) then
    begin
      WriteLn(fmt.LastErrorText);
      Exit;
    end;
  WriteLn('email: version ' + jsonOut.IntOf('symbols[0].selectedEncoding.version') + ', ' + jsonOut.StringOf('outputs[0].path'));

  //  

  //  A phone number to dial, in international form.
  json.UpdateString('payload.text','tel:+15555550100');
  json.UpdateString('output.path','qa_output/qr_phone.png');
  success := fmt.QrCode('generate',json,jsonOut);
  if (success = False) then
    begin
      WriteLn(fmt.LastErrorText);
      Exit;
    end;
  WriteLn('phone: version ' + jsonOut.IntOf('symbols[0].selectedEncoding.version') + ', ' + jsonOut.StringOf('outputs[0].path'));

  //  

  //  A text message: the number, then the message.
  json.UpdateString('payload.text','SMSTO:+15555550100:Please call me back');
  json.UpdateString('output.path','qa_output/qr_sms.png');
  success := fmt.QrCode('generate',json,jsonOut);
  if (success = False) then
    begin
      WriteLn(fmt.LastErrorText);
      Exit;
    end;
  WriteLn('sms: version ' + jsonOut.IntOf('symbols[0].selectedEncoding.version') + ', ' + jsonOut.StringOf('outputs[0].path'));

  //  

  //  A location: latitude, then longitude, in degrees.
  json.UpdateString('payload.text','geo:41.8781,-87.6298');
  json.UpdateString('output.path','qa_output/qr_location.png');
  success := fmt.QrCode('generate',json,jsonOut);
  if (success = False) then
    begin
      WriteLn(fmt.LastErrorText);
      Exit;
    end;
  WriteLn('location: version ' + jsonOut.IntOf('symbols[0].selectedEncoding.version') + ', ' + jsonOut.StringOf('outputs[0].path'));

  //  

  //  Sample output:

  //  email: version 4, qa_output/qr_email.png
  //  phone: version 2, qa_output/qr_phone.png
  //  sms: version 3, qa_output/qr_sms.png
  //  location: version 2, qa_output/qr_location.png


  fmt.Free;
  json.Free;
  jsonOut.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.