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)