Ich habe einen TCPServer als HTTP server und möchte daten aus einem POST JSON Data

[mytbo]

Zitat von joehd:

Und ich habe mich mit REST und HTTP Zeugs und so noch nicht wirklich beschäftigt.

Im Forum gibt es Artikel zur Einführung in Interface-based und methodenbasierte Services. Sie enthalten lauffähige Beispiele. Der methodenbasierte Service SaveFile aus dem Beispiel wird mit TMS WebCore wie folgt aufgerufen:

Delphi-Quellcode:

const
  REQUEST_PATH = 'SaveFile?fileName=%s';
begin
  HTTPRequest.URL := Format(BASE_URL + REQUEST_PATH, [pmcFileName]);
  HTTPRequest.Command := httpPUT;
  HTTPRequest.PostData := ...;
  HTTPRequest.Execute(
    procedure(pmResponse: String; pmRequest: TJSXMLHttpRequest)
    begin
      if pmRequest.Status = 200 then
        ShowMessage(Format('File %s was saved.', [pmcFileName]))
      else
        ShowMessage('Error: File was not saved.');
    end);
end;

Bis bald...
Thomas