mORMot Open Source

{
  "firstName": "John",
  "lastName" : "doe",
  "age"      : 26,
  "address"  : {
    "streetAddress": "naist street",
    "city"         : "Nara",
    "postalCode"   : "630-0192"
  },
  "phoneNumbers": [
    {
      "type"  : "iPhone",
      "number": "0123-4567-8888"
    },
    {
      "type"  : "home",
      "number": "0123-4567-8910"
    }
  ]
}

class function _J_.Decode<T>(Text:string;out Data:T):Boolean;
var
  RttiInfo : Pointer;
begin
  while (Text<>'') and (Text[Length(Text)]<>'}') do SetLength(Text,Length(Text)-1);
  if Text='' then
  begin
    Data := default(T);
    Exit(False);
  end;
  RttiInfo := TypeInfo(T);
  try
    TTextWriter.RegisterCustomJSONSerializerSetOptions(RttiInfo,[soReadIgnoreUnknownFields],True);
    Result := RecordLoadJSON(Data,RawUTF8(Text),RttiInfo);
  except
    Result := False;
  end;
  if (not Result) then Data := default(T);
end;

class function _J_.Decode<T>(Text:string;out Data:T):Boolean;
var
  RttiInfo : Pointer;
begin
  Data := default(T);
  while (Text<>'') and (Text[Length(Text)]<>'}') do SetLength(Text,Length(Text)-1);
  if Text='' then Exit(False);
  RttiInfo := TypeInfo(T);
  try
    TTextWriter.RegisterCustomJSONSerializerSetOptions(RttiInfo,[soReadIgnoreUnknownFields],True);
    Result := RecordLoadJSON(Data,RawUTF8(Text),RttiInfo);
  except
    Result := False;
  end;
  if (not Result) then Data := default(T);
end;

===============================================================================
Application Name      : PGFClient.exe
Memory manager        : msvcrt.dll
Compiler Version      : Delphi: 33
Indy Version          : 10.6.2.0
Zeos Version          : 7.2.6-stable
Report Unique ID      : {A282DE21-643F-46E2-B4AE-AF544FF66F45}
Start Time            : 2020-06-14 15:39:48.345
Exception Time        : 2020-06-14 16:34:53.111
Application up time   :  55 minutes 4 seconds 766 milliseconds
===============================================================================
Processor             : eMachines, eMachines G640, AMD64 Family 16 Model 6 Stepping 3, AMD Athlon(tm) II P320 Dual-Core Processor, 2.095 GHz
System                : Windows 10 (Version 10.0, Build 18362, 64-bit Edition)
Display               : 1680x1050 pixels, 96 bpp
Total Physical Memory :   5.748 GB
Free Physical Memory  :   1.988 GB
Max used Memory       :   169.383 MB
===============================================================================
Exception class       : EAccessViolation
Access violation at address 00408F7E in module 'PGFClient.exe'. Read of address 0000000D
Exception trigger     : UnhandledException
-------------------------------------------------------------------------------
Module                : System
Command Line          : _RESTARTTRATSER_432
Procedure             : System.TObject.Free
-------------------------------------------------------------------------------
[00408F7E] System.TObject.Free + $6
[00C5AB54] SynPdf.TPdfDocument.SaveToStreamDirectBegin (Line 5855, "SynPdf.pas" + 37) + $22
[00C6347A] SynPdf.TPdfPageGDI.FlushVCLCanvas (Line 8841, "SynPdf.pas" + 3) + $15
[00C63091] SynPdf.TPdfDocumentGDI.SaveToStream (Line 8765, "SynPdf.pas" + 6) + $3
[00D0975F] uHTMLViewer.THTMLDisplay.ExportToPDF (Line 108, "uHTMLViewer.pas" + 36) + $18
[00DEA258] uClient.TMainForm.ExportHTMLReport (Line 1994, "uClient.pas" + 8) + $B
[00DFC650] uClient.TMainForm.TxRequestSelectRow (Line 5230, "uClient.pas" + 5) + $7
[00BB0FF7] ucStringGrid.TUStringGrid.dodbClick (Line 229, "ucStringGrid.pas" + 5) + $18
[00575CE5] Vcl.Controls.TControl.DblClick + $15
[00BA8EB2] Vcl.Grids.TCustomGrid.MouseDown (Line 685, "" + 0) + $9DD5
[00BB0EB5] ucStringGrid.TUStringGrid.MouseDown (Line 201, "ucStringGrid.pas" + 1) + $D
[00409346] System.@CallDynaInst + $6
[00575DB0] Vcl.Controls.TControl.DoMouseDown + $88
[00574167] Vcl.Controls.TControl.SetMouseCapture + $17
[00575E6F] Vcl.Controls.TControl.WMLButtonDblClk + $47
[0057576E] Vcl.Controls.TControl.WndProc + $2BE
[0066C665] Vcl.Forms.TCustomForm.WndProc + $64D
[0057A223] Vcl.Controls.TWinControl.WndProc + $63B
[00409F18] System.TMonitor.TryEnter + $28
[00409A40] System.TMonitor.Enter + $10
[00BC698D] uMainForm.TUForm.WndProc (Line 1581, "uMainForm.pas" + 65) + $23
[004098AC] System.TMonitor.CheckOwningThread + $4
[00409BCE] System.TMonitor.Exit + $6
[00409C2A] System.TMonitor.Exit + $1A
[00548EEB] Vcl.Graphics.FreeMemoryContexts + $9B
[005797F0] Vcl.Controls.TWinControl.MainWndProc + $2C
[00579805] Vcl.Controls.TWinControl.MainWndProc + $41
[004DDDC0] System.Classes.StdWndProc + $14
[00579A31] Vcl.Controls.TWinControl.IsControlMouseMsg + $65
[0057A223] Vcl.Controls.TWinControl.WndProc + $63B
[005797F0] Vcl.Controls.TWinControl.MainWndProc + $2C
[004DDDC0] System.Classes.StdWndProc + $14
[00676053] Vcl.Forms.TApplication.ProcessMessage + $F3
[00676096] Vcl.Forms.TApplication.HandleMessage + $A
[006763C9] Vcl.Forms.TApplication.Run + $C9
[00E2C30D] PGFClient.PGFClient (Line 18, "" + -935) + $7

MIIBuTCCASKgAwIBAgIQNdNhtuV5GbNHYZsf+LvM0zANBgkqhkiG9w0BAQUFADAb
MRkwFwYDVQQDExBFZGlkZXYgU21va2VUZXN0MB4XDTA4MTExMjE5NTEzNVoXDTM5
MTIzMTIzNTk1OVowGzEZMBcGA1UEAxMQRWRpZGV2IFNtb2tlVGVzdDCBnzANBgkq
hkiG9w0BAQEFAAOBjQAwgYkCgYEAm6zGzqxejwswWTNLcSsa7P8xqODspX9VQBuq
5W1RoTgQ0LNR64+7ywLjH8+wrb/lB6QV7s2SFUiWDeduVesvMJkWtZ5zzQyl3iUa
CBpT4S5AaO3/wkYQSKdI108pXH7Aue0e/ZOwgEEX1N6OaPQn7AmAB4uq1h+ffw+r
RKNHqnsCAwEAATANBgkqhkiG9w0BAQUFAAOBgQCZmj+pgRsN6HpoICawK3XXNAmi
cgfQkailX9akIjD3xSCwEQx4nG6tZjTz30u4NoSffW7pch58SxuZQDqW5NsJcQNq
Ngo/dMoqqpXdi2/0BYEcJ8pjsngrFm+fM2BnyGpXH7aWuKsWjVFGlWlF+yi8I35Q
8wFJt2Z/XGA7WWDjvw==

procedure FPCDynArrayClear(var a: Pointer; TypeInfo: Pointer);external name 'FPC_DYNARRAY_CLEAR';
procedure FPCFinalizeArray(p: Pointer; TypeInfo: Pointer; elemCount: PtrUInt);external name 'FPC_FINALIZE_ARRAY';
procedure FPCFinalize(Data: Pointer; TypeInfo: Pointer);external name 'FPC_FINALIZE';
procedure FPCRecordCopy(const Source; var Dest; TypeInfo: pointer);external name 'FPC_COPY';
procedure FPCRecordAddRef(var Data; TypeInfo : pointer);external name 'FPC_ADDREF';