Delphi ActiveX Requires Chilkat v11.7.0+

Validate a QR Code Request

See more QR Code Examples

Demonstrates the validate operation, which examines a request without producing anything. The scope says how far to look: definition checks the options, capacity also checks that the data fits a QR symbol, and layout also checks the rendered size against the limits. The response has a validationStatus of valid or invalid, a list of checks, and findings[] describing what is wrong. A request that cannot be understood at all, such as one with a misspelled option, still makes the call fail in the usual way. Delphi ActiveX

var
success: Integer;
fmt: TChilkatFormats;
jsonOut: TChilkatJsonObject;
i: Integer;
n: Integer;
json: TChilkatJsonObject;

begin
success := 0;

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

fmt := TChilkatFormats.Create(Self);
jsonOut := TChilkatJsonObject.Create(Self);

json := TChilkatJsonObject.Create(Self);
json.UpdateString('target','symbol');
json.UpdateString('validation.scope','capacity');
json.UpdateString('payload.text','https://www.chilkatsoft.com/barcode_overview.asp');

success := fmt.QrCode('validate',json.ControlInterface,jsonOut.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(fmt.LastErrorText);
    Exit;
  end;
Memo1.Lines.Add('status: ' + jsonOut.StringOf('validationStatus'));
n := jsonOut.SizeOfArray('checks');
for i := 0 to n - 1 do
  begin
    jsonOut.I := i;
    Memo1.Lines.Add('  ' + jsonOut.StringOf('checks[i].name') + ': ' + jsonOut.StringOf('checks[i].status'));
  end;

//  The same text does not fit version 2 at error-correction level H.
json.UpdateInt('encoding.qr.maxVersion',2);
json.UpdateString('encoding.qr.errorCorrection','H');

success := fmt.QrCode('validate',json.ControlInterface,jsonOut.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(fmt.LastErrorText);
    Exit;
  end;
Memo1.Lines.Add('status: ' + jsonOut.StringOf('validationStatus'));
n := jsonOut.SizeOfArray('checks');
for i := 0 to n - 1 do
  begin
    jsonOut.I := i;
    Memo1.Lines.Add('  ' + jsonOut.StringOf('checks[i].name') + ': ' + jsonOut.StringOf('checks[i].status'));
  end;

n := jsonOut.SizeOfArray('findings');
for i := 0 to n - 1 do
  begin
    jsonOut.I := i;
    Memo1.Lines.Add('finding: ' + jsonOut.StringOf('findings[i].code') + ' at ' + jsonOut.StringOf('findings[i].path'));
    Memo1.Lines.Add('  ' + jsonOut.StringOf('findings[i].message'));
  end;

//  Sample output:

//  status: valid
//    definition: passed
//    capacity: passed
//    layout: notApplicable
//  status: invalid
//    definition: passed
//    capacity: failed
//    layout: notApplicable
//  finding: capacityExceeded at /payload
//    the payload does not fit any admitted QR version at the selected error-correction level