Rest Json Fehler 415 unsopported Media Type

[Uwe Raabe]

Die Product ID gehört ja in die URL. Das gibt man bei AddParameter an:

Delphi-Quellcode:

Request.Addparameter('product_id', '7', TRESTRequestParameterKind.pkURLSEGMENT);

Für den Body solltest du ein passendes Objekt als JSON übergeben:

Delphi-Quellcode:

type
  { unvollständige Klasse ohne richtigen Support für GroupPrices und GraduatedPrices. Erweiterung als Übung :) }
  TUpdateProductPrices = class
  type
    TGroupPrice = class
    type
      TGraduatedPrice = class
        FGraduatedPrice: Double;
        FThreshold: Double;
      end;
    private
      FCustomerGroupId: Integer;
      FGraduatedPrices: TArray<TGraduatedPrice>;
      FGroupPrice: Double;
    end;
  private
    FGroupPrices: TArray<TGroupPrice>;
    FPrice: Double;
  public
    property Price: Double read FPrice write FPrice;
  end;

...

  instance := TUpdateProductPrices.Create;
  try
    instance.Price := 10;
    Request.AddBody<TUpdateProductPrices>(instance); // hier wird das JSON intern zusammengebaut
  finally
    instance.Free;
  end;

[josef-b]

Geht das mit addbody evtl. auch ohne Klassen zu erstellen?

[Uwe Raabe]

Zitat von josef-b:

Geht das mit addbody evtl. auch ohne Klassen zu erstellen?

Ja, wenn du das JSON bzw. JSONObject selbst zusammenbaust.

[josef-b]

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;