PHP-Array als REST-Parameter

[TiGü]

Delphi-Quellcode:

function GetValue: string;
var
  JSONObj1, JSONObj2: TJSONObject;
  JSONArray: TJSONArray;
begin
  JSONArray := TJSONArray.Create;

  JSONObj1 := TJSONObject.Create;

  JSONObj1.AddPair(TJSONPair.Create('property', 'name'));
  JSONObj1.AddPair(TJSONPair.Create('value', '%beach%'));
  JSONObj1.AddPair(TJSONPair.Create('operator', TJSONNumber.Create(1)));

  JSONArray.AddElement(JSONObj1);

  JSONObj2 := TJSONObject.Create;
  JSONObj2.AddPair(TJSONPair.Create('property', 'active'));
  JSONObj2.AddPair(TJSONPair.Create('value', TJSONNumber.Create(1)));

  JSONArray.AddElement(JSONObj2);

  Result := JSONArray.ToJSON;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  RestClient: TRESTClient;
  Param: TRESTRequestParameter;
begin
  RestClient := TRESTClient.Create(Self);
  Param := RestClient.Params.AddItem;
  Param.Kind := TRESTRequestParameterKind.pkGETorPOST;
  // Die englische Doku ist in der Regel eher gefüllt als die deutsche Übersetzung:
  // http://docwiki.embarcadero.com/Libraries/Rio/en/REST.Types.TRESTRequestParameterOption
  Param.Options := Param.Options + [TRESTRequestParameterOption.poPHPArray];
  Param.name := 'filter';
  Param.Value := GetValue;   
end;

Das finden und lösen der Speicherlecks ist Teil der Klausur!
Hab hier nur ein Tokyo zum zusammenbasteln, musst mal sehen ob das mit dem Array passt.

[Guido R.]

Hallo TiGü !

Vielen Dank für Deine schnelle Antwort.
Also wird die Information als als JSON an tRestRequest übergeben. Daran hatte ich mich bereits versucht -
Leider werden meine Anfragen völlig ignoriert.

Ich habe in der DB genau eine Bestellung und diese hat als customerId den Wert 1.
Obwohl ich mit dem u.a. Aufruf eigentlich nur die Bestellungen mit einer customerId 3 Abrufen möchte (und somit eine leere Liste erwarte), wird mir trotzdem die ganze (1 Datensatz) Liste mit der Bestellung mit customerId 1 zurück gegeben.

Delphi-Quellcode:

procedure TDMod.DLOrdersActionExecute(Sender: TObject);
var JObj  : tJSONObject;
    JAry  : tJSONArray;
    Param : TRESTRequestParameter;
begin
 RestRequest.Resource := 'orders';
 JAry := tJSONArray.Create;
 JObj := tJSONObject.Create;
 JObj.AddPair('property','customerId');
 JObj.AddPair('expression','=');
 JObj.AddPair('value',tJSONNumber.Create(3));
 JAry.Add(JObj);
 RestRequest.Params.Clear;
 Param         := RestRequest.Params.AddItem;
 Param.Name    := 'filter';
 Param.Kind    := TRESTRequestParameterKind.pkGETorPOST;
 Param.Options := Param.Options + [TRESTRequestParameterOption.poPHPArray];
 Param.Value   := JAry.ToJSON;
 RestRequest.Execute;
 if RestResponse.StatusCode=200
  then begin
        ShowMessage(IntToStr(OrdersMemTable.RecordCount));
       end;
end;

Hast Du irgendeine Idee, was ich übersehen haben könnte ?

Ich hab's auch mit dem RestDebugger probiert :
Parameter [GET/POST] filter=[{"property":"customerId","expression":"=","value": 3}]
Mit und ohne Expression....
... dafür immer ohne Erfolg.