Requête HTTP avec REST

Version imprimable

Bonjour à tous. j'ai encore une préoccupation.
j'ai une application qui doit communiquer avec une API d'un fournisseur.
voici un exemple de données à envoyé par l'API en utilisant la methode post.

Exemple:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
"ifu":"9999900000001",
"type":"FV",
"items":[ {
               "name":"Jus d'orange",
               "price":1800,
               "quantity":2,
               "taxGroup":"B"
             },
             {
               "name":"Lait 1/1 EX",
               "price":450,
               "quantity":3,
               "taxGroup":"A"
             } ],

voici la portion de mon code pour les deux première ligne.

Code:

1
2
3
4
FmMCF.RESTClient1.BaseURL:='https://developper.impots.bj/sygmef-emcf/api/invoice';
FmMCF.RESTRequest1.Params.ParameterByName('Authorization').Value:='clé d''authentification';
FmMCF.RESTRequest1.Params.ParameterByName('ifu').Value:='1111111111111';
FmMCF.RESTRequest1.Params.ParameterByName('type').Value:='FV';

25/03/2021, 10h09
pprem

Bonjour

Je suppose que la question que tu ne poses pas est de savoir comment passer items ?

Le plus simple est de construire ton tableau d'objets JSON et de le mettre dans items avec un ToJSON.

Bonjour,

de ma bagarre avec PrestaShop j'ai obtenu un truc qui fonctionne
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 function TDataPrestashop.updatecombinaison(boutique: string; id, idprod, mqte: Integer; ean, ref, sku: String): Integer; var axml: String; const fxml = '<?xml version="1.0" encoding="UTF-8"?> ' + '<prestashop xmlns:xlink="http://www.w3.org/1999/xlink"> ' + '<combination> ' + ' <id>%d</id> ' + ' <id_product>%d</id_product> ' + ' <reference>%s</reference>' + ' <ean13>%s</ean13> ' + ' <supplier_reference>%s</supplier_reference> ' + ' <minimal_quantity>%d</minimal_quantity> ' + ' </combination> ' + '</prestashop>'; begin RESTClientUpdate.BaseURL := Format('https://%s/api/combinations/%d', [boutique, id]); axml := Format(fxml, [id, idprod, ref, ean, sku, mqte]); RESTUpdate.Params.ParameterByName('body').Value := axml; try RESTUpdate.Execute; { TODO -oOwner -cGeneral : Test résultat = 200 } result := RESTResponseUpdate.StatusCode; // if result <> 200 then // showmessage(RESTResponseUpdate.Content); except result:=400; end; end;
cela écrit, bien que j'ai lu que les composants REST gérait mieux les tableaux je n'ai jamais tenté.

C'est peut-être malgré tout une solution peu "orthodoxe" de faire mais, sur ce schéma il doit être possible de créer un xml adapté à la demande.

Bon, tout à fait entre nous, j'ai dit que je ne savais/pouvais pas créer des articles dans PrestaShop à partir de mes bases de données, c'est certainement possible en fait mais je ne vais pas me lancer dans cette galère !

25/03/2021, 11h39
mehady

Citation:

Envoyé par pprem

Bonjour

Je suppose que la question que tu ne poses pas est de savoir comment passer items ?

Le plus simple est de construire ton tableau d'objets JSON et de le mettre dans items avec un ToJSON.

Exactement c'est là mon souci. Comment passer items.
Comment construire ce tableau d'objets JSON et de le mettre dans items avec un ToJSON?

Citation:
Envoyé par SergioMaster
Bonjour,

de ma bagarre avec PrestaShop j'ai obtenu un truc qui fonctionne
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 function TDataPrestashop.updatecombinaison(boutique: string; id, idprod, mqte: Integer; ean, ref, sku: String): Integer; var axml: String; const fxml = '<?xml version="1.0" encoding="UTF-8"?> ' + '<prestashop xmlns:xlink="http://www.w3.org/1999/xlink"> ' + '<combination> ' + ' <id>%d</id> ' + ' <id_product>%d</id_product> ' + ' <reference>%s</reference>' + ' <ean13>%s</ean13> ' + ' <supplier_reference>%s</supplier_reference> ' + ' <minimal_quantity>%d</minimal_quantity> ' + ' </combination> ' + '</prestashop>'; begin RESTClientUpdate.BaseURL := Format('https://%s/api/combinations/%d', [boutique, id]); axml := Format(fxml, [id, idprod, ref, ean, sku, mqte]); RESTUpdate.Params.ParameterByName('body').Value := axml; try RESTUpdate.Execute; { TODO -oOwner -cGeneral : Test résultat = 200 } result := RESTResponseUpdate.StatusCode; // if result <> 200 then // showmessage(RESTResponseUpdate.Content); except result:=400; end; end;
cela écrit, bien que j'ai lu que les composants REST gérait mieux les tableaux je n'ai jamais tenté.

C'est peut-être malgré tout une solution peu "orthodoxe" de faire mais, sur ce schéma il doit être possible de créer un xml adapté à la demande.

Bon, tout à fait entre nous, j'ai dit que je ne savais/pouvais pas créer des articles dans PrestaShop à partir de mes bases de données, c'est certainement possible en fait mais je ne vais pas me lancer dans cette galère !
Merci. j vais aussi m'en inspirer

Appeler AddBody directement avec en paramètre l'objet JSon.

Exemple avec tes données :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
var Body := TJSonObject.Create;
 
try
  Body.AddPair('ifu', '9999900000001');
  Body.AddPair('type', 'FV');
 
  var Item1 := TJSonObject.Create;
  Item1.AddPair('name', 'Jus d''orange');
  Item1.AddPair('price', '1800');
  Item1.AddPair('qty', '2');
  Item1.AddPair('taxGroup', 'B');
 
  var Item2 := TJSonObject.Create;
  Item2.AddPair('name', 'Lait 1/1 EX');
  Item2.AddPair('price', '450');
  Item2.AddPair('qty', '3');
  Item2.AddPair('taxGroup', 'A');
 
  var Items := TJSonArray.Create;
  Items.Add(Item1);
  Items.Add(Item2);
 
  Body.AddPair('Items', Items);
 
  // Pour contrôle
  ShowMessage(Body.Format);
 
  RESTRequest1.AddBody(Body);
  RESTRequest1.Execute;
 
finally
  Body.Free;
end;

Citation:

Envoyé par Andnotor

Appeler AddBody directement avec en paramètre l'objet JSon.

Exemple avec tes données :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
var Body := TJSonObject.Create;
 
try
  Body.AddPair('ifu', '9999900000001');
  Body.AddPair('type', 'FV');
 
  var Item1 := TJSonObject.Create;
  Item1.AddPair('name', 'Jus d''orange');
  Item1.AddPair('price', '1800');
  Item1.AddPair('qty', '2');
  Item1.AddPair('taxGroup', 'B');
 
  var Item2 := TJSonObject.Create;
  Item2.AddPair('name', 'Lait 1/1 EX');
  Item2.AddPair('price', '450');
  Item2.AddPair('qty', '3');
  Item2.AddPair('taxGroup', 'A');
 
  var Items := TJSonArray.Create;
  Items.Add(Item1);
  Items.Add(Item2);
 
  Body.AddPair('Items', Items);
 
  // Pour contrôle
  ShowMessage(Body.Format);
 
  RESTRequest1.AddBody(Body);
  RESTRequest1.Execute;
 
finally
  Body.Free;
end;

D'accord...! Merci beaucoup.

Je vais l’appliquer et j vous ferais le retour en cas de soucis

01/04/2021, 16h30
mehady

Bonsoir à tous. c'est résolu. grâce à l'exemple de Andnotor.

merci à vous tous (Andnotor, SergioMaster, pprem) pour vos contributions et promptitudes remarquables