Datenübertragung via HTTP POST

[lucy]

Zitat:

Mal tust Du zu wenig, mal zuviel. Wenn schon, dann mit einem TStringStream statt einer TStringList.

Ja jetzt geht es! danke

[DeddyH]

Du solltest das JSON-Objekt nicht händisch zusammenbasteln wie im Beispiel, sondern eine Bibliothek dafür verwenden. Ich weiß nicht mehr, ob es System.JSON unter XE7 bereits gab, aber alternativ kannst Du ja einmal nach SuperObject googlen.

[lucy]

Zitat:

Du solltest das JSON-Objekt nicht händisch zusammenbasteln wie im Beispiel, sondern eine Bibliothek dafür verwenden. Ich weiß nicht mehr, ob es System.JSON unter XE7 bereits gab, aber alternativ kannst Du ja einmal nach SuperObject googlen.

würde mich schon interessieren! habe aber leider noch nichts brauchbares gefunden.

[DeddyH]

SuperObject
System.JSON (gab es wohl bereits unter XE7)

[lucy]

Zitat:

SuperObject
System.JSON (gab es wohl bereits unter XE7)

danke schaue ich mir an!

teste gerade noch ein wenig, habe hier noch einen Fehler!
verstehe ich nicht ??

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
 ParamList : TStringStream;
begin

  ParamList := TStringStream.Create('', TEncoding.UTF8);
  ParamList.WriteString('{');
  ParamList.WriteString('"message":"test message",');
  ParamList.WriteString('"type":"ALARM",');
  ParamList.WriteString('"sender":"192.168.0.217",');
  ParamList.WriteString('"timestamp":"1424950740000",');
  ParamList.WriteString('"data":{"address": "'(Edit1.Text)'"}'); //pas(49)  ist doch gesetzt! // oder muss ich noch ein strtoint(Edit1.Text) setzen
  ParamList.WriteString('}');
try
   idHTTP1.Request.Accept := 'application/json';
   idHTTP1.Request.ContentType := 'application/json';
   memo1.Lines.Text := idHTTP1.Post('http://192.168.0.5/rest/external/http', ParamList);
finally
  ParamList.Free;
 end;
end;

[Klaus01]

ParamList.WriteString('"data":{"address": "'+Edit1.Text+'"}'); .. so könnte es passen.

Grüße
Klaus

[fisipjm]

Tu dir aber selbst einen gefallen und nutze die JSON Frameworks die es schon gibt. Es ist natürlich gut zu verstehen was läuft und wie etwas aufgebaut ist, aber im fertigen Code würde ich immer auf das gehen, was man danach besser versteht bzw. weitere Verbreitung hat. Dein Code würde mit der system.JSON unit umgesetzt so aussehen.

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
  myJSONObj: TJSONObject;
  myDataObj: TJSONObject;
begin

  myJSONObj := TJSONObject.Create;
  try
    myJSONObj.AddPair('message', 'test message');
    myJSONObj.AddPair('type', 'ALARM');
    myJSONObj.AddPair('sender', '192.168.0.217');
    myJSONObj.AddPair('timestamp', '1424950740000');
    myJSONObj.AddPair('sender', '192.168.0.217');
    myDataObj := TJSONObject.Create;
      myDataObj.AddPair('address', Edit1.text);
      myJSONObj.AddPair('data', myDataObj);
      try
        IdHTTP1.Request.Accept := 'application/json';
        IdHTTP1.Request.ContentType := 'application/json';
        Memo1.Lines.text := IdHTTP1.Post('http://192.168.0.5/rest/external/http', myJSONObj.ToJSON);
      except
        on e: Exception do
          ShowMessage('Huch, was ist denn da passiert? - ' + e.Message);

      end

  finally
    myJSONObj.free;
  end;

end;

[DeddyH]

Sicher, dass es nicht knallt, wenn Du ein "Kind-JSONObjekt" selbst freigibst?