TREST* Daten im Body übergeben

**Zwirbel**

Hallo,

bisher habe ich erfolgreich mit den Komponenten "TRESTClient", "TRESTRequest" und "TRESTResponse" eine Restabfrage implementieren können. Ebenfalls eine Übermittlung von Nutzdaten, allerdings waren da alle Daten per "TRESTClient.Params.AddItem('data', s);" hinzugefügt. Nun soll ich Nutzdaten versenden die alle im Body stehen. Aber wenn ich die Daten versende, bekomme ich immer einen Fehler "Modul: REST-Anforderung fehlgeschlagen: Execution of request terminated with unknown error".

Die Komponenten:

zusammenfalten · markieren

Delphi-Quellcode:

			object RESTClientMUCjson: TRESTClient

  Accept = 'application/json, text/plain; q=0.9, text/html;q=0.8,'

  AcceptCharset = 'UTF-8, *;q=0.8'

  Params = <>

  HandleRedirects = True

  OnHTTPProtocolError = RESTClientMUCjsonHTTPProtocolError

  Left = 48

  Top = 320

end

object RESTRequestMUCjson: TRESTRequest

  Client = RESTClientMUCjson

  Method = rmPOST

  Params = <

    item

    end>

  Response = RESTResponseMUCjson

  OnAfterExecute = RESTRequestMUCjsonAfterExecute

  SynchronizedEvents = False

  OnHTTPProtocolError = RESTRequestMUCjsonHTTPProtocolError

  Left = 120

  Top = 344

end

object RESTResponseMUCjson: TRESTResponse

  ContentType = 'application/json'

  Left = 200

  Top = 320

end

Der Code (das ganze dient mir erst mal dazu mit fest codierten Werten überhaupt einen Datensatz übermitteln zu können, um das Prinzip zu verstehen):

zusammenfalten · markieren

Delphi-Quellcode:

			function AddBodyStr(const aKey, aValue : string) : string;

  { Füge aKey, aValue dem Body hinzu

    Beispiel:

    rotationId=143982

    Das Funktionsergebnis liefert einen String mit einem "/" am Ende, so kann man aus dem

    Funktionsergbnis einen lesbaren Gesamtstring aller Bodies fürs loggen zusammen bauen. }

begin

  Result := '';

  if aValue <> '' then begin

    Result := Format('%s=%s', [aKey, aValue]);

    RESTRequestMUCjson.AddBody(Result, ctAPPLICATION_JSON);

    Result := Result + '/';

  end;

end;

rotationId         := '143982';

orderId            := '';

cleaningBegin      := '2016-10-10T14:25:00.000+02:00';

cleaningEnd        := '2016-10-10T14:55:00.000+02:00';

cleanerOnPosition  := '2016-10-10T14:30:00.000+02:00';

orderType          := 'QuickCleaning';

teamType           := 'Maier';

specialInformation := 'Spezial';

RESTClientMUCjson.BaseURL := Format(edtBaseURL.Text, [rotationId]);

Body := '';

Body := Body + AddBodyStr('rotationId', rotationId);

Body := Body + AddBodyStr('orderId', orderId);

Body := Body + AddBodyStr('cleaningBegin', cleaningBegin);

Body := Body + AddBodyStr('cleaningEnd', cleaningEnd);

Body := Body + AddBodyStr('cleanerOnPosition', cleanerOnPosition);

Body := Body + AddBodyStr('orderType', orderType);

Body := Body + AddBodyStr('teamType', teamType);

Body := Body + AddBodyStr('specialInformation', specialInformation);

AddResults(RESTClientMUCjson.BaseURL); // protokolliere die BaseURL

AddResults(Body);                      // protokolliere die einzelnen Nutzdaten

try

  RESTRequestMUCjson.Execute;

ergibt dann im Fehlerprotokoll:
[10.10.2016 13:26:59,561]

http://XXX/flight/143982/cleaningOrder
[10.10.2016 13:26:59,561] rotationId=143982/cleaningBegin=2016-10-10T14:25:00.000+02:00/cleaningEnd=2016-10-10T14:55:00.000+02:00/cleanerOnPosition=2016-10-10T14:30:00.000+02:00/orderType=QuickCleaning/teamType=Maier/specialInformation=Spezial/
[10.10.2016 13:31:47,912] Error: @@@
Modul: REST-Anforderung fehlgeschlagen: Execution of request terminated with unknown error

Wo liegt hier nun der Denkfehler?

a) ist "Method = rmPOST" OK?
b) ist das zusammen basteln des Body so OK?
c) ist das "ctAPPLICATION_JSON" im "AddBody" so OK?
d) in der Doku die uns zur Verfügung steht wird der Wert für "rotationId" als "integer" angegeben. Blöde frage, wie übergebe ich denn in diesem Fall explizit einen Integer? Letztlich kann ich doch ausschlielich strings übergeben.

Vielen Dank im Voraus.

Gruß, Markus

TREST* Daten im Body übergeben

TREST* Daten im Body übergeben

Forumregeln