HttpPost (TJson)

function (const iServiceProvider:string; const iUrl:string; var jsonR:TJson):integer;

Cette fonction exécute une requête POST sur un service REST et retourne la réponse dans la variable jsonR.

Paramètre	Usage
iServiceProvider	Nom du fournisseur de service utilisé pour configurer la requête
iURL	URL relative à l'URL du fournisseur de service
jsonR	Objet jsonR recevant la réponse

Exemples:

var jsonQ,jsonR:TJson; rslt:Integer; AStr:string; 
begin
  jsonQ := Tjson.Create('{....}');
  //
  rslt := jsonQ.httpPost('myServiceProvider','/myapi/myressource',jsonR); 

  if Assigned(jsonR) then
   begin
     // response has a json payload
     ShowMessage(Format('HTTP: %d %s',[rslt, jsonR.AsString));
   end
   else
   begin
     // response has no json payload
     ShowMessage(Format('HTTP: %d %s',[rslt, jsonQ.httpResponseText));
   end;
end;

Voir aussi: