Saltar al contenido

Ejemplo de publicación de la API REST de Delphi

No busques más en otras webs porque llegaste al sitio indicado, contamos con la solución que deseas pero sin complicarte.

Solución:

Solo usarías el de Indy TIdHTTP componente y llamar al Post método. Pase la URL como primer argumento y su JSON string como segundo argumento. Algo como esto:

procedure TForm1.Button1Click(Sender: TObject);
var
  jsonToSend: TStringList;
  http: TIdHTTP;
begin
  http := TIdHTTP.Create(nil);
  try
    http.HandleRedirects := True;
    http.ReadTimeout := 5000;
    jsonToSend := TStringList.create;
    try
      jsonToSend.Add(' Your JSON-encoded request goes here ');
      http.Post('http://your.restapi.url', jsonToSend);
    finally
      jsonToSend.Destroy;
    end;
  finally
    http.Destroy;
  end;
end;

Supongo que ya puede codificar y decodificar el JSON y que solo estaba preguntando cómo realizar una publicación HTTP usando Delphi.

Una opción, usando alguna parte de nuestro mormota Marco de código abierto:

uses SynCrtSock, SynCommons;
var t: variant;
begin
  TDocVariant.New(t);
  t.name := 'john';
  t.year := 1982;
  TWinHTTP.Post('http://servername/resourcename',t,'Content-Type: application/json');
end;

Tenga en cuenta que aquí puede construir su contenido JSON usando un personalizado variant almacenamiento, que se convertirá como texto JSON cuando se envíe al servidor.

Ten en cuenta recomendar esta noticia si te fue útil.

¡Haz clic para puntuar esta entrada!
(Votos: 0 Promedio: 0)



Utiliza Nuestro Buscador

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *