Einzelnen Beitrag anzeigen

mytbo

Registriert seit: 8. Jan 2007
472 Beiträge
 
#11

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

  Alt 12. Dez 2022, 20:09
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

Geändert von mytbo (12. Dez 2022 um 20:12 Uhr)
  Mit Zitat antworten Zitat