Rest post

[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'.

[Klaus01]

.. hast Du die Unit REST.Types eingebunden?

Grüße
Klaus

[Neutral General]

Probier mal alle Parameter stattdessen so hinzuzufügen:
RESTRequest.AddParameter('Nonce', Nonce, pkHTTPHEADER, [poDoNotEncode]); // Alle anderen auch so
Das poDoNotEncoode ist das ausschlaggebende.