How do I pass an object from aWeb Core Application to an xData Servers?

[Fletcher_Alan]

Hello,

I am trying to pass an object as a parameter on a call to an XData Server function. Are there any examples in the demos on how to do that?

For example; I have a TCustomer object with several fields instead of passing each filed as a parameter to do some processing on the server side and save the processed data.

I know I can respond with an object as long as both client and server share the object definition. But the reverse does not seem, to me, obvious. A quick google search only added to my confusion.

Please, let me know if you need further clarification.

Thank you for your time.

Alan

[brunofierens]

Here are the guidelines for working with XData objects from Web Core:

Web Applications with TMS Web Core | TMS XData documentation

[Fletcher_Alan]

I finally got around to dig in to the link you suggested. And I have a very simple question.

Given an Object in the TMS Web Application, say TPerson, how do I serialize that object to send it to the server?

I cannot find the exact unit and method to do so. What would you suggest?

Thanks,

Alan

[wlandgraf (Wagner Landgraf)]

@Fletcher_Alan

how do I serialize that object to send it to the server?

You don't serialize. You should just send the object directly to the server.

But, if such object is not flagged as "external", it does have internally (in the underlying JavaScript object) several private fields that are not only the fields you declared in the class. So if you send that object, it might fail with the server which will not recognize those fields.

Either use a class declared as external or just manually build a simple TJObject instance and fill its fields.

[Fletcher_Alan]

So you are saying that it should be something like this:

Type
  TPerson = class
  private
    FName: string;
    FBirthDate: TDateTime;
  public
    Name: string read FName write FName;
    BirthDate: TDateTime read FBirthDate;
end;

...
  
// in code I should do something like

  APerson := TPerson.Create;
  APerson.Name := 'john doe';
  Aperson.Birthdate := Now;
  xdAddPerson.RawInvoke('IUserDataService.AddUser', [APerson]);

Or did I miss something?

Thanks!

[wlandgraf (Wagner Landgraf)]

@Fletcher_Alan

So you are saying that it should be something like this:

No, I said it shouldn't be something like that. I mentioned external classes of TJSObject class. References:

Deserialize TClass from XData to Web Core

You can parse the JSON and use it as a JSON object: var JsonObject: TJSObject; ... JsonObject := TJSJson.parseObject(StringJsonReturned); // then read the properties as JSON: Name := JS.ToString(JsonObject['Name']); If you want to strong type it, you can use external classes: TCustomers = class external name 'Object' public ID: Integer; Name: string; BranchList: TArray<TCustomerBranch>; end; and the same for other classes, then you can simply cast TJSObject to TCustomers: var Custome…

Send TXDataWebDataSet to XData Service

You can do something like (untested): var JSObj: TJSObject; JSArr: TJSArray; begin JSObj := TJSObject.new; JSArr := TJSArray,new; JSObj['Type'] := 'example...'; JSObj['Table1data'] := JSArr; tmytable.First; while not tmytable.Eof do begin Rows.push(tmytable.CurrentData); tmytable.Next; end; vResponse := await(vClient.RawInvokeAsync(vEndPoint, [JSObj]));

XDataWebClient.RawInvoke Parameter

I don't know what data your service expects? What is the service interface declaration? I would guess that you expect a JSON object, not a string, thus you have to use this: var Param: TJSObject; begin Param := TJSJson.parseObject('{"Function":"StartService","Version":10000,"Data":{"ServiceID":"'+id+'"}}'); XDataClient.RawInvoke('IKernelFunc.StartService', [Param], @OnResult);