Serializer Problem

[Kaeswurm_Thomas (Thomas Kaeswurm)]

Hi,
I have a new serializer problem.
The old code works.

Result := TJson.SerializeAs<TsngService>(LSvc);

Then I expand the entity with a association.
I get an error with the "DependenciesList"
Here is the new object (a little bit shorter than real)

  [Entity]
  [Table('t_sng_services')]
  [Id('FServiceID', TIdGenerator.None)]
  TsngService = class
  private
    [Column('svc_id', [TColumnProp.Required])]
    FServiceID: TGuid;
    
    [Column('svc_name', [TColumnProp.Required], 80)]
    FName: string;
    
    [Column('svc_caption', [TColumnProp.Required], 80)]
    FCaption: string;
    
    [ManyValuedAssociation([TAssociationProp.Lazy, TAssociationProp.Required], [TCascadeType.SaveUpdate, TCascadeType.Merge, TCascadeType.Remove], 'FServiceID')]
    FDependenciesList: Proxy<TList<TsngDependencies>>;
    function GetDependenciesList: TList<TsngDependencies>;
  public
    constructor Create;
    destructor Destroy; override;
    class function Dependencies(AList: Boolean = True): String;
    property ServiceID: TGuid read FServiceID write FServiceID;
    property Name: string read FName write FName;
    property Caption: string read FCaption write FCaption;
    property DependenciesList: TList<TsngDependencies> read GetDependenciesList;
  end;

Ok, I take the TAureliusJsonSerializer.

    Serializer := TAureliusJsonSerializer.Create( TMappingExplorer.Default);
    try
      Result := Serializer.WriteAs<TsngService>(LSvc);
    finally
      Serializer.Free;
    end;

This works, but I have the "F"-Property Names in the JSON string.
{"FName":"abc",FCaption":"abc"} instead {"Name":"abc",Caption":"abc"}

The entities are made from the Datamodeler.
I think I have to change the placement of the [Column ...]
But do I have to do this for all of my entities?
Every time manually?

Thaks for help.

Thomas

[wlandgraf (Wagner Landgraf)]

Use TXDataJsonServerSerializer instead of TAureliusJsonSerializer. Indeed Aurelius serializer writes the name of mapped class members (fields in this case).
References:

Storing json blobs in db with class inheritance

Sorted. procedure MyXdataService.DoSomething; var     json : string;     obj : TBase;     serializer: TXDataJsonClientSerializer; begin     obj := TDerived.create;     serializer := TXDataJsonClientSerializer.Create(TXDataOperationContext.Current.Handler.XModel);     json := serializer.WriteAs(obj);     serializer.free;     // do something with the json end;

Parent ID field not set when deserializing

Hello Mark, 1. You don't need to assign the value to any variable, this will remove the hint.2. I don't know what to suggest in this case, I would have to have more details to guess what's going on. However, I'd suggest you use the serializer used by XData, not the TDataSnap one which is a legacy one. Here is how you could use it: Serializer := TXDataJsonServerSerializer.Create(TXDataAureliusModel.Default); try Json := Serializer.Write(MyEntity); // or Serializer.Write(MyEntity, Content…

[Kaeswurm_Thomas (Thomas Kaeswurm)]

Thank you, this was the right way.