Hallo !

Ich versuche gerade nochmals auf die API von Shopware zuzugreifen.
Insbesondere möchte ich die Rückgabe der Abfragen minimieren, indem ich Filter verwende.
In der Dokumentation der api werden die Filter als PHP Array beschrieben :

markieren

Code:

$params = [
    'filter' => [
        [
            'property' => 'name',
            'value' => '%beach%',
            'operator' => 1
        ],
        [
            'property' => 'active',
            'value' => 1
        ]
    ]
];

$client->get('articles', $params);

Ich stehe nur absolut auf dem Schlauch, wie ich das in Delphi formatieren, bzw. anlegen muss, damit ich es als Parameter an tRestRequest übergeben kann.

tRestRequestParameter enthält die Option "poPHPArray" - Die Hilfe von embarcadero dazu ist aber (wieder einmal)
"Embarcadero Technologies verfügt derzeit über keine zusätzlichen Informationen"

Alles was ich bisher versucht habe führte entweder zu einem Fehler oder wurde schlicht ignoriert.

Hat jemand eine Idee ?

LLAP
Guido R.

zusammenfalten · markieren

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.

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.

zusammenfalten · markieren

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.

Hmm...

Zitat von Guido R.:

markieren

Code:

$params = [
    'filter' => [
        [
            'property' => 'name',
            'value' => '%beach%',
            'operator' => 1
        ],
        [
            'property' => 'active',
            'value' => 1
        ]
    ]
];

Ich sehe hier keine JSON Objecte, sondern ein array von Arrays...

Somit wohl eher:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TDMod.DLOrdersActionExecute(Sender: TObject);
var JObj : tJSONArray;
    JAry : tJSONArray;
    Param : TRESTRequestParameter;
begin
 RestRequest.Resource := 'orders';
 JAry := tJSONArray.Create;
 JObj := tJSONArray.Create; // Hier ein Daten ARRAY statt OBJECT
 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;

Hallo HolgerX,

einem JSONArray kann man nicht mit AddPair Informationen zufügen. Ich habe daher mal ein weiteres JSONArray um das bisherige Konstrukt herum gebaut.
Somit wurde also pratisch [[{"property":"customerId","expression":"=","value": 3}]] übertragen.
Mit dem gleichen Ergebnis.

Du musst diese php-Funktion in Delphi nachbilden
http://php.net/manual/de/function.http-build-query.php

Das wird dann der Query-Part der URI

Hallo Schokohase !

Dankeschön! - Nach einigem hin und her habe ich dadurch erkannt wie es funktioniert...
... zumindest scheint es zu funktionieren.

Für den Nachbau im REST-Debugger :

Vorgabe :

markieren

Code:

$params = [
    'filter' => [
        [
            'property' => 'pseudoSales',
            'expression' => '>=',
            'value' => 1
        ],
        [
            'property' => 'active',
            'value' => 1
        ]
    ]
];

Dazu im RESTDebugger folgende Parameter anlegen :

Art	Name	Wert	nicht verschlüsseln
Query	filter[0][property]	pseudoSales
Query	filter[0][expression]	>=
Query	filter[0][value]	1
Query	filter[1][property]	active
Query	filter[1][value]	1

Ich muss den Spaß jetzt nur noch im Programm umsetzen...