Rest post

[Graw]

Guten Morgen,

ich habe mein erstes Projekt bei dem ich mit einem Webservice arbeite.
Hier ist es so, dass über ein GET eine Nonce abgefragt werden muss.
Mit dieser Nonce im Header können dann mit POST Daten an den Webservice geschickt werden.
Derzeit bin ich soweit, das ich mit GET die Nonce vom Webservice erfolgreich abfragen kann.
Nun scheitere ich derzeit daran mit POST Daten an sen Service zu senden.

Hier mein POST mit der Nonce im Header:

Code:

procedure TForm1.ButtonClick(Sender: TObject);
begin
  RESTRequest.Params.AddHeader('Nonce',Nonce);
  RESTRequest.Params.AddHeader('Content-Type', 'application/json');
  RESTRequest.AddBody('{"Test"}');
  RESTRequest.Execute;
end;

URL, Methode und Authentifizierung wurden im REST Debugger angegeben.

Als Fehlermeldung kommt immer das das Zeitlimit überschritten wurde.

Schon einmal vielen Dank.

[DeddyH]

Hast Du auch die HTTP-Methode umgestellt?

Delphi-Quellcode:

RESTRequest.Method := rmPost;

[Graw]

Ja,

ich habe mit dem Rest Debugger ein Request für GET und ein Request für POST angelegt.
Den ersten Request nutze ich um die Nonce mit GET abzufragen.
Den zweiten Request für den POST.

[DeddyH]

Ich sehe gerade: Dein Body enthält kein gültiges JSON. Es muss immer der Schlüsselname in Anführungszeichen gefolgt von einem Doppelpunkt und dann der Wert darin stehen. Z.B.:

Code:

{"Test": "test", "NochnTest": 42}

[Rolf Frei]

Da er ein Timeout bekommt, würde ich mal eher auf eine falsche URL tippen. Zwar ist das Korrekt, dass sein Code keine JSON ist, aber da müsste doch dann irgend ein vernünftiger Fehler vom Server kommen.

[Graw]

Vielen Dank für den Hinweis.
Manchmal muss man einfach noch einmal darauf gebracht werden genauer hin zu schauen.
Ich hatte einen Fehler in der URL.

Nun kommt keine Fehlermeldung, allerdings kommen auch noch keine Daten an. (Format vom Body sollte richtig sein. Hatte es hier im Forum nur abgekürzt.)

Wie kann ich eine Meldung bzw. Antwort des Webservices anzeigen?

[Rolf Frei]

Ich kenne mich mit TRESTRequest jetzt nicht so gut aus, aber wenn ich die Doku lese müsstest du die vom Server erhaltene Response in RESTRequest.Response haben:

RESTRequest.Response.JSONText

[Graw]

Hallo,

vielen dank für eure Antworten.
Nun habe ich wieder Zeit mih mit dem Thema zu beschäftigen.
Es it weiterhin so, dass ich die Daten nicht am Webservice empfange.
Besteht die Möglichkeit zu sehen was ich an den Webservice schicke?
Ich würde mir gerne mit showMessage den JSON String anschauen.

Danke.

[Neutral General]

Falls du Komponenten auf dem Form hast und die nicht dynamisch erstellst dann erstellst du sie natürlich hier nicht mehr.
Ansonsten hab ich jetzt das Freigeben weggelassen - das muss natürlich in den echten Code rein.
Letztendlich brauchst du ein TRESTResponse Objekt dass du dem Request zuweist.
Nach dem Execute kannst du dann per response.Content auf den Content zugreifen.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var RESTClient: TRESTClient;
    RESTRequest: TRESTRequest;
    RESTResponse: TRESTResponse;
begin
  RESTClient := TRESTClient.Create(nil);
  RESTClient.BaseURL := '<BaseUrl>';

  RESTResponse := TRESTResponse.Create(nil);

  RESTRequest := TRESTRequest.Create(nil);
  RESTRequest.Client := RESTClient;
  RESTRequest.Response := RESTResponse;
  RESTRequest.Params.AddHeader('Nonce', Nonce);
  RESTRequest.Params.AddHeader('Content-Type', 'application/json');
  RESTRequest.AddBody('{"Test"}');
  RESTRequest.Execute;

  if RESTResponse.Status.Success then
    ShowMessage(RESTResponse.Content);
end;

[Graw]

Hallo,

das hilft mir schonmal in soweit das ich denke den Aufbau richtig zu haben.
Leider kann ich weiterhin keine Daten zum Webservice schicken.
Ich nutze eine Session um die Nonce abzufragen und eine weitere um den POST durchzuführen.
Muss ich beides mit einer Session durchführen?
Wenn ja, wie kann ich die Methode von Get auf Post ändern?

RESTRequest2.Method :=rmPOST; funktioniert nicht. rmPost wird rot unterstrichen. Undeclared identifier 'rmPost'.