![]() Procedure ObjectReverter(Data: TObject Field: String Arg: TObject) override Ĭonstructor Create(ASampleVariant: Variant) įunction TSampleVariantInterceptor.ObjectConverter(Data: TObject TSampleVariantInterceptor = class(TJSONInterceptor)įunction ObjectConverter(Data: TObject Field: String): TObject override Uses SysUtils, Classes, DBXJSON, StrUtils, RTTI, DBXJSONReflect, Variants Here is my unit for where is defined my anycodings_json TSampleVariantInterceptor unit MarshallingUtils Here is my ServerMethod sample code : TsmOrder = class(TDSServerModule)įunction GetOrder(const AID: Integer): TOrder įunction SetOrder(const AOrder: TOrder): Integer Procedure TOrder.SetNumber(const Value: Variant) Procedure TOrder.SetComment(const Value: Variant) Property Comment: Variant read FComment write SetComment Property Number: Variant read FNumber write SetNumber Procedure SetNumber(const Value: Variant) Procedure SetComment(const Value: Variant) Here is a n example of object I can access anycodings_json via DataSnap : type I have DataSnap Server and I have some anycodings_json server method to Set and Get object with anycodings_json variant fields
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |