Tema: post a web
Ver Mensaje Individual
  #18  
Antiguo 15-05-2023
Avatar de oscarac
[oscarac] oscarac is offline
Miembro Premium
 
Registrado: sep 2006
Ubicación: Lima - Perú
Posts: 2.010
Reputación: 20
oscarac Va por buen camino
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
__________________
Dulce Regalo que Satanas manda para mi.....
Responder Con Cita