Ejemplo de publicación de API REST de Delphi

Solución:

Solo usarías el de Indy TIdHTTP componente y llame al Post método. Pase la URL como primer argumento y su cadena JSON 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, usar alguna parte de nuestro mORMot Marco de código abierto:

uses SynCrtSock, SynCommons;
var t: variant;
begin
  TDocVariant.New
  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 utilizando un variant almacenamiento, que se convertirá en texto JSON cuando se envíe al servidor.

---

---

Utiliza Nuestro Buscador