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
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;
jValue := RRCredenciales.JSONValue;
Branch := jValue.ToString;
JSonValue := TJSonObject.ParseJSONValue(Branch);
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 := '*/*';
RQFile.Params.AddHeader('Content-Type', 'multipart/form-data');
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;
finally
end;
me gustaria mucho ENTENDER como es el proceso.....
si me das una mano seria genial
gracias