Nach weiterem Suchen habe ich hier das gefunden.
http://docwiki.embarcadero.com/RADSt...aging_Protocol
Delphi-Quellcode:
Then your request should look like this:
POST /datasnap/rest/TServerMethods1/EchoAttribute/Attr1 HTTP/1.1
....*additional headers*...
Accept: application/json
Content-Type: text/plain;charset=UTF-8
{"Attr1":"ValueToReturn"}
Also habe ich mein Post so abgewandelt.
Delphi-Quellcode:
procedure TfClient.btn1Click(Sender: TObject);
const
Url = '
https://alpt.kxmwm3epa9wmpje7.myfritz.net/datasnap/rest/TServerMethods1/Webhook';
var
LsList: TStringList;
LsStream: TStringStream;
begin
LsList := TStringlist.Create;
try
LsStream := TStringStream.Create;
try
LsList.Add('
{"Webhook":"Lavista Baby "}');
nthtprqst1.Post(
Url,LsList,LsStream) ;
mmo1.Lines.Add(UTF8Decode(LsStream.DataString));
finally
LsStream.Free;
end;
// try
finally
LsList.Free;
end;
// try
end;
aber weiterhin das gleiche Ergebnis
{"result":[""]}
als Antwort
Irgend etwas mach ich falsch
