Danke für Eure Tips, ich stand echt im Wald
Ich habs dann jetzt so gemacht:
Delphi-Quellcode:
procedure TFRest.BtnSetPreisClick(Sender: TObject);
var obj : TJsonObject;
objGroupPrices : TJsonArray;
begin
Req.ResetToDefaults;
Req.Method := rmPUT;
Req.Resource := '
api.php/v2/product_prices/{product_id}';
EditResource.editvalue := req.Resource;
Req.Addparameter('
product_id', '
7', TRESTRequestParameterKind.pkURLSEGMENT);
Obj := TJSONObject.Create;
ObjGroupPrices := TJSonArray.Create;
obj.AddPair('
groupPrices',objGroupPrices);
obj.Addpair('
price' ,TJsonNumber.create(10));
memo1.clear;
memo1.Lines.Add(obj.toJson);
req.addbody(obj);
objGroupPrices.free;
Req.Execute;