post a web

[[oscarac]]

Empezado por oscarac

al final cambié a Indy.... y funcionó

les dejo el codigo por si alguien lo necesita

Código Delphi [-]
unit frmMain_f;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
  IdMultipartFormData, IdSSLOpenSSL, IdSSLOpenSSLHeaders, Vcl.StdCtrls,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
  IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdSSL, system.json;

type
  TForm1 = class(TForm)
    IndCredenciales: TIdHTTP;
    Button1: TButton;
    Memo1: TMemo;
    Label1: TLabel;
    IndCredencialesSSL: TIdSSLIOHandlerSocketOpenSSL;
    Memo2: TMemo;
    IndFile: TIdHTTP;
    IndFileSSL: TIdSSLIOHandlerSocketOpenSSL;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  //lHTTP: TIdHTTP;
  datosPost: TIdMultiPartFormDataStream;
  URL: string;
  response, tk, localfile: string;
  respuesta: TJSONValue;
  RequestBody: TStream;

begin
 localfile := 'd:\desarrollo\concesiones\servicial\aris\envios\LURIN-09052023.txt';
  try

    //Conexion Endpoint Primario
    URL := 'https://zona-api.aris.com.pe/v1/user/signin';


    datosPost := TIdMultiPartFormDataStream.Create;
    datosPost.AddFormField('user', 'user');
    datosPost.AddFormField('password', '***********');
    response := IndCredenciales.Post(URL, datosPost);
    Memo1.Text := response;
    respuesta := TJSonObject.ParseJSONValue(response);
    tk := respuesta.GetValue<string>('data.data.tk');
    Label1.Caption := tk;
    datosPost.Free;
    // Ya estoy conectado

    // Conexion EndPoint Archivo
    // enviar archivo
    URL := 'https://zona-api.aris.com.pe/v1/concesionario/masivo';
    IndFile.Request.CustomHeaders.FoldLines := False;
    indFile.Request.CustomHeaders.Add('Authorization:Bearer ' + tk);
    datosPost := TIdMultiPartFormDataStream.Create;
    datosPost.AddFile('archivo', localfile, 'multipart/form-data');
    Response := IndFile.Post(URL, datosPost);
    Memo2.Text := response;
    datosPost.Free;

  finally
  end;
end;


end.

buenas noches....este tema lo hice porque un cliente queria que se suba informacion a su repositorio en la web y me dá curiosidad saber como es que lo hace... (no hablo del subir la información porque eso ya se solucionó), es decir... como prepara su hosting en la dirección https://zona-api.aris.com.pe/v1/concesionario/masivo para procesar la informacion que recibe...

alguien me entendió?

[Casimiro Notevi]

Empezado por oscarac

alguien me entendió?

Creo que no

[[oscarac]]

Empezado por Casimiro Notevi

Creo que no

jajajaj casimiro...
la idea que tengo es....
subir data a una base de datos en la web, pero hacerlo a traves de un webservice que este validado con un token, para que solo las personas autorizadas puedan subir esa información

[Casimiro Notevi]

Es que es una pregunta muy general, dices que "cómo preparar su hosting para procesar la información que recibe".
Depende, ¿qué información? ¿ficheros? ¿datos en base de datos? ...

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

No se si te refieres a la parte del WebsService.
Por ejemplo, aquí tienes un WebService explicado paso a paso en PHP:
https://neftali.clubdelphi.com/25-ge...ervice-en-php/

En este caso recibe unos parámetros y con ellos hace una consulta (y devuelve los resultados), pero en lugar de eso puedes recibir un fichero en el cuerpo de la petición y con eso insertarlo en la Base de Datos.

¿Te refieres a eso?

[[oscarac]]

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

No se si te refieres a la parte del WebsService.
Por ejemplo, aquí tienes un WebService explicado paso a paso en PHP:
https://neftali.clubdelphi.com/25-ge...ervice-en-php/

En este caso recibe unos parámetros y con ellos hace una consulta (y devuelve los resultados), pero en lugar de eso puedes recibir un fichero en el cuerpo de la petición y con eso insertarlo en la Base de Datos.

¿Te refieres a eso?

claro, algo como esto, pero en lugar de leer datos, quiero escribir datos

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

Empezado por oscarac

claro, algo como esto, pero en lugar de leer datos, quiero escribir datos

Pues es un código similar al que tienes ahí, pero en lugar de lanzar un SELECT y retornar datos, puedes "montar" y lanzar un INSERT o un UPDATE.