Delphi TIdhttp发布JSON？

Question

有人得到JSON与TIdHttp一起工作吗？

PHP总是返回NULL $_POST,我做错了什么？

Delphi来源:

http := TIdHttp.Create(nil);
http.HandleRedirects := True;
http.ReadTimeout := 5000;
http.Request.ContentType := 'application/json';
jsonToSend := TStringStream.Create('{"name":"Peter Pan"}');
jsonToSend.Position := 0;
Memo1.Lines.Text := http.Post('http://www.website.com/test.php', jsonToSend);
jsonToSend.free;
http.free;

PHP来源:

<?php
$value = json_decode($_POST);
var_dump($value);
?>

Answer 1

您不能使用a TStringList发布JSON数据. TIdHTTP.Post()将以TStringList打破JSON数据的方式对内容进行编码.您需要将JSON数据放入其中TStream.TIdHTTP.Post()将按原样传送其内容.另外,不要忘记设置TIdHTTP.Request.ContentType属性,以便服务器知道您正在发布JSON数据.