mORMot Open Source

{"name":"test","surname":"test"}

type
  TPerson = packed record
    surname: string;
    name: string;
  end;

        D^ := P^; // 3 stages pipelined process of unescaped chars

      "specs":{
         "spec":[
            {
               "@required":"true",
               "@value":"Kullanılmış",
               "@name":"Durumu"
            },
            {
               "@required":"true",
               "@value":"10.0 - 11.9 MP",
               "@name":"Çözünürlük (Megapiksel)"
            },
            {
               "@required":"true",
               "@value":"Kodak",
               "@name":"Marka"
            }
         ]
      }

"photos":{
         "photo":{
            "@photoId":"0",
            "url":"http://images.gittigidiyor.com/2941/KODAK-Z915-10MP-10X-ZOOM-HD-SIFIR-URUN__29416457_0.jpg"
         }
      }

#0 GETENUMNAME(0xaee828, 6) at ../fpcupdeluxe/ccr/mORMot/SynCommons.pas:21101
#1 TOTEXT(OSARCH) at ../fpcupdeluxe/ccr/mORMot/SynCommons.pas:26054
#2 SETLINUXDISTRIB(0xf65238 'Raspbian GNU/Linux 10 (bu'...) at ../fpcupdeluxe/ccr/mORMot/SynCommons.pas:26242
#3 RETRIEVESYSTEMINFO at ../fpcupdeluxe/ccr/mORMot/SynCommons.pas:26320
#4 SYNCOMMONS_$$_init$ at :62578
#5 fpc_initializeunits at :0
#6 main at counter.lpr:20

   "PaymentCheck":null,
   "PaymentAcikHesap":null,
   "HataDuzeltTutari":0.000000,
   "FaturaliSatisTutari":0.000000,
   "CariHesapAdedi":null,

  TZTax = packed record
    TaxKDV: string;
    TaxAmount: Variant;
    TaxRate: Variant;
    TaxIndex: Variant;
  end;

  TZReportItem = packed record
    Idx: Int64;
    Terminal: string;
    EkuNo: Integer;
    ZNo: Integer;
    ZDate: TDateTime;
    ZTime: string;
    KumuleTutar: Double;
    KumuleVergiKDV: Double;
    GunlukToplamTutar: Double;
    GunlukToplamKDV: Double;
    YuzdeArttirimAdedi: Variant;
    YuzdeIndirimAdedi: Variant;
    IptalAdedi: Variant;
    HataDuzeltAdedi: Variant;
    MaliFisAdedi: Variant;
    MaliOlmayanFisAdedi: Variant;
    MusteriFisAdedi: Variant;
    IptalFisAdedi: Variant;
    SatisIptalFisAdedi: Variant;
    FaturaliSatisAdedi: Variant;
    YuzdeArttirimTutari: Variant;
    YuzdeIndirimTutari: Variant;
    NakitTutari: Variant;
    KrediTutari: Variant;
    IptalTutari: Variant;
    FoodSaleCnt: Variant;
    FoodRcptTotalAmount: Variant;
    OtoparkEntryCnt: Variant;
    InvoiceOtherPayment: Variant;
    OtherPaymentTotalAmount: Variant;
    AvansIslemSayisi: Variant;
    Avans: Variant;
    KasaOdeme: Variant;
    FiscalReportReceiptCnt: Variant;
    TasnifDisiReceiptCnt: Variant;
    InvoiceCash: Variant;
    MobilPayment: Variant;
    TaxRefund: Variant;
    TaxlessAmount: Variant;
    TaxlessCount: Variant;
    CreditInvoice: Variant;
    PaymentGift: Variant;
    PaymentTreat: Variant;
    PaymentFree: Variant;
    PaymentDeposit: Variant;
    PaymentPoint: Variant;
    PaymentExpense: Variant;
    InvoiceTotal: Variant;
    EInvoiceTotal: Variant;
    EArchiveInvoiceTotal: Variant;
    BankaTransferTutari: Variant;
    PaymentCheck: Variant;
    PaymentAcikHesap: Variant;
    HataDuzeltTutari: Variant;
    FaturaliSatisTutari: Variant;
    CariHesapAdedi: Variant;
    ZTaxList: TArray<TZTax>;
    TaxRate0Amount: Variant;
    TaxRate1Amount: Variant;
    TaxRate8Amount: Variant;
    TaxRate18Amount: Variant;
    TaxRateOtherAmount: Variant;
    Currency: string;
    OKCVersion: Variant;
  end;

  TResponse = packed record
    IsSummary: Boolean;
    ZReportItems: TArray<TZReportItem>;
    UniqueId: Variant;
    ErrCode: string;
    ErrDesc: string;
  end;

First chance exception at $7536FD62. Exception class EAccessViolation with message 'Access violation at address 0040CBC4 in module 'Teklif.exe'. Read of address F9CC0011'. Process Teklif.exe (1220)

  try
    if not SynCommons.RecordLoadJSON(Response, RawUTF8(Response), TypeInfo(TGetDueDateResponse)) then Exit(False);  // <--- HERE
  except
    Exit(False);
  end;

{  
   "license":1,
   "message":true,
   "duedate":"2019-06-12T05:38:48.000000Z",
   "systemdate":"2019-08-07T14:13:23.787244Z",
   "result":true,
   "error":""
}

  TGetDueDateResponse = packed record
    license: Integer;
    &message: Boolean;
    duedate: TDateTime;
    systemdate: TDateTime;
    result: Boolean;
    error: string;
  end;

    // FPC compatibility: if you have a GPF here at startup, your 3.1 trunk
    // revision seems older than June 2016
    // -> enable HASDIRECTTYPEINFO conditional below $ifdef VER3_1 in Synopse.inc
    // or in your project's options

["9af5fdb57d837c02","9af5fdb57dc8e575","9af5fdb57d4fdb61"]

// json I am dealing is:
{
	"controller": true,
	"apiVersion": 4,
	"clock": 1550842219493,
	"databaseReady": true
}

type
  TController = packed record
    controller: Boolean;
    apiVersion: Integer;
    clock: UInt64;
    databaseReady: Boolean;
  end;

function IsControllerUp(): Boolean;
var
  Controller: TController;
  Json: string;
  J: RawUTF8;
begin
  Result := CallURL('controller', Json);  // do rest request and retrieve result string

  if Result then
  begin
    J := RawUTF8(Json);
    if RecordLoadJSON(Controller, J, TypeInfo(TController)) then
    begin
      Exit(Controller.controller);
    end
    else
    begin
      Exit(False);
    end;
  end;
end;

[dcc32 Error] SynCommons.pas(54244): E2029 Expression expected but 'END' found

    {$elseif defined(VER320)}'Delphi 10.2 Tokyo'
    {$elseif defined(VER320)}'Delphi 10.3 Carnival'

  TSubReturn = packed record
    code: Integer;
    desc: string;
  end;

  TReturn = packed record
    code: Integer;
    desc: string;
    subReturn: TSubReturn;
  end;

  TInstruction = packed record
    InstructionId: Int64;
    Amount: string;
    InsertionDate: string;
    Description: string;
  end;
  TInstructions = TArray<TInstruction>;

  TSearchCardResult = packed record
    ret: TReturn;
    cardStatus: Integer;
    message: string;
    instructions: TInstructions;
  end;

const
  __TSubReturn = 'code Integer desc string';
  __TReturn = 'code Integer desc string subReturn{code Integer desc string}';
  __TInstruction = 'InstructionId Int64 Amount string InsertionDate string Description string';
  __TSearchCardResult = 'ret TReturn cardStatus Integer message string instructions TInstruction';
  // I also tried below that raise same exception for me
  //__TSearchCardResult = 'ret{code Integer desc string subReturn{code Integer desc string}} cardStatus Integer message string instructions {InstructionId Int64 Amount string InsertionDate string Description string}';

  TTextWriter.RegisterCustomJSONSerializerFromText(TypeInfo(TSubReturn),         __TSubReturn).Options        := [soReadIgnoreUnknownFields];
  TTextWriter.RegisterCustomJSONSerializerFromText(TypeInfo(TReturn),            __TReturn).Options           := [soReadIgnoreUnknownFields];
  TTextWriter.RegisterCustomJSONSerializerFromText(TypeInfo(TInstruction),       __TInstruction).Options      := [soReadIgnoreUnknownFields];
  TTextWriter.RegisterCustomJSONSerializerFromText(TypeInfo(TSearchCardResult),  __TSearchCardResult).Options := [soReadIgnoreUnknownFields];