variable tipo AnsiString para un Token

[Casimiro Notevi]

No me queda claro tu explicación, ansistring no es unicode. ¿Cuándo te funciona y cuándo no? Y si funciona de alguna forma, ¿cuál es el problema entonces?

[novato_erick]

Empezado por Casimiro Notevi

No me queda claro tu explicación, ansistring no es unicode. ¿Cuándo te funciona y cuándo no? Y si funciona de alguna forma, ¿cuál es el problema entonces?

Disculpa por poner mas verduras a la sopa...

Funciona solamente es agregando el token directamente a la variable sea String o AnsiString pero directamente desde copy and paste en el codigo fuente.

Código Delphi [-]
//De esta manera funciona tanto en AnsiString o String pero tengo que copiarlo y pegarlo directamente desde el RESTDebugger a la hora de la respuesta
     RequestBody :=
      'eyJhbGciOiJIUzI1NiIsInR5cCI6IkpXVCJ9.eyJodHRwOi8vc2NoZW1hcy54bWxzb2Fw' +
      'Lm9yZy93cy8yMDA1LzA1L2lkZW50aXR5L2NsYWltcy9uYW1laWRlbnRpZmllciI6IjI3N' +
      'SIsImh0dHA6Ly9zY2hlbWFzLnhtbHNvYXAub3JnL3dzLzIwMDUvMDUvaWRlbnRpdHkvY2' +
      'xhaW1zL25hbWUiOiJXb25nMjAiLCJBc3BOZXQuSWRlbnRpdHkuU2VjdXJpdHlTdGFtcCI' +
      '6IjY1RlhCUlRSSVlGVFRUUENMVFFRWUk2M05CMkFLSTVZIiwiaHR0cDovL3NjaGVtYXMu' +
      'bWljcm9zb2Z0LmNvbS93cy8yMDA4LzA2L2lkZW50aXR5L2NsYWltcy9yb2xlIjoiQ2Fza' +
      'GllciAtIEFiYXJyb3RlcmlhIiwiaHR0cDovL3d3dy5hc3BuZXRib2lsZXJwbGF0ZS5jb2' +
      '0vaWRlbnRpdHkvY2xhaW1zL3RlbmFudElkIjoiMjQ0IiwiQXBwbGljYXRpb25fVXNlckFj' +
      'Y2Vzc2libGVFbnRpdGllcyI6Ilt7XCJFbnRpdHlJZFwiOjEsXCJFbnRpdHlUeXBlXCI6Mn' +
      '1dIiwic3ViIjoiMjc1IiwianRpIjoiNDNkOGY5ZjQtODk4Mi00N2E0LWI1ZTYtZTAzZjc1' +
      'YjY2Yjg4IiwiaWF0IjoxNTk5ODQwMjUxLCJuYmYiOjE1OTk4NDAyNTEsImV4cCI6MTU5OT' +
      'g2MTg1MSwiaXNzIjoiU29saWRhcml0eSIsImF1ZCI6IlNvbGlkYXJpdHkifQ.6wvJyvgQQg'
      + 'LqC7VN2TDdjD-_fbh33gOAkso2FeXwFSI';

RESTRequest1.Params[0].Value := 'Bearer ' +RequestBody;
RESTRequest1.Excecute;
  //Hasta aquí todo Bien//

//De esta manera no logro que funcione utilizando el componente FDMemTable en el parametro de salida AccesToken1 de tipo string para almacenarlo en variable
RequestBody := FDMemTableAccesToken1.AsString;//<--- de esta manera me manda el error antes mencionado.
RESTRequest1.Params[0].Value := 'Bearer ' +RequestBody;
RESTRequest1.Excecute;
//Error 401 no autorizado//

Gracias ante mano Casimiro.


saludos

novatoerick

[novato_erick]

Casimiro Eureka.

Sabes el problema no estaba en las variables si no en el tamaño por defecto que tiene el componente:

Código Delphi [-]
//Aqui el problema en el tamaño asignado que me otorgó el componente
 FDMemTable.ParamByName('AccessToken').size := 500; //<-- el tipo de dato soporta más de 256 carácteres y es ilimitado el tipo de dato

//aquí la solución Cambiandolo a size 1000

FDMemTable.ParamByName('AccessToken').size := 1000; //Resuelto el problema

leer parte de tu sugerencia "Casimiro" en cuanto Unicode me dio una luz en el camino. bueno es parte de la poca experiencia que tengo en usar Recursos de API.

Saludos Fraternales;

novatoerick

[Casimiro Notevi]

Me alegro de que lo hayas solucionado