mORMot Open Source

restServer.ServiceRegister(TPerfilService,[TypeInfo(IPerfilService)],sicShared);

Server:= TSQLHTTPServer.Create('8080',[restServer]);
Server.Route.Get('/Perfiles', 'root/PerfilService.getperfilesusuario');

Hi I read the article and I added this to my server but it still only works with the full route. Did I misunderstood how it works? This is how my service is defined:

procedure TPerfilService.getperfilesusuario(out Resultado, Descripcion: string;
  out Datos: RawJson);
var
  dao:TDAO;
  Lista:specialize TObjectList<TPerfil>;
  jsonData:TJSONObject;
  docArray:TJSONArray;
  perfil:TPerfil;
  response:TResponse;
begin
    dao:=TDAO.Create;
    Lista:=dao.GetPerfilesUsuario;
    docArray:=TJSONArray.Create();
    for perfil in Lista do begin
        jsonData:=TJSONObject.Create();
        jsonData.Add('Perfil',perfil.PERFIL.ToString);
        jsonData.Add('Nombre',perfil.NOMBRE);
        jsonData.Add('Permisos',perfil.PERMISOS);
        docArray.add(jsonData);
    end;
    Resultado:='0'
    Descripcion:='Operacion Correcta'
    Datos:=docArray.AsJSON;
end;

Thanks a lot. That fix it I'll keep that in mind and do my other services as procedures.