Rest post

[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

[Graw]

Ne hatte ich nicht Danke

Kann ich einen Dummy Webservice aufbauen mit dem ich meinen POST testen kann?
Derzeit schicke ich die Anwendung weg und lasse diese testen.

[Neutral General]

Jo. Brauchst letztendlich nicht viel mehr als einen HTTP Server der dir die eingehenden Anfragen anzeigt. (Falls du nur gucken willst obs richtig ankommt)

[mkinzler]

Es gibt diverse Rest-Framework für Delphi:
https://github.com/synopse/mORMot
https://github.com/danieleteti/delphimvcframework
https://github.com/andrea-magni/MARS
https://github.com/delphi-blocks/WiRL
https://github.com/chapmanworld/deRest
https://github.com/EtheaDev/kitto2

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

[Graw]

guten Morgen,

das hat sehr gut geklappt.
Nun habe ich nur noch das Problem mit dem Zeichensdatz beim Body.
Wie muss ich das da machen?