post a web

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

Empezado por oscarac

ahora a averiguar como subir un archivo a esa web.....

En el componente TREStRequest tienes la propiedad Body y utilizando esa propiedad puedes realizar un Add de un fichero por ejemplo:

Código Delphi [-]
...

var
  Contenido:TStream;
...
  RESTRequest1.Body.Add(Contenido, TRESTContentType.ctAPPLICATION_XML);

Con esto añades un XML al envío (previa carga del XML en el Stream Contenido).

[[oscarac]]

gracias por responder.....
estuve haciendo las pruebas via postman y ya funciona....
el tema aqui en delphi es....
uso compronentes REST para conectarme y obtener el token
debo usar otros componentes rest para enviar el archivo? asumo que si
el archivo que pretendo enviar en un txt

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

Empezado por oscarac

el tema aqui en delphi es....
uso compronentes REST para conectarme y obtener el token
debo usar otros componentes rest para enviar el archivo? asumo que si
el archivo que pretendo enviar en un txt

Esto es como plantear ¿Debo usar 2 componentes de TQuery para un INSERT y un SELECT o puedo usar el mismo?
Pues efectivamente puedes hacer las 2 cosas, según lo que te interese por comodidad, legibilidad, facilidad,...

* Si usas un sólo componente lo configuras para la primera operación y luego para la segunda.
* Si usas 2 diferentes, pues ya puedes tener configurado cada uno con sus propiedades.

En la segunda tendrás menos código seguramente, pero ambas son igual de buenas, dependiendo de los que prefieras hacer. Vamos que va a gustos la cosa...

[[oscarac]]

exactamente, pero como los parametros los obtuve de restrequest, entonces no conozco el contenido al 100%

podrias ayudarme en una explicacion paso a paso como usar 2 componentes (teniendo en cuenta que en el primero ya logré la conexion y tengo el token)

Código Delphi [-]
 varTk := JsonValue.GetValue<string>('data.data.tk');

aqui tengo el token
tengo un archivo de texto en d:\archivos\
quiero enviarlos
segun veo en postman debo usar
bearer token
content-type forma-data
en el body un key de nombre archivo tipo file y en el value el nombre del archivo

como replico esto en delphi?


primera vez q estoy usando rest, no he tenido experiencias previas...

[[oscarac]]

actualizacion :

agregue el componente

OAuth2Authenticator
en el restclient2 asocie el componente en la propiedad "authenticator"

cambie el Token Type = ttBEARER

ya se conecta al repositorio donde debo colocar el archivo....

ahora investigar como subir el archivo de texto

[[oscarac]]

continuo con mi problema

con esta parte me conecto al endpoint

Código Delphi [-]
  RESTRequest1.Execute;
  jValue := RESTResponse1.JSONValue;
  Memo1.Text := jValue.ToString;
  Branch := jValue.ToString;

  st := Memo1.text;
  JSonValue := TJSonObject.ParseJSONValue(Branch);
  Label1.Caption := JSonValue.GetValue<string>('data.mensaje');
  Label2.Caption := JSonValue.GetValue<string>('data.data.tk');
  OAuth2Authenticator1.AccessToken := JSonValue.GetValue<string>('data.data.tk');

este es el archivo q quiero enviar
localfile := 'd:\desarrollo\concesiones\servicial\aris\envios\LURIN-09052023.txt';

primer intento fallido

Código Delphi [-]
{  jsRequest := TJSONObject.Create();
  jsRequest.AddPair('file', 'archivo');
  jsRequest.AddPair('value', localfile);
  RESTRequest2.AddBody(jsRequest);
 }

segundo intento fallikdo

Código Delphi [-]
RESTRequest2.AddParameter('archivo', localfile, TRESTRequestParameterKind.pkREQUESTBODY);

tercer intento fallido

Código Delphi [-]
//  RESTClient2.Params.AddItem('name', 'file', TRESTRequestParameterKind.pkGETorPOST, [], TRESTContentType.ctMULTIPART_FORM_DATA);
//  RESTClient2.Params.AddItem('archivo', localfile, TRESTRequestParameterKind.pkGETorPOST, [],

cuarto intento fallido

Código Delphi [-]
//st:=('{"archivo": ' + localfile + '}');
//RESTRequest2.AddBody(st);

quinto intento fallido

Código Delphi [-]
{RESTClient2.Params.AddItem; //Adds a new Parameter Item
RESTClient2.Params.Items[0].name := 'archivo'; //sets the name of the parameter. In this case, since i need to use 'data=' on the request, the parameter name is data.
RESTClient2.Params.Items[0].Value := localfile; //Adds the value of the parameter, in this case, the XML data.
RESTClient2.Params.Items[0].ContentType := ctMULTIPART_FORM_DATA; //sets the content type.
RESTClient2.Params.Items[0].Kind := pkGETorPOST; //sets the kind of request that will be executed.
 }

Código Delphi [-]
RESTRequest2.Execute;
Memo2.Lines.Add(RESTResponse2.Content);
JSonValue.Free;

mi razonamiento es el siguiente....
si en postman coloco el archivo en el body (form-data)
el key es "archivo" y el value es el nombre del archivo

el tema es que el archivo es de tipo "file"

creo que casi todo esta bien.... incluso cuando pruebo con postman (sin enviar el archivo o archivo vacio) me devuelve el mismo mensaje que en delphi, parece que solo tengo que descubrir como meter en el body del request los parametros

o será que ya me hice un mundo en la cabeza.. y no puedo ver la solución

[[oscarac]]

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

En el componente TREStRequest tienes la propiedad Body y utilizando esa propiedad puedes realizar un Add de un fichero por ejemplo:

Código Delphi [-]
...

var
  Contenido:TStream;
...
  RESTRequest1.Body.Add(Contenido, TRESTContentType.ctAPPLICATION_XML);

Con esto añades un XML al envío (previa carga del XML en el Stream Contenido).

creo que la solución esta aquí, me explicas como cargar un txt en el Dtream porfa?

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

Hay varias formas, puedes probar esta:

Código Delphi [-]
stream2 := TStringStream.Create(System.Utf8ToAnsi(s1.DataString), TEncoding.ANSI);

[[oscarac]]

Averigue un poco mas y estoy asignando los valores de forma manual
la conexion inicial para obtener el token, funciona....
la conexion a la web donde debo colocar el archivo funciona....
lo que hasta ahora no puedo lograr es subir el archivo...
quisiera entender la logica...

esto es lo q he avanzado

Código Delphi [-]
localfile := 'd:\desarrollo\concesiones\servicial\aris\envios\LURIN-09052023.txt';

  try
    // CLiente
    RCCredenciales.ResetToDefaults;
    RCCredenciales.BaseURL := 'https://zona-api.aris.com.pe/v1/user/signin';
    RCCredenciales.Accept := 'application/json, text/plain; q=0.9, text/html;q=0.8,';
    RCCredenciales.AddParameter('user', 'usuario');
    RCCredenciales.AddParameter('password', '**************');

    RQCredenciales.Method := TRESTRequestMethod.rmPOST;
    RQCredenciales.Execute;

    // Ya se conectó a la web

    jValue := RRCredenciales.JSONValue;
    Branch := jValue.ToString;
    JSonValue := TJSonObject.ParseJSONValue(Branch);

    // Chapo El Token y lo coloco en el Auth2
    oAUTHRQ.AccessToken := JSonValue.GetValue<string>('data.data.tk');
    oAUTHRQ.TokenType := TOAuth2TokenType.ttBEARER;
    Memo1.Text := Branch;

    RCFile.ResetToDefaults;
    RCFile.BaseURL := 'https://zona-api.aris.com.pe/v1/concesionario/masivo';
    RCFile.Accept := '*/*';

//Set Content-Type to text/plain
    RQFile.Params.AddHeader('Content-Type', 'multipart/form-data');


//// aqui es donde me pierdo y no logro entender como adjuntar el archivo
/// ni decirle a delphi que tiene key y value
/// l key debe ser "archivo" y el value el nombre del archivo

//Set Request Body to FileStream
    try
      _file := TStringStream.Create(System.Utf8ToAnsi(localfile), TEncoding.ANSI);
    finally

    end;
    RQFile.ClearBody;
    RQFile.AddParameter('archivo',localfile);
    RQFile.AddBody(_file, TRESTContentType.ctTEXT_PLAIN);

    RCFile.Authenticator := oAUTHRQ;
    RQFile.Execute;
    jValue := RRFile.JSONValue;
    Memo2.Text := jValue.ToString;



    // Continuar con la segunda Conexion

  finally

  end;

me gustaria mucho ENTENDER como es el proceso.....
si me das una mano seria genial
gracias

[pgranados]

Neftali te comenta que utilices:

Código Delphi [-]
RESTRequest1.Body.Add

Pero tu utilizas:

Código Delphi [-]
RQFile.AddParameter('archivo',localfile);
RQFile.AddBody(_file, TRESTContentType.ctTEXT_PLAIN);

Si la petición ya la lograste utilizando alguna herramienta como PostMan o directamente el RestDebugger compara tu request formado en estas herramientas contra el tuyo formado manualmente para identificar donde esta el problema.

En otro punto, veo que en el codigo cargas un archivo .txt pero en los comentarios tambien mencionan un archivo .xml

¿Que archivo vas a cargar? Saludos.

[[oscarac]]

hola gracias por responder

estuve viendo el tema que me recomendp Netfali

para eso estoy usando el TStream y "cargandolo" en el body

Código Delphi [-]
    RQFile.ClearBody;
    RQFile.AddParameter('archivo',localfile);
    RQFile.AddBody(_file, TRESTContentType.ctTEXT_PLAIN);

en restdeguger no encuentro una forma de subir el txt (es el unico archivo q quiero subir.. no hay xml)

uso addbody porque en el restrequest no hay un body.add

[pgranados]

Empezado por oscarac

hola gracias por responder

estuve viendo el tema que me recomendp Netfali

para eso estoy usando el TStream y "cargandolo" en el body

Código Delphi [-]
    RQFile.ClearBody;
    RQFile.AddParameter('archivo',localfile);
    RQFile.AddBody(_file, TRESTContentType.ctTEXT_PLAIN);

en restdeguger no encuentro una forma de subir el txt (es el unico archivo q quiero subir.. no hay xml)

uso addbody porque en el restrequest no hay un body.add

Vete a Tools y luego RestDebugger y en request puedes agregar el body manulamente, luego de agregar todos los params y el body envia el request y ya teniendo exito copia los componentes a tu form y modifica los parametros que siempre cambiaran

[[oscarac]]

eso estoy intentando hacer
pero si te das cuenta
primero debo obtener un token de esta direccion

https://zona-api.aris.com.pe/v1/user/signin

una vez obtenido ese token (no encuentro forma de replicar eso en restdebugger)

necesito subir el archivo...