Autor Téma: Objekt z JSON  (Přečteno 293 krát)

Offline sebik

  • Nováček
  • *
  • Příspěvků: 16
  • Karma: 0
Objekt z JSON
« kdy: 25-08-2021, 08:44:33 »
Ahoj, mám:

TAspTransactionBasicData = Class(TObject)
  Currency          : Byte;                     
  Amount            : Currency;
  constructor         Create(aCurrency: Byte; aAmount: Currency);
end;

TStartWorkflowWithBasicData  = Class(TObject)
  AdditionalData    : TAspTransactionBasicData;  // tady je to jako Objekt
  TypeOfWorkflow  : Byte;
  constructor        Create(aAdditionalData: TAspTransactionBasicData; aTypeOfWorkflow: Byte);
  function             toJSon(TObject:TStartWorkflowWithBasicData):String;
end;

a ta funkce ToJSon mi vloží objekt do JSON:

function TStartWorkflowWithBasicData.toJSon(TObject:TStartWorkflowWithBasicData):String;
Var
  JSon:     ISuperObject;
  RttiCont: TSuperRttiContext;
begin
  Result   := '';
  RttiCont := TSuperRttiContext.Create;
  JSon     := RttiCont.AsJson<TStartWorkflowWithBasicData>(TObject); // Objekt vložím do JSON
  Result   := JSon.AsJSon(False);
  RttiCont.Free;
end;

a potřeboval bych také přesný opak  :), funkci fromJSon, která mi z JSON (kam byl vložený objekt) ten zase načte zpět do objektu, ale nějak tápu  >:(.

Poradíte prosím někdo?