mORMot Open Source

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, SynCommons, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

   TR = packed record
    errorId          :  Integer;
    errorCode	       :  String;
    errorDescription :	String;
    status           :	String;
    solution         :
                        record
                        text : string;
                        url  : string;
                        end;
    cost             :	Double;
    ip               :	String;
    createTime       :	Integer;
    endTime	         :  Integer;
    solveCount       :	Integer;
  end;


var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
  var
 R: TR;
 s: string;
begin
  s:= '{"errorId":0,"status":"ready","solution":{"text":"failed","url":"http:\/\/69.39.239.233\/101\/147884423179984.png"},"cost":"0.001000","ip":"95.143.198.250","createTime":1478844231,"endTime":1478844239,"solveCount":"0"}';
  SynCommons.RecordLoadJSON(R, s, TypeInfo(TR) );
  Memo1.Lines.Add(    R.errorId.ToString  );
  Memo1.Lines.Add(     R.errorCode	      );
  Memo1.Lines.Add(     R.errorDescription );
  Memo1.Lines.Add(     R.status           );
  Memo1.Lines.Add(     R.solution.text    );
  Memo1.Lines.Add(     R.solution.url     );
  Memo1.Lines.Add(  'COST: ' + Format('%3.6f', [R.cost])        );
  Memo1.Lines.Add(  'IP: '  + R.ip                 );
  Memo1.Lines.Add(     R.createTime.ToString         );
  Memo1.Lines.Add(     R.endTime.ToString             );
  Memo1.Lines.Add(     R.solveCount.ToString           );
end;