Servidores Rest

[Neeruu]

WHILENOTEOF, voy a aprovecharme de tu solidaridad. Tu que tienes el libro, dice algo del lo que consulte respecto a la estructura del JSON, busque por todos lados y hasta donde llega mi entendimiento y no puedo solucionarlo.

[Neeruu]

Hola nuevamente, logre que el objeto json que viene en el post se lea con el formato que le paso.

Agregue las siguientes propiedades:

Código Delphi [-]
    [MVCPath('/api/proveedor')]
    [MVCHTTPMethod([httpPOST])]
    //[MapperJSONSer('PROVEEDORES')]
    //[MVCConsumes('application/json')]
    [MVCConsumes(TMVCMediaType.APPLICATION_JSON)]
    procedure CreateProveedor;

Y luego en el procedimiento:

Código Delphi [-]
procedure ControllerProveedores.CreateProveedor;//(const [ MVCFromBody] Proveedor:TProveedor);
var Proveedor: TProveedor;
begin
  Proveedor := Context.Request.BodyAs('PROVEEDORES');

'PROVEEDORES' es el RootName;

De esta forma puedo levantar la informacion enviada con este formato de JSON:

Código Delphi [-]
{
    "PROVEEDORES": {
        "COD_PROV": 4,
        "NOM_PROV": "PRUEBA3_EDIT",
        "COD_USER": 0
    }
}