Question

有人让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);
?>

Answer 1

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

Answer 2

你需要定义一个post变量，试试这段代码（我在你的代码中添加了“json”var）：

德尔福代码：

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);
?>

Delphi TIdhttp发布JSON？

2 个答案: