Hi everybody,

I am trying to read the JSON received from the server (using the /administration?method=getusers request), which I receive successfully, and I read each property using the TReader and insert it into a table. All properties are read successfully except from the Roles. What am I missing something in my code? I appreciate any help on this.

 THrmUser = class(TPersistent)
    private
       FName: String;
       FActive: Boolean;
       FFullName: String;
       FEmailAddress: String;
       FLoginStartTime : Integer;
       FLoginEndTime : Integer;
       FLocked : Boolean;
       FLockReleaseTime : Integer;
       FRoles : String;
    published
       property Name: String read FName write FName;
       property Active: Boolean read FActive write FActive;
       property FullName: String read FFullName write FFullName;
       property EmailAddress: String read FEmailAddress write FEmailAddress;
       property LoginStartTime: Integer read FLoginStartTime write FLoginStartTime;
       property LoginEndTime: Integer read FLoginEndTime write FLoginEndTime;
       property Locked: Boolean read FLocked write FLocked;
       property LockReleaseTime: Integer read FLockReleaseTime write FLockReleaseTime;
       property Roles: String read FRoles write FRoles;
    end;

procedure TForm1.ReadHrmUsersFromJSON(sJSON : String);
var
 Reader: TReader;
 HrmUser: THrmUser;
begin
 Reader := TReader.Create;
 try
   HrmUser := THrmUser.Create;
   Users.Open;
   try
     with Reader do begin
       Initialize(sJSON);
       BeginObject;
       ReadPropertyName('Users');
       MainForm.MultiLineEdit1.Lines.Add('Reading users');
       SkipPropertyName;
     end;
     HrmUser.Load(Reader);
     while Reader.MoreArrayElements do begin
       HrmUser.Load(Reader);
       with Users do begin
         Users.insert;
         Columns['Name'].AsString := HrmUser.Name;
         Columns['Active'].AsBoolean := HrmUser.Active;
         Columns['FullName'].AsString := HrmUser.FullName;
         Columns['EmailAddress'].AsString := HrmUser.EmailAddress;
         Columns['Locked'].AsBoolean := HrmUser.Locked;
         Columns['Roles'].AsString := HrmUser.Roles;  
         Save;
       end;
     end;
   finally
     HrmUser.Free;
   end;
 finally
   Reader.Free;
 end;
end;

For easy reference this is the JSON response with the users:
{
   "Users": [
      {
         "Name": "ABC",
         "Active": true,
         "FullName": "ABC",
         "EmailAddress": "abc@gmail.com",
         "LoginStartTime": -2209161600000,
         "LoginEndTime": -2209075201000,
         "Locked": false,
         "LockReleaseTime": 0,
         "Roles": [
            {
               "Name": "Employee"
            },
            {
               "Name": "HRMAdmin"
            }
         ]
      },
      {
         "Name": "Administrator",
         "Active": true,
         "FullName": "Administrator User",
         "EmailAddress": "",
         "LoginStartTime": -2209161600000,
         "LoginEndTime": -2209075201000,
         "Locked": false,
         "LockReleaseTime": 0,
         "Roles": [
            {
               "Name": "Administrators"
            }
         ]
      }
   ]
}

I would greatly appreciate any help.

George

Roles is an Array - not a String;

Thanks Walter I will try that

Define TRoles as a collection of TRole (TCollectionItem). That should do the trick,