Datenübertragung via HTTP POST

[lucy]

hier die Eckdaten:

Zugriff mit Datenformat : HTTP POST {IP}:{PORT}/rest/external/http

Daten:
UTF-8 kodiertes JSON als Body eines HTTP POST Aufrufs

Return-Werte:
Es werden die Standard-HTTP-Return-Codes verwendet. Außerdem wird ein JSON Objekt zurück geliefert.

HTTP Code Bedeutung:
200 Alarm erfolgreich übergeben
400 Der Aufruf war fehlerhaft

habe noch nicht mit der idHTTP Komponente gearbeitet
wie baue ich eine Verbindung zum Server auf?
wie bewkomme ich die Antwort vom Server "Request" ausgewertet?
brauch mal ein einfaches Beispiel um reinzukommen.

 idHTTP1.Post('{IP}:{PORT}/rest/external/http', // das wird wohl nicht reichen :-)

[itblumi]

Hallo lucy,

ich denke du benutzt eine Rest Service und möchtest mit diesem kommunizieren. Diesen selbst zu erstellen mit Indy und anzusprechen würde auch gehen, aber ich denke es wäre für dich einfacher einer Rest Client zu erstellen.
Ich habe Dir dazu mal ein Beispiel von Embarcadero raus gesucht in dem dies gemacht wird.
https://docwiki.embarcadero.com/RADS...d_Web_Services

Vllt. hilft Dir dies ja schon weiter.

Viele Grüße
Jan

[omnibrain]

Ich benutze TSslHttpRest von ICS. Den finde ich wesentlich komfortabler.
Hier ein Paar Snippets um dich auf den Weg zu bringen:

Code:

bodystring:='{"key":"value"}'
url:='https://example.com/api/v1/endpoint';
httpwork.RcvdStream := TStringStream.Create('',TEncoding.UTF8);
httpwork.RestRequest(httpPost,url,false,bodystring);
httpresultstring := httpwork.responseraw;

Das ganze dann noch in ein try/except packen.
httpresultstring kannst du dann dem Statuscode gemäß verarbeiten.

Code:

case httpwork.StatusCode of
  200: //verarbeiten
  400: //Fehler, aber vielleicht steht im Bodystring was dazu
else
  //alle anderen Fehler
end;

[mjustin]

Ein Beispiel, wie mit Indy ein Json Dokument gesendet und die Antwort ausgegeben wird habe ich hier erstellt:

https://mikejustin.wordpress.com/201...-6-https-post/


Code:

Delphi-Quellcode:

program JSONPostExample;
 
{$APPTYPE CONSOLE}
 
uses
  IdHTTP, IdGlobal, SysUtils, Classes;
 
var
  HTTP: TIdHTTP;
  RequestBody: TStream;
  ResponseBody: string;
begin
  HTTP := TIdHTTP.Create;
  try
    try
      RequestBody := TStringStream.Create('{"日本語":42}',
        TEncoding.UTF8);
      try
        HTTP.Request.Accept := 'application/json';
        HTTP.Request.ContentType := 'application/json';
        ResponseBody := HTTP.Post('https://httpbin.org/post',
          RequestBody);
        WriteLn(ResponseBody);
        WriteLn(HTTP.ResponseText);
      finally
        RequestBody.Free;
      end;
    except
      on E: EIdHTTPProtocolException do
      begin
        WriteLn(E.Message);
        WriteLn(E.ErrorMessage);
      end;
      on E: Exception do
      begin
        WriteLn(E.Message);
      end;
    end;
  finally
    HTTP.Free;
  end;
  ReadLn;
  ReportMemoryLeaksOnShutdown := True;
end.

[lucy]

Zitat:

Ein Beispiel, wie mit Indy ein Json Dokument gesendet und die Antwort ausgegeben wird habe ich hier erstellt:

https://mikejustin.wordpress.com/201...-6-https-post/

vielen lieben Dank für Deine Hilfe

der Code sieht sehr komplex aus! kannst du mir was zu den einzelnen zeilen erzählen? möchte diesen Code auch verstehen.
deshalbt wollte ich erstmal nur mit einer "Verbindung" + "Request vom Server" anfangen.

danke

[lucy]

suche noch ein einfaches Beispiel
dieser quellcode funktioniert so leider nicht.

hier die Beschreibung:
https://alamos-support.atlassian.net...+Schnittstelle

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
  lParamList: TStringList;
begin
  lParamList := TStringList.Create;
  lParamList.Add('message:test message');
  lParamList.Add('type:TEST');
  lParamList.Add('sender:self');
  lParamList.Add('timestamp:1424950740000');
  try
    memo1.Lines.Text := idHTTP1.Post('http://192.168.0.5/rest/external/http', lParamList);
  finally
    lParamList.Free;
  end;
end;

[DeddyH]

Und so?

Delphi-Quellcode:

lParamList := TStringList.Create;
  lParamList.Add('{');
  lParamList.Add('"message":"test message",');
  lParamList.Add('"type":"TEST",');
  lParamList.Add('"sender":"self",');
  lParamList.Add('"timestamp":"1424950740000"');
  lParamList.Add('}');

Wenn das geht, ist der Aufbau des JSON-Objekts schon einmal korrekt, aber das sollte man nicht so machen, sondern besser eine "richtige" Bibliothek dafür nehmen.

[lucy]

Zitat:

und so?

geht nicht

Delphi-Quellcode:

var
  lParamList: TStringList;
begin
  lParamList := TStringList.Create;
  lParamList.Add('{');
  lParamList.Add('"message":"test message",');
  lParamList.Add('"type":"TEST",');
  lParamList.Add('"sender":"self",');
  lParamList.Add('"timestamp":"1424950740000"');
  lParamList.Add('}');
  try

[DeddyH]

Was steht denn in Zeile 66?

[lucy]

Zitat:

Was steht denn in Zeile 66?

Sorry, die Fehlermeldung gehört nicht zum Projekt

es kommt keine Fehlermeldung mehr! trotzdem ohne Funktion