Servidores Rest

[Neeruu]

Hola WHILENOTEOF, el libro es gratis o de pago?

Muchas gracias por tu aclaración sobre el pooling de conexiones.

[WHILENOTEOF]

ES de pago, https://leanpub.com/delphimvcframework , si puedes permitírtelo te lo recomiendo. Si no, revisando los ejemplos , puedes hacerte también una idea de las posibilidades y de cómo funciona.

[Neeruu]

Una consulta:

Tengo un JSON, con esta estructura:

{
    "PROVEEDORES": {
        "COD_PROV": 4,
        "NOM_PROV": "PRUEBA3_EDIT",
        "COD_USER": 0
    }
}

Si esta de esa forma, cuando mapea asi:

Código Delphi [-]
    [MVCPath('/api/proveedor')]
    [MVCHTTPMethod([httpPOST])]
    procedure CreateProveedor([MVCFromBody] Proveedor: TProveedor);

No me carga los valores en el objecto Proveedor.


Ahora si saco la palabra "PROVEEDORES" de JSON mapea correcto los valores.
Hay alguna configuración para indicarle el nombre del Objecto.

Código Delphi [-]
  TProveedor = class
  private
    [JSONName('COD_PROV')]
    FCODPROV: Integer;
    [JSONName('NOM_PROV')]
    FNOMPROV: string;
    [JSONName('COD_USER')]
    FCODUSER: Integer;
  published
    property COD_PROV: Integer read FCODPROV write FCODPROV;
    property NOM_PROV: string read FNOMPROV write FNOMPROV;
    property COD_USER: Integer read FCODUSER write FCODUSER;
  end;

Disculpen si mi terminología no es correcta.

[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
    }
}

[Neeruu]

Empezado por WHILENOTEOF

ES de pago, https://leanpub.com/delphimvcframework , si puedes permitírtelo te lo recomiendo. Si no, revisando los ejemplos , puedes hacerte también una idea de las posibilidades y de cómo funciona.

Me encantaría comprarlo pero la conversión Peso/Dolar hace que sea un valor muy elevado el del libro.

[Neeruu]

Hola buenos dias.

Alguien ocupo este componente para convertir json en dataset?
Funciona? es recomendable? tienen alguna otra alternativa?

https://github.com/viniciussanchez/dataset-serialize

Es del mismo desarrollador de Horse.

Saludos.

[Neftali [Germán.Estévez]]

Empezado por Neeruu

Alguien ocupo este componente para convertir json en dataset?
Funciona? es recomendable? tienen alguna otra alternativa?

Yo miraría los que vienen con delphi. En especial el TRESTResponseDataSetAdapter.
Lo digo porque el RESTDebugger que viene con delphi, hace exactamente lo que tú estás pidiendo y lo hace con los componentes de delphi.

Si en el RESTDebugger ejecutas un GET que te devuelva datos con esta estructura:

[{"cif":"S7668730J","name":"ORACULACESL","creation_date":"16/06/1992","phonenumber":"937016021","faxnumber":"937016022","email":"[email protected]","municipality": "Reinoso","municipality_inecode":"09310","province":"Burgos","province_inecode":"09","address":"VíaF uente","address_number":"1","address_zipcode":"09710","cnae":"9900","activity":"Actividadesdeorganiz acionesyorganismosextraterritoriales"},{"cif":"F98923642","name":"OXYLEXSA","creation_date":"26/06/1964","phonenumber":"976978765","faxnumber":"976978766","email":"[email protected]","municip ality":"Paderne","municipality_inecode":"15064","province":"Coruña,A","province_inecode":"15","addre ss":"CallejónHorno","address_number":"34","address_zipcode":"15516","cnae":"8424","activity":"Ordenp úblicoyseguridad"}]

Que tiene la misma estructura que tú necesitas:

Código Delphi [-]
[
    {
        "cif": "S7668730J",
        "name": "ORACULACESL",
        "creation_date": "16/06/1992",
        "phonenumber": "937016021",
        "faxnumber": "937016022",
        "email": "[email protected]",
        "municipality": "Reinoso",
        "municipality_inecode": "09310",
        "province": "Burgos",
        "province_inecode": "09",
        "address": "VíaFuente",
        "address_number": "1",
        "address_zipcode": "09710",
        "cnae": "9900",
        "activity": "Actividadesdeorganizacionesyorganismosextraterritoriales"
    },
    {
        "cif": "F98923642",
        "name": "OXYLEXSA",
        "creation_date": "26/06/1964",
        "phonenumber": "976978765",
        "faxnumber": "976978766",
        "email": "[email protected]",
        "municipality": "Paderne",
        "municipality_inecode": "15064",
        "province": "Coruña,A",
        "province_inecode": "15",
        "address": "CallejónHorno",
        "address_number": "34",
        "address_zipcode": "15516",
        "cnae": "8424",
        "activity": "Ordenpúblicoyseguridad"
    }
]

En la pestaña BODY te devuelve el JSON, pero en la pestaña TABULAR DATA, te devuelve los datos en formato TDataset (DBGrid).
Revisa este artículo porque creo que explica lo que necesitas.