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;