UserInfo

Hi,

I tried to extend the UserInfo class used in the LogIn service (CodeFirst Server)
I created a class descending from UserClass and added 2 members.
I also have overriden the ReadComplex and WriteComplex methods.
The new members contain “garbage” when I run the login service ?

TOurUserInfo = class(UserInfo)
protected
procedure ReadComplex(aSerializer: TObject); override;
procedure WriteComplex(aSerializer: TObject); override;
public
UserData: string;
ControlTags: string;
end;

procedure TOurUserInfo.ReadComplex(aSerializer: TObject);
begin
ReadObjectFromSerializer(TROSerializer(aSerializer), Self);
end;

procedure TOurUserInfo.WriteComplex(aSerializer: TObject);
begin
WriteObjectToSerializer(TROSerializer(aSerializer), Self);
end;

Can you help me with this issue ?

Hi,

you can read/write properties only but not fields

try to use

TOurUserInfo = class(UserInfo)
private
  fUserData: string;
  fControlTags: string;
protected
  procedure ReadComplex(aSerializer: TObject); override;
  procedure WriteComplex(aSerializer: TObject); override;
published
   property UserData: string read fUserData write fUserData;
   property ControlTags: string read fControlTags write fControlTags;
end;

Hi Evgeny,

It works.
You are the best ! :slight_smile:

Grtz
Freddy

1 Like