Help with serialization a record with set of enumerated

jars · 2016-10-05 16:45:29

Hi,
I'm developing with Delphi 7 and I don't known how define the constant for this record. Can you help me?

type
  TPosFlag = (pfInService, pfSupervisorHelp, pfReadyForCalls, pfMakingCall,
    pfMakingCall2, pfReadyForChats, pfACDCall, pfACDChat, pfEnteringDigits);

  TPosData = packed record
    PosNumber: Word;                 
    UserId: Word;                    
    PosFlags: set of TPosFlag;
  end;

const
  __TPosData = 'PosNumber Word UserId Word PosFlags set of TPosFlag';

Thanks in advance.

turrican · 2016-10-05 17:04:05

What do you want?

- Declare a constant for this record :

  TPosData = packed record
    PosNumber: Word;                 
    UserId: Word;                    
    PosFlags: set of TPosFlag;
  end;

const
  POSTDATA : TPosData = (PosNumber : 10; UserID : 11; PosFlags : [pfInService]);

jars · 2016-10-05 18:43:13

Hi Turrican.
I want pass to JSon.

    TTextWriter.RegisterCustomJSONSerializerFromText(TypeInfo(TPosData),
  __TPosData).Options := [soReadIgnoreUnknownFields,soWriteHumanReadable];

ab · 2016-10-05 19:25:51

Define a specific type like

TPosFlags = set of TPosFlag;

Then register this simple type, and the __TPostData text, using "PosFlags: TPosFlags".

jars · 2016-10-05 20:11:28

Thanks Ab.
With this code fire the error: TJSONCustomParsers.Search(kind=6) not DynArray or Record.

type
  TPosFlags = set of TPosFlag;
const
  __TPosFlags = '(pfInService, pfSupervisorHelp, pfReadyForCalls, pfMakingCall, '+
                'pfMakingCall2, pfReadyForChats, pfACDCall, pfACDChat, pfEnteringDigits)';

type
  TPosData = packed record
    PosNumber: Word;
    UserId: Word;
    PosFlags: TPosFlags;
  end;
  TACDPositions = array of TPosData;
const
  __TPosData = 'PosNumber Word UserId Word PosFlags TPosFlag'
               

    TTextWriter.RegisterCustomJSONSerializerFromText(TypeInfo(TPosFlags),
 __TPosFlags).Options := [soReadIgnoreUnknownFields,soWriteHumanReadable];

ab · 2016-10-05 21:02:22

Use this method:

TTextWriter.RegisterCustomJSONSerializerFromTextSimpleType(TypeInfo(TPosFlags));

jars · 2016-10-06 13:24:30

Many thanks AB, this work fine.

mORMot Open Source

#1 2016-10-05 16:45:29

Help with serialization a record with set of enumerated

#2 2016-10-05 17:04:05

Re: Help with serialization a record with set of enumerated

#3 2016-10-05 18:43:13

Re: Help with serialization a record with set of enumerated

#4 2016-10-05 19:25:51

Re: Help with serialization a record with set of enumerated

#5 2016-10-05 20:11:28

Re: Help with serialization a record with set of enumerated

#6 2016-10-05 21:02:22

Re: Help with serialization a record with set of enumerated

#7 2016-10-06 13:24:30

Re: Help with serialization a record with set of enumerated

Board footer