Pages: 1

#1 Re: mORMot 2 » DocVariantToObject does not handle all fields » 2024-12-27 17:34:42

DonAlfredo

Working 100%. Thanks !!

#2 mORMot 2 » DocVariantToObject does not handle all fields » 2024-12-27 13:50:05

DonAlfredo
Replies: 3

I am trying to use DocVariantToObject to fill an object from a variant.
Looking at the code.

if prop <> nil then
  prop^.Prop.SetValue(obj, doc.Values[p]);

This does not check the return-value of SetValue.
However, the return-value is false in case of complex fields.
So, when using this function with objects that contain classes like TCollection, then DocVariantToObject will not fill all fields.

Suggestion.

Valid := prop^.Prop.SetValue(obj,doc.Values[p]);
if (NOT Valid) then
begin
    json:=TDocVariantData(doc.Values[p]).ToJson;
    PropertyFromJson(prop,obj,pointer(json),Valid,JSONPARSER_TOLERANTOPTIONS);
end;

#3 Re: mORMot 2 » Memory leak when using getters and setters for collection. » 2024-12-16 10:18:21

DonAlfredo

Works perfect. Thanks !!

Fields:=TOrmProduct.OrmProps.FieldBitsFromExcludingClass([TDataRunCollection],ooSelect,True);

#4 Re: mORMot 2 » Memory leak when using getters and setters for collection. » 2024-12-14 13:16:30

DonAlfredo

Thanks Ab ! Solves.

If I may hack this thread for another TCollection question.

In my applications, I use TCollections a lot. They might contain a lot of data. And this data is stored as JSON in the database for external use by non-mORMot applications.
All very well.
However, I would like to consider these TCollection fields as a kind of blobs, due to their huge data-size. So, I want to exclude them when retrieving data from the database.
Code for that (please excuse me for a bit long code listing):

  rA := Rtti.RegisterClass(TOrmProduct);
  pa := pointer(rA.Props.List);
  count:=rA.Props.Count;
  SQL:='';
  repeat
    if pa^.Value.ValueRtlClass=vcCollection then
    begin
      if pa^.Value.ValueClass.ClassParent=TDataRunCollection then SQL:=SQL+','+pa^.Name;
    end;
    inc(pa);
    dec(count);
  until count = 0;
  Delete(SQL,1,1);
  Fields:=TOrmProduct.OrmProps.FieldBitsFromExcludingCsv(SQL);

Question. Or feature request.
Would it be possible to implement something like this ?

Fields:=TOrmProduct.OrmProps.FieldBitsFromExcludingFromDataType(TDataRunCollection);
Fields:=TOrmProduct.OrmProps.FieldBitsFromExcludingFromClassParent(TDataRunCollection);

#5 Re: mORMot 2 » Memory leak when using getters and setters for collection. » 2024-12-12 16:29:57

DonAlfredo

Yes I guess. This occurs in an interface based client-server setting.

#6 mORMot 2 » Memory leak when using getters and setters for collection. » 2024-12-12 16:17:18

DonAlfredo
Replies: 6

A memory leak is occurring when doing the following.

  TResultsRun = class(TCollectionItem)
  private
    fTDC     : TTestDataCollection;
  protected
    function GetNewerTestData:TTestDataCollection;
    procedure SetNewerTestData(aValue:TTestDataCollection);
  public
    constructor Create(ACollection: TCollection); override;
    destructor Destroy;override;
  published
    //property NewerTestData : TTestDataCollection read fTDC write fTDC; <----- all ok !!
    property NewerTestData : TTestDataCollection read GetNewerTestData write SetNewerTestData; <----- memory leak
  end;

(the getter and setter are simple assignments)
Are getters and setters supported for collections ?

#7 mORMot 2 » TRttiMap feature request » 2024-10-22 06:15:19

DonAlfredo
Replies: 0

I use the TRttiMap to map a DTO to ORM. Works very well.
But sometimes, we need to update a single value of the DTO/ORM.
Normally, the function Orm.Update(OrmEntity,FieldName) would be good. However, the DTO fieldname might be different from the ORM fieldname. Naturally, that is why the mapping is used.
To use this function, we need something like:

TRttiMap.FindField.ToB(FieldNameOfA):RawUTF8;
TRttiMap.FindField.ToA(FieldNameOfB):RawUTF8;

Thanks !

#8 Re: mORMot 2 » Error running docker container from ex\martin-doyle\07-HttpDockerORM » 2023-10-31 17:52:50

DonAlfredo

This might help.
https://reviews.freebsd.org/rS350481

Pages: 1

Board footer

Powered by FluxBB