Delphi TIdhttp Post JSON？
Delphi TIdhttp Post JSON？
提问于 2012-08-29 18:32:37
有没有人让JSON和TIdHttp一起工作？
PHP总是在$_POST中返回NULL，我做错了什么吗？
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);
?>回答 2
Stack Overflow用户
回答已采纳
发布于 2012-08-30 23:20:03
您不能使用TStringList来发布JSON数据。TIdHTTP.Post()将以破坏TStringList数据的方式对JSON内容进行编码。您需要将JSON数据放入TStream中。TIdHTTP.Post()将按原样传输其内容。此外，不要忘记设置TIdHTTP.Request.ContentType属性，以便服务器知道您正在发布JSON数据。
Stack Overflow用户
发布于 2012-08-29 19:51:23
你需要定义一个post变量，试试这段代码(我已经在你的代码中添加了"json“var )：
Delphi代码：
http := TIdHttp.Create(nil);
http.HandleRedirects := true;
http.ReadTimeout := 5000;
jsonToSend := TStringList.create;
jsonToSend.Text := 'json={"name":"Peter Pan"}';
Memo1.Lines.Text := http.Post('http://www.website.com/test.php', jsonToSend);
jsonToSend.free;
http.free;PHP源码：
<?php
$value = json_decode($_POST['json']);
var_dump($value);
?>页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/12175952
复制相关文章
相似问题
腾讯云开发者
